Skip to content

Commit

Permalink
first commit
Browse files Browse the repository at this point in the history
  • Loading branch information
yantrabuddhi committed Sep 21, 2015
0 parents commit a062bd4
Show file tree
Hide file tree
Showing 3,862 changed files with 297,570 additions and 0 deletions.
The diff you're trying to view is too large. We only load the first 3000 changed files.
31 changes: 31 additions & 0 deletions .cextrc
Original file line number Diff line number Diff line change
@@ -0,0 +1,31 @@
#
# File: .cextrc
#
# This config file was generated by version 1.7 of cextract.
# Edit carefully.
#
# Created: Sun Jan 4 17:13:28 2015
#
cpp-program: /lib/cpp -C
!merge-output
dual-output
extract-only !ansi-code
doc-only ansi-code
show-anyway
extract-only !sort
doc-only sort-by-files
wrap-parameters: 0
tab-width: 8
!break-after-types
!first-comments
!prepend-filename
extract-only !yank-comments
doc-only yank-comments
extract-only statics: none
doc-only statics: any
extract-only externs
doc-only !externs
single-comments
define: __CEXTRACT__
doc-only define: __CEXTDOC__
#
30 changes: 30 additions & 0 deletions 00INDENT.BAT
Original file line number Diff line number Diff line change
@@ -0,0 +1,30 @@
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-2.62\
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
14 changes: 14 additions & 0 deletions 01INDENT.BAT
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
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-2.62\
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
20 changes: 20 additions & 0 deletions BP100/00readme.txt
Original file line number Diff line number Diff line change
@@ -0,0 +1,20 @@
These programs appear to work, and are part of regression testing.

Changes made:
a) add missing semicolon/comma in PRINT statements
b) change array names so they were not identical to scalar variable names
c) add spaces around reserved words
d) CASSETTE is not supported, use DISKETTE instead
e) add missing THEN after IF
f) change PRINT #1,X,Y to WRITE #1,X,Y
g) add exit for autmated testing

These programs were downloaded from
http://www.willus.com/trs80/?q=Business+Pac+100

Program: Business Pac 100 (124984)
Author: Dr. Peter Shenkin
Files:
ACCTPAY, ACCTREC, ANNU1, ANNUDEF, ARBCOMP, ASSIGN, AUTOEXP, BAYES, BETAALPH, BLACKSH, BONDVAL, BONDVAL2, BREAKEVN, BUSBUD, CAP1, CHECK2, CHECKBK1, COMPBAL, CONDPROF, CVP, DATE, DATEVAL, DAYYEAR, DEPLETE, DEPRDB, DEPRDDB, DEPRSF, DEPRSL, DEPRSY, DILANAL, DISCBAL, EFFECT, ENVELOPE, EOQ, EPSEST, EXPVAL, FINRAT, FQEOQ, FQEOQPB, FQEOWSH, FUPRINF, FVAL, INSFILE, INVENT2, INVOICE, LABEL1, LABEL2, LEASEINT, LETWRT, LOANAFFD, LOANPAY, MAILPAC, MARKUP, MERGANAL, MORTGAGE.A, MULTMON, NCFANAL, NPV, OPTLOSS, OPTWRITE, PAYNET, PAYROLL2, PORTVAL9, PRINDLAS, PRINDPA, PROFIND, PVAL, QUEUE1, QUEUECB, REGWITH, RENTPRCH, RRCONST, RRCONVBD, RRVARIN, RTVAL, RULE78, SALELEAS, SALVAGE, SEASIND, SELLPR, SHARPE1, SIMPDISK, SIMPLEX, SINKFUND, SORT3, STOCVAL1, TAXDEP, TELDIR, TERMSPAY, TIMECLCK, TIMEMOV, TIMETR, TIMUSAN, TRANS, UPSZONE, UTILITY, VALADINF, VALPRINF, WACC, WARVAL

EOF
141 changes: 141 additions & 0 deletions BP100/00test.sh
Original file line number Diff line number Diff line change
@@ -0,0 +1,141 @@
# Puropose: Verify existing BWBASIC behavior
# Author: Howard Wulf
# Date: 2014-03-28
# Usage: implementatino defined
# Example:
# cd /sdcard/Download/BASIC/bwbasic3/BP100
# ash ./00test.sh
#

rm *.80
rm *.OUT
rm *.dif

# ----------------------------------------------
# Regression Tests
# ----------------------------------------------
testcase()
{
TESTCASE=${1}
echo "TESTCASE=${TESTCASE}"
~/bwbasic ${TESTCASE} > ${TESTCASE}.OUT
echo "500 DATA ${TESTCASE}.OUT, ${TESTCASE}.80" > PAD80.INP
~/bwbasic PAD80.BAS
diff ${TESTCASE}.run ${TESTCASE}.80 > ${TESTCASE}.dif
if test -s ${TESTCASE}.dif
then
echo less ${TESTCASE}.dif
fi
}

# ---------------------------------------------
echo "OPTION VERSION BYWATER" > profile.bas
echo "OPTION LABELS OFF" >> profile.bas


testcase ACCTPAY
testcase ACCTREC
testcase ANNU1
testcase ANNUDEF
testcase ARBCOMP
testcase ASSIGN
testcase AUTOEXP
testcase BAYES
testcase BETAALPH
testcase BLACKSH
testcase BONDVAL
testcase BONDVAL2
testcase BREAKEVN
testcase BUSBUD
testcase CAP1
testcase CHECK2
testcase CHECKBK1
testcase COMPBAL
testcase CONDPROF
testcase CVP
testcase DATE
testcase DATEVAL
testcase DAYYEAR
testcase DEPLETE
testcase DEPRDB
testcase DEPRDDB
testcase DEPRSF
testcase DEPRSL
testcase DEPRSY
testcase DILANAL
testcase DISCBAL
testcase EFFECT
testcase ENVELOPE
testcase EOQ
testcase EPSEST
testcase EXPVAL
testcase FINRAT
testcase FQEOQ
testcase FQEOQPB
testcase FQEOWSH
testcase FUPRINF
testcase FVAL
testcase INSFILE
testcase INVENT2
testcase INVOICE
testcase LABEL1
testcase LABEL2
testcase LEASEINT
testcase LETWRT
testcase LOANAFFD
testcase LOANPAY
testcase MAILPAC
testcase MARKUP
testcase MERGANAL
testcase MORTGAGE
testcase MULTMON
testcase NCFANAL
testcase NPV
testcase OPTLOSS
testcase OPTWRITE
testcase PAYNET
testcase PAYROLL2
testcase PORTVAL9
testcase PRINDLAS
testcase PRINDPA
testcase PROFIND
testcase PVAL
testcase QUEUE1
testcase QUEUECB
testcase REGWITH
testcase RENTPRCH
testcase RRCONST
testcase RRCONVBD
testcase RRVARIN
testcase RTVAL
testcase RULE78
testcase SALELEAS
testcase SALVAGE
testcase SEASIND
testcase SELLPR
testcase SHARPE1
testcase SIMPDISK
testcase SIMPLEX
testcase SINKFUND
testcase SORT3
testcase STOCVAL1
testcase TAXDEP
testcase TELDIR
testcase TERMSPAY
testcase TIMECLCK
testcase TIMEMOV
testcase TIMETR
testcase TIMUSAN
testcase TRANS
testcase UPSZONE
testcase UTILITY
testcase VALADINF
testcase VALPRINF
testcase WACC
testcase WARVAL


cat *.dif > dif.OUT
less dif.OUT

# EOF
11 changes: 11 additions & 0 deletions BP100/01ok.sh
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
# Puropose: Promote current results to regression
# Author: Howard Wulf
# Date: 2014-03-28
# Usage: implementatino defined
# Example:
# cd /sdcard/Download/BASIC/bwbasic3/BP100
# ash ./01ok.sh
#

for f in *.80; do mv "$f" "${f/.80/.run}"; done
# EOF
Loading

0 comments on commit a062bd4

Please sign in to comment.