Browse Source

v3.20

* 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
Jon Foster 2 years ago
parent
commit
9c8ebf1c01
100 changed files with 113 additions and 5987 deletions
  1. +30
    -12
      .gitattributes
  2. +0
    -30
      00INDENT.BAT
  3. +0
    -14
      01INDENT.BAT
  4. +0
    -86
      B15A/00test.sh
  5. +0
    -20
      B15A/01test.sh
  6. +0
    -1
      B15A/BW.PRO
  7. +0
    -2
      B15A/BYWATER.PRO
  8. +0
    -43
      B15A/PAD80.BAS
  9. +0
    -1
      B15A/bwbasic.pro
  10. +0
    -1
      B15A/data.tmp
  11. +0
    -47
      B15A/function.run
  12. +0
    -2
      B15A/profile.bas
  13. +0
    -10
      B15A/random.run
  14. +0
    -6
      B15A/writeinp.run
  15. +0
    -126
      B15B/00test.sh
  16. +0
    -20
      B15B/01test.sh
  17. +0
    -2
      B15B/BYWATER.PRO
  18. +0
    -43
      B15B/PAD80.BAS
  19. +0
    -19
      B15B/addmag.bas
  20. +0
    -42
      B15B/altaz.bas
  21. +0
    -54
      B15B/altaz2.bas
  22. +0
    -36
      B15B/angsep.bas
  23. +0
    -38
      B15B/asteroid.bas
  24. +0
    -141
      B15B/broken/goss.bas
  25. +0
    -70
      B15B/broken/jack.bas
  26. +0
    -103
      B15B/broken/origam.bas
  27. +0
    -53
      B15B/broken/pulsar.bas
  28. +0
    -57
      B15B/broken/rainbow.bas
  29. +0
    -51
      B15B/broken/ronchi.bas
  30. +0
    -39
      B15B/broken/spiral.bas
  31. +0
    -72
      B15B/broken/sundog.bas
  32. +0
    -2
      B15B/bwbasic.pro
  33. +0
    -36
      B15B/crater.bas
  34. +0
    -12
      B15B/gwmonth.bas
  35. +0
    -40
      B15B/interp.bas
  36. +0
    -61
      B15B/lheight.bas
  37. +0
    -51
      B15B/moonfx.bas
  38. +0
    -2
      B15B/profile.bas
  39. +0
    -129
      B15B/refr1.bas
  40. +0
    -36
      B15B/rocket.bas
  41. +0
    -141
      B15B/sunup.bas
  42. +0
    -181
      B15B/taki.bas
  43. +0
    -11
      BC31.BAT
  44. +35
    -0
      BCCDOS16.BAT
  45. +48
    -0
      BCCDOS16.TXT
  46. +0
    -75
      C77A/00test.sh
  47. +0
    -20
      C77A/01test.sh
  48. +0
    -2
      C77A/BYWATER.PRO
  49. +0
    -1
      C77A/C77.PRO
  50. +0
    -10
      C77A/CREATE_1.TXT
  51. +0
    -10
      C77A/CREATE_2.TXT
  52. +0
    -9
      C77A/FILE.TXT
  53. +0
    -10
      C77A/IF_END_2.TXT
  54. +0
    -43
      C77A/PAD80.BAS
  55. +0
    -10
      C77A/READ_1.TXT
  56. +0
    -10
      C77A/USING_1.TXT
  57. +0
    -58
      C77B/00test.sh
  58. +0
    -20
      C77B/01test.sh
  59. +0
    -3
      C77B/AP
  60. +0
    -2
      C77B/AR
  61. +0
    -3189
      C77B/BIZMII.run
  62. +0
    -2
      C77B/BYWATER.PRO
  63. +0
    -1
      C77B/C77.PRO
  64. +0
    -22
      C77B/CG
  65. +0
    -1
      C77B/CGSIZE
  66. +0
    -1
      C77B/CHK
  67. +0
    -22
      C77B/CR
  68. +0
    -1
      C77B/CRSIZE
  69. +0
    -22
      C77B/DATA/CG
  70. +0
    -1
      C77B/DATA/CGSIZE
  71. +0
    -1
      C77B/DATA/CHK
  72. +0
    -22
      C77B/DATA/CR
  73. +0
    -1
      C77B/DATA/CRSIZE
  74. +0
    -1
      C77B/DATA/DATE
  75. +0
    -50
      C77B/DATA/EDEP
  76. +0
    -1
      C77B/DATA/EDEPSIZE
  77. +0
    -16
      C77B/DATA/EF
  78. +0
    -22
      C77B/DATA/EP
  79. +0
    -1
      C77B/DATA/EPC
  80. +0
    -1
      C77B/DATA/EPSIZE
  81. +0
    -1
      C77B/DATA/EPT
  82. +0
    -63
      C77B/DATA/ES
  83. +0
    -21
      C77B/DATA/FG
  84. +0
    -1
      C77B/DATA/FGSIZE
  85. +0
    -102
      C77B/DATA/GL
  86. +0
    -22
      C77B/DATA/GLCD
  87. +0
    -1
      C77B/DATA/GLCDSIZE
  88. +0
    -7
      C77B/DATA/GLCK
  89. +0
    -1
      C77B/DATA/GLCKSIZE
  90. +0
    -1
      C77B/DATA/GLF
  91. +0
    -13
      C77B/DATA/GLH
  92. +0
    -1
      C77B/DATA/GLHSIZE
  93. +0
    -53
      C77B/DATA/GLJO
  94. +0
    -1
      C77B/DATA/GLJOSIZE
  95. +0
    -70
      C77B/DATA/GLREF
  96. +0
    -21
      C77B/DATA/GLS
  97. +0
    -1
      C77B/DATA/GLSIZE
  98. +0
    -1
      C77B/DATA/GLSSIZE
  99. +0
    -1
      C77B/DATA/GLT
  100. +0
    -1
      C77B/DATA/INV

+ 30
- 12
.gitattributes View File

@@ -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

+ 0
- 30
00INDENT.BAT View File

@@ -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

+ 0
- 14
01INDENT.BAT View File

@@ -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

+ 0
- 86
B15A/00test.sh View File

@@ -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
# ----------------------------------------------

+ 0
- 20
B15A/01test.sh View File

@@ -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
# ----------------------------------------------

+ 0
- 1
B15A/BW.PRO View File

@@ -1 +0,0 @@
OPTION VERSION BYWATER

+ 0
- 2
B15A/BYWATER.PRO View File

@@ -1,2 +0,0 @@
OPTION VERSION BYWATER
OPTION LABELS OFF

+ 0
- 43
B15A/PAD80.BAS View File

@@ -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

+ 0
- 1
B15A/bwbasic.pro View File

@@ -1 +0,0 @@
OPTION VERSION BYWATER

+ 0
- 1
B15A/data.tmp View File

@@ -1 +0,0 @@
"String 1", 1.12346,"String 2", 2.23457,"String 3", 3.34568

+ 0
- 47
B15A/function.run View File

@@ -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

+ 0
- 2
B15A/profile.bas View File

@@ -1,2 +0,0 @@
OPTION VERSION BYWATER
REM OPTION LABELS OFF

+ 0
- 10
B15A/random.run View File

@@ -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.

+ 0
- 6
B15A/writeinp.run View File

@@ -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

+ 0
- 126
B15B/00test.sh View File

@@ -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
# ----------------------------------------------

+ 0
- 20
B15B/01test.sh View File

@@ -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
# ----------------------------------------------

+ 0
- 2
B15B/BYWATER.PRO View File

@@ -1,2 +0,0 @@
OPTION VERSION BYWATER
OPTION LABELS OFF

+ 0
- 43
B15B/PAD80.BAS View File

@@ -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

+ 0
- 19
B15B/addmag.bas View File

@@ -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 ------------------------

+ 0
- 42
B15B/altaz.bas View File

@@ -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 ------------------------

+ 0
- 54
B15B/altaz2.bas View File

@@ -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 ------------------------

+ 0
- 36
B15B/angsep.bas View File

@@ -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 ------------------------

+ 0
- 38
B15B/asteroid.bas View File

@@ -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.

+ 0
- 141
B15B/broken/goss.bas View File

@@ -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 ************************************

+ 0
- 70
B15B/broken/jack.bas View File

@@ -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.

+ 0
- 103
B15B/broken/origam.bas View File

@@ -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.

+ 0
- 53
B15B/broken/pulsar.bas View File

@@ -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.

+ 0
- 57
B15B/broken/rainbow.bas View File

@@ -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 **************************************

+ 0
- 51
B15B/broken/ronchi.bas View File

@@ -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 ************************************

+ 0
- 39
B15B/broken/spiral.bas View File

@@ -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 ***************************************

+ 0
- 72
B15B/broken/sundog.bas View File

@@ -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 ========================

+ 0
- 2
B15B/bwbasic.pro View File

@@ -1,2 +0,0 @@
OPTION VERSION BYWATER
OPTION LABELS OFF

+ 0
- 36
B15B/crater.bas View File

@@ -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

+ 0
- 12
B15B/gwmonth.bas View File

@@ -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 **********************************

+ 0
- 40
B15B/interp.bas View File

@@ -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 ------------------------


+ 0
- 61
B15B/lheight.bas View File

@@ -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 ***********************************

+ 0
- 51
B15B/moonfx.bas View File

@@ -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.

+ 0
- 2
B15B/profile.bas View File

@@ -1,2 +0,0 @@
OPTION VERSION BYWATER
OPTION LABELS OFF

+ 0
- 129
B15B/refr1.bas View File

@@ -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 ************************************

+ 0
- 36
B15B/rocket.bas View File

@@ -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 ---------------------------


+ 0
- 141
B15B/sunup.bas View File

@@ -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.

+ 0
- 181
B15B/taki.bas View File

@@ -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


+ 0
- 11
BC31.BAT View File

@@ -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

+ 35
- 0
BCCDOS16.BAT View File

@@ -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

+ 48
- 0
BCCDOS16.TXT View File

@@ -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

+ 0
- 75
C77A/00test.sh View File

@@ -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
# ----------------------------------------------

+ 0
- 20
C77A/01test.sh View File

@@ -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
# ----------------------------------------------

+ 0
- 2
C77A/BYWATER.PRO View File

@@ -1,2 +0,0 @@
OPTION VERSION BYWATER
OPTION LABELS OFF

+ 0
- 1
C77A/C77.PRO View File

@@ -1 +0,0 @@
OPTION VERSION CBASIC-II

+ 0
- 10
C77A/CREATE_1.TXT View File

@@ -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"

+ 0
- 10
C77A/CREATE_2.TXT View File

@@ -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"

+ 0
- 9
C77A/FILE.TXT View File

@@ -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"

+ 0
- 10
C77A/IF_END_2.TXT View File

@@ -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"

+ 0
- 43
C77A/PAD80.BAS View File

@@ -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

+ 0
- 10
C77A/READ_1.TXT View File

@@ -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

+ 0
- 10
C77A/USING_1.TXT View File

@@ -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

+ 0
- 58
C77B/00test.sh View File

@@ -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
# ----------------------------------------------

+ 0
- 20
C77B/01test.sh View File

@@ -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
# ----------------------------------------------

+ 0
- 3
C77B/AP View File

@@ -1,3 +0,0 @@
0,0,0,0,0
0 0

+ 0
- 2
C77B/AR View File

@@ -1,2 +0,0 @@
0,0,0,0,0
0 0

+ 0
- 3189
C77B/BIZMII.run
File diff suppressed because it is too large
View File


+ 0
- 2
C77B/BYWATER.PRO View File

@@ -1,2 +0,0 @@
OPTION VERSION BYWATER
OPTION LABELS OFF

+ 0
- 1
C77B/C77.PRO View File

@@ -1 +0,0 @@
OPTION VERSION CBASIC-II

+ 0
- 22
C77B/CG View File

@@ -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

+ 0
- 1
C77B/CGSIZE View File

@@ -1 +0,0 @@
2,20

+ 0
- 1
C77B/CHK View File

@@ -1 +0,0 @@
1012

+ 0
- 22
C77B/CR View File

@@ -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

+ 0
- 1
C77B/CRSIZE View File

@@ -1 +0,0 @@
4,20

+ 0
- 22
C77B/DATA/CG View File

@@ -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

+ 0
- 1
C77B/DATA/CGSIZE View File

@@ -1 +0,0 @@
2,20

+ 0
- 1
C77B/DATA/CHK View File

@@ -1 +0,0 @@
1012

+ 0
- 22
C77B/DATA/CR View File

@@ -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

+ 0
- 1
C77B/DATA/CRSIZE View File

@@ -1 +0,0 @@
4,20

+ 0
- 1
C77B/DATA/DATE View File

@@ -1 +0,0 @@
"12/19/7908/06/7907/27/7908/31/7909/30/7912/31/79 12/31/79"

+ 0
- 50
C77B/DATA/EDEP View File

@@ -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," "

+ 0
- 1
C77B/DATA/EDEPSIZE View File

@@ -1 +0,0 @@
1,48

+ 0
- 16
C77B/DATA/EF View File

@@ -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

+ 0
- 22
C77B/DATA/EP View File

@@ -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

+ 0
- 1
C77B/DATA/EPC View File

@@ -1 +0,0 @@
22900,0.0613,11400,0.01,6000,7E-03,6000,0

+ 0
- 1
C77B/DATA/EPSIZE View File

@@ -1 +0,0 @@
5,20,0

+ 0
- 1
C77B/DATA/EPT View File

@@ -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

+ 0
- 63
C77B/DATA/ES View File

@@ -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

+ 0
- 21
C77B/DATA/FG View File

@@ -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

+ 0
- 1
C77B/DATA/FGSIZE View File

@@ -1 +0,0 @@
4,8

+ 0
- 102
C77B/DATA/GL View File

@@ -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

+ 0
- 22
C77B/DATA/GLCD View File

@@ -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

+ 0
- 1
C77B/DATA/GLCDSIZE View File

@@ -1 +0,0 @@
5,20

+ 0
- 7
C77B/DATA/GLCK View File

@@ -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

+ 0
- 1
C77B/DATA/GLCKSIZE View File

@@ -1 +0,0 @@
2,5

+ 0
- 1
C77B/DATA/GLF View File

@@ -1 +0,0 @@
"##,###,###.##","###.#"

+ 0
- 13
C77B/DATA/GLH View File

@@ -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

+ 0
- 1
C77B/DATA/GLHSIZE View File

@@ -1 +0,0 @@
6,11

+ 0
- 53
C77B/DATA/GLJO View File

@@ -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

+ 0
- 1
C77B/DATA/GLJOSIZE View File

@@ -1 +0,0 @@
6,51

+ 0
- 70
C77B/DATA/GLREF View File

@@ -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

+ 0
- 21
C77B/DATA/GLS View File

@@ -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

+ 0
- 1
C77B/DATA/GLSIZE View File

@@ -1 +0,0 @@
70,101

+ 0
- 1
C77B/DATA/GLSSIZE View File

@@ -1 +0,0 @@
11,25

+ 0
- 1
C77B/DATA/GLT View File

@@ -1 +0,0 @@
80,2,10,22,8,12,42,14,42,8,57,101,101,295,401,401

+ 0
- 1
C77B/DATA/INV View File

@@ -1 +0,0 @@
1003

Some files were not shown because too many files changed in this diff

Loading…
Cancel
Save