Ye Ol' π Shack
Empowering makers everywhere!
Ye Ol' π Shack
Empowering makers everywhere!
* Implements most of the following BASIC dialects:
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
* CONST variable [, ...] = value
Assigns the value to variable.
Any later assignment to the variable causus a VARIABLE NOT DECLARED error.
* DIM now supports lower and upper bounds.
OPTION BASE 1
DIM X( 9 ) ' lower bound is 1
DIM Y( 5 TO 9 ) ' lower bound is 5
* DIM now supports virtual variables.
OPTION BASE 1
OPEN "VIRTUAL.DAT" FOR VIRTUAL AS # 3 ' virtual data file
DIM # 3, A( 1000 ) ' array is virtual
LET A( 1000 ) = 0 ' value is written to the file
LET X = A( 1000 ) ' value is read from the file
CLOSE # 3 ' array is no longer valid
* ERROR 27, "Bad DATA"
Occurs when the READ command detects garbage in a DATA command.
* INPUT LINE
Same as LINE INPUT.
* MAT now supports lower and upper bounds.
OPTION BASE 1
MAT X( 9 ) = ZER ' lower bound is 1
MAT Y( 5 TO 9 ) = ZER ' lower bound is 5
MAT X = ZER( 9 ) ' lower bound is 1
MAT Y - ZER( 5 TO 9 ) ' lower bound is 5
* MAXLEN()
Returns the maximum string length.
* OPTION DIGITS integer
Sets the number of significant digits for PRINT.
Setting the value to zero restores the default.
* OPTION EDIT string$
Sets the program name used by the EDIT command.
Setting this to "" disables EDIT command.
* OPTION FILES string$
Sets the program name used by the FILES command.
Setting this to "" disables FILES command.
* OPTION PROMPT string$
Sets the prompt.
* OPTION PUNCT AT char$
Sets the PRINT AT character, commonly "@".
Setting this to "" disables PRINT AT.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT BYTE char$
Sets the BYTE type suffix, commonly "~".
Setting this to "" disables BYTE suffix.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT COMMENT char$
Sets the trailing COMMENT character, commonly "'".
Setting this to "" disables trailing comments.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT CURRENCY char$
Sets the CURRENCY type suffix, commonly "@".
Setting this to "" disables CURRENCY suffix.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT DOUBLE char$
Sets the DOUBLE type suffix, commonly "#".
Setting this to "" disables DOUBLE suffix.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT FILENUM char$
Sets the FILE NUMBER prefix, commonly "#".
Setting this to "" disables the FILE NUMBER prefix.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT IMAGE char$
Sets the shortcut IMAGE character, commonly ":".
Setting this to "" disables the shortcut IMAGE character.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT INPUT char$
Sets the shortcut INPUT character, commonly "!".
Setting this to "" disables the shortcut INPUT character.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT INTEGER char$
Sets the INTEGER type suffix, commonly "%".
Setting this to "" disables INTEGER suffix.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT LONG char$
Sets the LONG type suffix, commonly "&".
Setting this to "" disables LONG suffix.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT LPAREN char$
Sets the LEFT PARENTHESIS character, commonly "(".
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT PRINT char$
Sets the shortcut PRINT character, commonly "?".
Setting this to "" disables the shortcut PRINT character.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT QUOTE char$
Sets the QUOTE character, commonly """".
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT RPAREN char$
Sets the RIGHT PARENTHESIS character, commonly ")".
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT SINGLE char$
Sets the SINGLE type suffix, commonly "!".
Setting this to "" disables SINGLE suffix.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT STATEMENT char$
Sets the shortcut STATEMENT seperator character, commonly ":".
Setting this to "" disables the STATEMENT seperator.
Setting this to a non-punctuation character is not supported.
* OPTION PUNCT STRING char$
Sets the STRING type suffix, commonly "$".
Setting this to "" disables STRING suffix.
Setting this to a non-punctuation character is not supported.
* OPTION RECLEN integer
Sets the default record length for RANDOM files, commonly 128.
Setting thisto zero means there is no default RANDOM record
length, so the record length must be specified in the OPEN
statement.
With OPTION RECLEN 128:
OPEN "FILE.DAT" FOR RANDOM AS #3
is considered to be the same as
OPEN "FILE.DAT" FOR RANDOM AS #3 LEN 128
With OPTION RECLEN 0:
OPEN "FILE.DAT" FOR RANDOM AS #3
causes an error.
* OPTION RENUM string$
Sets the program name used by the RENUM command.
Setting this to "" disables RENUM command.
* OPTION SCALE integer
Sets the number of digits to round after the decimal point for PRINT.
Setting the value to zero disables rounding.
* 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
Sets the characters recognized by PRINT USING.
Setting these to a non-punctuation character is not supported.
* OPTION VERSION now requires a string instead of a literal.
Some version names have changed.
* OPTION VERSION "PDP-8"
Added LPT, PTP, PTR, TTY, TTY IN and TTY OUT commands.
Added GET() and PUT() functions.
* OPTION VERSION "CALL/360"
* OPTION VERSION "SYSTEM/360"
* OPTION VERSION "SYSTEM/370"
Added alphabet extenders. $ is a string variable.
* OPTION ZONE integer
Sets the PRINT zone width.
Setting the value to zero restores the default.
* REPEAT - UNTIL added
REPEAT
...
EXIT REPEAT
...
UNTIL expression ' exits when expression != 0
* SPC( X ) and TAB( X )
No longer use control codes.
* UNTIL - UEND removed (to add REPEAT - UNTIL)
Here is a work-around for existin code using UNTIL-UEND:
UNITL expression -->> WHILE NOT expression
... ...
EXIT UNTIL -->> EXIT WHILE
... ...
UEND -->> WEND
* from Howard Wulf, AF5NE
Editor's Note: In the official release *ALL* of the test and sample
BASIC programs were removed and packaged in a separate "test" ZIP. I
have extracted those in to the bwbtest folder where most of the
tests were living in previous packages. I've also improved (I hope)
the EOL handling.
- ChipMaster
upstream
| @@ -1,12 +1,30 @@ | |||
| # Default auto detect text, and normalize EOL | |||
| * text=auto eol=crlf | |||
| # Specific text files needing EOL fixing | |||
| *.in text eol=crlf | |||
| *.c text eol=crlf | |||
| *.h text eol=crlf | |||
| *.bas text eol=crlf | |||
| INSTALL text eol=crlf | |||
| COPYING text eol=crlf | |||
| README text eol=crlf | |||
| /bwbasic.doc text eol=crlf | |||
| # NOTE: Since these sources could be compiled in DOS and Win the line | |||
| # endings are forced to CRLF for compatibility with those | |||
| # environments. Its likely they won't have access to GIT and the files | |||
| # will come from a Linux host, which would automatically force use LF. | |||
| # Since UNIX usually can handle both gracefully I'm mostly forcing | |||
| # this repo to CRLF. | |||
| # OK so I'm (ChipMaster) apparently not smart enough so here goes plan | |||
| # "b" for handling line endings. | |||
| # Specific text files needing EOL fixing | |||
| *.c text eol=crlf | |||
| *.C text eol=crlf | |||
| *.h text eol=crlf | |||
| *.H text eol=crlf | |||
| *.bas text eol=crlf | |||
| *.BAS text eol=crlf | |||
| *.bat text eol=crlf | |||
| *.BAT text eol=crlf | |||
| *.doc text eol=crlf | |||
| *.DOC text eol=crlf | |||
| *.txt text eol=crlf | |||
| *.TXT text eol=crlf | |||
| *.html text eol=crlf | |||
| *.HTML text eol=crlf | |||
| INSTALL text eol=crlf | |||
| COPYING text eol=crlf | |||
| README text eol=crlf | |||
| READMEFIRST text eol=crlf | |||
| /bwbasic.doc text eol=crlf | |||
| @@ -1,30 +0,0 @@ | |||
| REM Filename: 00INDENT.BAT | |||
| REM Purpose: format source code | |||
| REM Author: Howard Wulf, AF5NE | |||
| REM Date: 2015-01-29 | |||
| REM Uasage: implementation defined | |||
| REM Example: | |||
| REM CD \sdcard\Download\BASIC\bwbasic\ | |||
| REM 00INDENT.BAT | |||
| REM | |||
| call 01indent.bat BWBASIC.C | |||
| call 01indent.bat BWBASIC.H | |||
| call 01indent.bat BWB_CMD.C | |||
| call 01indent.bat BWB_CND.C | |||
| call 01indent.bat BWB_DIO.C | |||
| call 01indent.bat BWB_ELX.C | |||
| call 01indent.bat BWB_EXP.C | |||
| call 01indent.bat BWB_FNC.C | |||
| call 01indent.bat BWB_INP.C | |||
| call 01indent.bat BWB_INT.C | |||
| call 01indent.bat BWB_OPS.C | |||
| call 01indent.bat BWB_PRN.C | |||
| call 01indent.bat BWB_STC.C | |||
| call 01indent.bat BWB_STR.C | |||
| call 01indent.bat BWB_TBL.C | |||
| call 01indent.bat BWB_VAR.C | |||
| call 01indent.bat BWD_CMD.C | |||
| call 01indent.bat BWD_FUN.C | |||
| call 01indent.bat BWD_SIX.H | |||
| call 01indent.bat BWX_TTY.C | |||
| REM EOF | |||
| @@ -1,14 +0,0 @@ | |||
| REM Filename: 00INDENT.BAT | |||
| REM Purpose: format source code of one file | |||
| REM Author: Howard Wulf, AF5NE | |||
| REM Date: 2015-01-29 | |||
| REM Uasage: implementation defined | |||
| REM Example: | |||
| REM CD \sdcard\Download\BASIC\bwbasic\ | |||
| REM 01INDENT.BAT bwbasic.c | |||
| REM | |||
| indent.exe %1 -bl -ncdb -nfc1 -nce -ei | |||
| xtabs.exe %1 to TEMP.TMP | |||
| del %1 | |||
| ren TEMP.TMP %1 | |||
| REM EOF | |||
| @@ -1,86 +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 BW.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT | |||
| echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP | |||
| ~/bwbasic --profile BYWATER.PRO PAD80.BAS | |||
| diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif | |||
| if test -s ${TESTCASE}.dif | |||
| then | |||
| echo less ${TESTCASE}.dif | |||
| fi | |||
| } | |||
| # --------------------------------------------- | |||
| echo "OPTION VERSION BYWATER" > BW.PRO | |||
| echo "OPTION VERSION BYWATER" > BYWATER.PRO | |||
| echo "OPTION LABELS OFF" >> BYWATER.PRO | |||
| 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 | |||
| # ---------------------------------------------- | |||
| # EOF | |||
| # ---------------------------------------------- | |||
| @@ -1,20 +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 | |||
| less dif.OUT | |||
| fi | |||
| # ---------------------------------------------- | |||
| # EOF | |||
| # ---------------------------------------------- | |||
| @@ -1 +0,0 @@ | |||
| OPTION VERSION BYWATER | |||
| @@ -1,2 +0,0 @@ | |||
| OPTION VERSION BYWATER | |||
| OPTION LABELS OFF | |||
| @@ -1,43 +0,0 @@ | |||
| 010 OPTION VERSION BYWATER | |||
| 020 OPTION BUGS OFF | |||
| 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$ | |||
| 125 DELETE 500 | |||
| 126 MERGE "PAD80.INP" | |||
| 127 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 | |||
| @@ -1 +0,0 @@ | |||
| OPTION VERSION BYWATER | |||
| @@ -1 +0,0 @@ | |||
| "String 1", 1.12346,"String 2", 2.23457,"String 3", 3.34568 | |||
| @@ -1,47 +0,0 @@ | |||
| ABS(-2.2): 2.2 | |||
| DATE$: <01/21/2016> | |||
| TIME$: <20:51:36> | |||
| 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): <XXXXX> | |||
| MID$(0123456789, 5, 4): <4567> | |||
| LEFT$(0123456789, 5): <01234> | |||
| RIGHT$(0123456789, 5): <56789> | |||
| TIMER: 75096 | |||
| 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): < | |||
| /data/data/com.pdaxrom.cctools/root/cctools/sbin:/data/data/com.pdaxrom.cctools/ | |||
| root/cctools/bin:/system/xbin:/system/bin:/data/data/com.pdaxrom.cctools/root/cc | |||
| tools/bin:/data/data/com.pdaxrom.cctools/root/cctools/sbin:/sbin:/vendor/bin:/sy | |||
| stem/sbin:/system/bin:/system/xbin> | |||
| MKD$(17): <> | |||
| MKI$(17): < > | |||
| MKS$(17): <> | |||
| CVD(MKD$(17)): 17 | |||
| CVS(MKS$(17)): 17 | |||
| CVI(MKI$(17)): 17 | |||
| @@ -1,2 +0,0 @@ | |||
| OPTION VERSION BYWATER | |||
| REM OPTION LABELS OFF | |||
| @@ -1,10 +0,0 @@ | |||
| This is a first sequence of three RND numbers: | |||
| 4.08989E-2 | |||
| .63474 | |||
| .63595 | |||
| This is a second sequence of three RND numbers: | |||
| .71534 | |||
| .317369 | |||
| .92797 | |||
| The second sequence should have been differrent | |||
| from the first. | |||
| @@ -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 | |||
| @@ -1,126 +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 BYWATER.PRO --profile ${TESTCASE}.PRO ${TESTCASE}.BAS 1> ${TESTCASE}.OUT 2> ${TESTCASE}.LPT | |||
| echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP | |||
| ~/bwbasic --profile BYWATER.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 | |||
| # | |||
| echo "OPTION VERSION BYWATER" > BYWATER.PRO | |||
| echo "OPTION LABELS OFF" >> BYWATER.PRO | |||
| 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 | |||
| # ---------------------------------------------- | |||
| @@ -1,20 +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 | |||
| less dif.OUT | |||
| fi | |||
| # ---------------------------------------------- | |||
| # EOF | |||
| # ---------------------------------------------- | |||
| @@ -1,2 +0,0 @@ | |||
| OPTION VERSION BYWATER | |||
| OPTION LABELS OFF | |||
| @@ -1,43 +0,0 @@ | |||
| 010 OPTION VERSION BYWATER | |||
| 020 OPTION BUGS OFF | |||
| 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$ | |||
| 125 DELETE 500 | |||
| 126 MERGE "PAD80.INP" | |||
| 127 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 | |||
| @@ -1,19 +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 ------------------------ | |||
| @@ -1,42 +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 ------------------------ | |||
| @@ -1,54 +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 ------------------------ | |||
| @@ -1,36 +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 ------------------------ | |||
| @@ -1,38 +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. | |||
| @@ -1,141 +0,0 @@ | |||
| 10 REM LIGHT-CURVE PROGRAM | |||
| 20 REM APPLE II VERSION | |||
| 30 GOSUB 1500 | |||
| 32 SCREEN 0: SCREEN 1: COLOR ,1 : REM | |||
| 40 PRINT "TYPE OF BINARY SYSTEM:" | |||
| 50 PRINT " 1. BINARY DWARF" | |||
| 60 PRINT " 2. CONTACT BINARY" | |||
| 70 PRINT " 3. SEMI-DETACHED" | |||
| 80 PRINT " 4. DETACHED BINARY" | |||
| 90 X1=0: INPUT "CHOICE ";Q | |||
| 200 IF Q<>1 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 ************************************ | |||
| @@ -1,70 +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. | |||
| @@ -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)<N THEN 83 | |||
| 82 X3=X3/10: Y3=Y3/10: GOTO 81 | |||
| 83 RETURN | |||
| 84 REM ELLIPSE | |||
| 85 M=T*K/(QC/(1-EC))^1.5: E=M | |||
| 86 DD=1-EC*COS(E) | |||
| 87 E1=E+(M+EC*SIN(E)-E)/DD | |||
| 88 IF ABS(E1-E)<1/10000 THEN 90 | |||
| 89 E=E1: GOTO 86 | |||
| 90 F=2*ATN(SQR(FF)*TAN(E1/2))/DR | |||
| 91 RETURN | |||
| 92 REM PARABOLA | |||
| 93 W1=W0*T: S=0 | |||
| 94 S=(2*S*S*S+W1)/(3*(S*S+1)) | |||
| 95 DE=S*S*S+3*S-W1 | |||
| 96 IF ABS(DE)>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 explained | |||
| 210 REM in Sky & Telescope for | |||
| 220 REM April, 1990, page 424. | |||
| @@ -1,53 +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. | |||
| @@ -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 ************************************** | |||
| @@ -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 ************************************ | |||
| @@ -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 *************************************** | |||
| @@ -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 ======================== | |||
| @@ -1,2 +0,0 @@ | |||
| OPTION VERSION BYWATER | |||
| OPTION LABELS OFF | |||
| @@ -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 | |||
| @@ -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 ********************************** | |||
| @@ -1,40 +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 ------------------------ | |||
| @@ -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 LS<O THEN LS=450-CS | |||
| 250 BE = BE*DR: LE = LE*DR | |||
| 260 BS = BS*DR: LS = LS*DR | |||
| 270 CS = CS*DR | |||
| 280 RM = 1080 | |||
| 290 EM = 23900 | |||
| 300 SM = 93000000 | |||
| 310 PRINT | |||
| 320 PRINT "ENTER FEATURE DATA" | |||
| 330 INPUT " SEL. LONGITUDE ";LO | |||
| 340 INPUT " SEL. LATITUDE ";BO | |||
| 350 INPUT " SHADOW (MM) ";MQ | |||
| 360 BO = BO*DR | |||
| 370 I1 = SIN(BE)*SIN(BO) | |||
| 380 I2 = SIN(BE)*SIN(BS) | |||
| 390 I3 = SIN(BS)*SIN(BO) | |||
| 400 I4 = COS(BE)*COS(BO) | |||
| 410 I5 = COS(BE)*COS(BS) | |||
| 420 I6 = COS(BS)*COS(BO) | |||
| 430 EI = I1+I4*COS(LO-LE) | |||
| 440 ER = I2+I5*COS(LE-LS) | |||
| 450 SI = I3+I6*COS(LO-LS) | |||
| 460 RX = L1/SIN(2*ATN(L1/L2)) | |||
| 470 MR = MQ/RX | |||
| 480 I7 = RM*RM: I8 = EM*EM | |||
| 490 I9 = SM*SM | |||
| 500 XE = SQR(I7+I8-2*RM*EM*EI) | |||
| 510 ES = SQR(I8+I9-2*EM*SM*ER) | |||
| 520 XS = SQR(I7+I9-2*RM*SM*SI) | |||
| 530 S = (XE+ES+XS)/2 | |||
| 540 P = S*(S-ES)*(S-XE)*(S-XS) | |||
| 550 P = (2/(XE*XS))*SQR(P) | |||
| 560 SH = I3+I6*SIN(CS+LO) | |||
| 570 M1 = (MR*SH/P)-1 | |||
| 580 M2 = (MR*SH/P)*((MR/P)-2*SH) | |||
| 590 H = (M1+SQR(M1*M1-M2))*RM | |||
| 600 H = H*5280: H = INT(H) | |||
| 610 PRINT "HEIGHT = ";H;" FEET" | |||
| 620 PRINT: PRINT "DO ANOTHER " | |||
| 630 PRINT "FROM SAME PHOTO"; | |||
| 640 INPUT " (Y/N) ";YN$ | |||
| 650 IF YN$="Y" THEN GOTO 310 | |||
| 660 END | |||
| 670 REM *********************************** | |||
| 680 REM APPEARED IN ASTRONOMICAL COMPUTING | |||
| 690 REM SKY & TELESCOPE, JANUARY 1985 ISSUE | |||
| 700 REM *********************************** | |||
| @@ -1,51 +0,0 @@ | |||
| 10 ' MOON EFFECTS by Bradley E. Schaefer | |||
| 20 DEFDBL A-Z | |||
| 30 P2=2*3.14159: ' Radians in a full circle | |||
| 40 INPUT "Year, month, day";Y,M,D | |||
| 50 YY=Y-INT((12-M)/10) | |||
| 60 MM=M+9: IF MM>=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. | |||
| @@ -1,2 +0,0 @@ | |||
| OPTION VERSION BYWATER | |||
| OPTION LABELS OFF | |||
| @@ -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 ************************************ | |||
| @@ -1,36 +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 --------------------------- | |||
| @@ -1,141 +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)<A(1) THEN A(2)=A(2)+P2 | |||
| 160 Z1=DR*90.833: ' Zenith dist. | |||
| 170 S=SIN(B5*DR): C=COS(B5*DR) | |||
| 180 Z=COS(Z1): M8=0: W8=0: PRINT | |||
| 190 A0=A(1): D0=D(1) | |||
| 200 DA=A(2)-A(1): DD=D(2)-D(1) | |||
| 210 FOR C0=0 TO 23 | |||
| 220 P=(C0+1)/24 | |||
| 230 A2=A(1)+P*DA: D2=D(1)+P*DD | |||
| 240 GOSUB 490 | |||
| 250 A0=A2: D0=D2: V0=V2 | |||
| 260 NEXT | |||
| 270 GOSUB 820: ' Special msg? | |||
| 280 END | |||
| 290 ' | |||
| 300 ' Constants | |||
| 310 DIM A(2),D(2) | |||
| 320 P1=3.14159265: P2=2*P1 | |||
| 330 DR=P1/180: K1=15*DR*1.0027379 | |||
| 340 S$="Sunset at " | |||
| 350 R$="Sunrise at " | |||
| 360 M1$="No sunrise this date" | |||
| 370 M2$="No sunset this date" | |||
| 380 M3$="Sun down all day" | |||
| 390 M4$="Sun up all day" | |||
| 400 RETURN | |||
| 410 ' LST at 0h zone time | |||
| 420 T0=T/36525 | |||
| 430 S=24110.5+8640184.813*T0 | |||
| 440 S=S+86636.6*Z0+86400*L5 | |||
| 450 S=S/86400: S=S-INT(S) | |||
| 460 T0=S*360*DR | |||
| 470 RETURN | |||
| 480 ' | |||
| 490 ' Test an hour for an event | |||
| 500 L0=T0+C0*K1: L2=L0+K1 | |||
| 510 H0=L0-A0: H2=L2-A2 | |||
| 520 H1=(H2+H0)/2: ' Hour angle, | |||
| 530 D1=(D2+D0)/2: ' declination, | |||
| 540 ' at half hour | |||
| 550 IF C0>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. | |||
| @@ -1,181 +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 | |||
| @@ -1,11 +0,0 @@ | |||
| rem Filename: BC31.BAT | |||
| rem Purpose: Build Bywater BASIC for MSDOS (8086) using Borland C++ 3.1 | |||
| rem Author: Howard Wulf, AF5NE | |||
| rem Date: 2015-01-29 | |||
| rem Uasage: implementation defined | |||
| rem Example: | |||
| rem cd \sdcard\Download\BASIC\bwbasic3\ | |||
| rem BC31.BAT | |||
| rem | |||
| bcc.exe -mh -ebwbasic.exe -D_DOS bw*.c | |||
| rem EOF | |||
| @@ -0,0 +1,35 @@ | |||
| @echo off | |||
| rem Filename: BCCDOS16.BAT | |||
| rem Purpose: Build Bywater BASIC for MS-DOS (16-bit) using Borland C++ Version 3.1 | |||
| rem Author: Howard Wulf, AF5NE | |||
| rem Date: 2015-01-29 | |||
| rem Uasage: implementation defined | |||
| rem Example: | |||
| rem cd \sdcard\Download\BASIC\bwbasic3\ | |||
| rem BCCDOS16.BAT | |||
| rem | |||
| rem This is the location of BCC.EXE | |||
| rem | |||
| set BINDIR=C:\DOS\BC31\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% | |||
| bcc.exe > BCCDOS16.TXT | |||
| bcc.exe -mh -eBWBASIC.EXE -DHAVE_MSDOS=1 -Y bw*.c >> BCCDOS16.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 | |||
| @@ -0,0 +1,48 @@ | |||
| Borland C++ Version 3.1 Copyright (c) 1992 Borland International | |||
| Syntax is: BCC [ options ] file[s] * = default; -x- = turn switch x off | |||
| -1 80186/286 Instructions -2 80286 Protected Mode Inst. | |||
| -Ax Disable extensions -B Compile via assembly | |||
| -C Allow nested comments -Dxxx Define macro | |||
| -Exxx Alternate Assembler name -G Generate for speed | |||
| -Hxxx Use pre-compiled headers -Ixxx Include files directory | |||
| -K Default char is unsigned -Lxxx Libraries directory | |||
| -M Generate link map -N Check stack overflow | |||
| -Ox Optimizations -P Force C++ compile | |||
| -Qxxx Memory usage control -S Produce assembly output | |||
| -Txxx Set assembler option -Uxxx Undefine macro | |||
| -Vx Virtual table control -Wxxx Create Windows application | |||
| -X Suppress autodep. output -Yx Overlay control | |||
| -Z Suppress register reloads -a Generate word alignment | |||
| -b * Treat enums as integers -c Compile only | |||
| -d Merge duplicate strings -exxx Executable file name | |||
| -fxx Floating point options -gN Stop after N warnings | |||
| -iN Max. identifier length -jN Stop after N errors | |||
| -k Standard stack frame -lx Set linker option | |||
| -mx Set Memory Model -nxxx Output file directory | |||
| -oxxx Object file name -p Pascal calls | |||
| -r * Register variables -u * Underscores on externs | |||
| -v Source level debugging -wxxx Warning control | |||
| -y Produce line number info -zxxx Set segment namesBorland C++ Version 3.1 Copyright (c) 1992 Borland International | |||
| bwbasic.c: | |||
| Warning bwbasic.c 302: Parameter 'x' is never used in function break_mes | |||
| Warning bwbasic.c 371: Condition is always true in function bwx_TIMER | |||
| bwb_cmd.c: | |||
| Warning bwb_cmd.c 5907: Condition is always true in function bwb_ON_TIMER | |||
| bwb_cnd.c: | |||
| bwb_dio.c: | |||
| bwb_exp.c: | |||
| bwb_fnc.c: | |||
| bwb_inp.c: | |||
| Warning bwb_inp.c 2424: Unreachable code in function user_input_loop | |||
| 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: | |||
| Turbo Link Version 5.1 Copyright (c) 1992 Borland International | |||
| Available memory 3614708 | |||
| @@ -1,75 +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 BYWATER.PRO PAD80.BAS | |||
| diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif | |||
| if test -s ${TESTCASE}.dif | |||
| then | |||
| echo less ${TESTCASE}.dif | |||
| fi | |||
| } | |||
| # --------------------------------------------- | |||
| echo "OPTION VERSION CBASIC-II" > C77.PRO | |||
| echo "OPTION VERSION BYWATER" > BYWATER.PRO | |||
| echo "OPTION LABELS OFF" >> BYWATER.PRO | |||
| 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 | |||
| # ---------------------------------------------- | |||
| @@ -1,20 +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 | |||
| less dif.OUT | |||
| fi | |||
| # ---------------------------------------------- | |||
| # EOF | |||
| # ---------------------------------------------- | |||
| @@ -1,2 +0,0 @@ | |||
| OPTION VERSION BYWATER | |||
| OPTION LABELS OFF | |||
| @@ -1 +0,0 @@ | |||
| OPTION VERSION CBASIC-II | |||
| @@ -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" | |||
| @@ -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" | |||
| @@ -1,9 +0,0 @@ | |||
| "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" | |||
| @@ -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" | |||
| @@ -1,43 +0,0 @@ | |||
| 010 OPTION VERSION BYWATER | |||
| 020 OPTION BUGS OFF | |||
| 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$ | |||
| 125 DELETE 500 | |||
| 126 MERGE "PAD80.INP" | |||
| 127 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 | |||
| @@ -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 | |||
| @@ -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 | |||
| @@ -1,58 +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 BYWATER.PRO PAD80.BAS | |||
| diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif | |||
| if test -s ${TESTCASE}.dif | |||
| then | |||
| echo less ${TESTCASE}.dif | |||
| fi | |||
| } | |||
| # --------------------------------------------- | |||
| # | |||
| # TRS-80 Model I/III/4 with 24 row x 80 column display | |||
| # | |||
| echo "OPTION VERSION CBASIC-II" > C77.PRO | |||
| echo "OPTION VERSION BYWATER" > BYWATER.PRO | |||
| echo "OPTION LABELS OFF" >> BYWATER.PRO | |||
| # ---------------------------------------------- | |||
| # 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 | |||
| # ---------------------------------------------- | |||
| @@ -1,20 +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 | |||
| less dif.OUT | |||
| fi | |||
| # ---------------------------------------------- | |||
| # EOF | |||
| # ---------------------------------------------- | |||
| @@ -1,3 +0,0 @@ | |||
| 0,0,0,0,0 | |||
| 0 0 | |||
| @@ -1,2 +0,0 @@ | |||
| 0,0,0,0,0 | |||
| 0 0 | |||
| @@ -1,2 +0,0 @@ | |||
| OPTION VERSION BYWATER | |||
| OPTION LABELS OFF | |||
| @@ -1 +0,0 @@ | |||
| OPTION VERSION CBASIC-II | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 2,20 | |||
| @@ -1 +0,0 @@ | |||
| 1012 | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 4,20 | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 2,20 | |||
| @@ -1 +0,0 @@ | |||
| 1012 | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 4,20 | |||
| @@ -1 +0,0 @@ | |||
| "12/19/7908/06/7907/27/7908/31/7909/30/7912/31/79 12/31/79" | |||
| @@ -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," " | |||
| @@ -1 +0,0 @@ | |||
| 1,48 | |||
| @@ -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 | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 22900,0.0613,11400,0.01,6000,7E-03,6000,0 | |||
| @@ -1 +0,0 @@ | |||
| 5,20,0 | |||
| @@ -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 | |||
| @@ -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 | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 4,8 | |||
| @@ -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 | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 5,20 | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 2,5 | |||
| @@ -1 +0,0 @@ | |||
| "##,###,###.##","###.#" | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 6,11 | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 6,51 | |||
| @@ -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 | |||
| @@ -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 | |||
| @@ -1 +0,0 @@ | |||
| 70,101 | |||
| @@ -1 +0,0 @@ | |||
| 11,25 | |||
| @@ -1 +0,0 @@ | |||
| 80,2,10,22,8,12,42,14,42,8,57,101,101,295,401,401 | |||
| @@ -1 +0,0 @@ | |||
| 1003 | |||
