10 ‘*******************
20 ‘ The Statistician
30 ‘  by Dirk Tjossem
40 ‘copyright1982 Artsci
50 ‘*******************
60 WIDTH 40,8,1
70 CLS
80 PRINT “Mean, Variance,”
90 PRINT “Std Deviation”;
100 LPRINT”THE STATISTICIAN”
110 FOR I=1 TO 1000 : NEXT: CLS
120 CLS
130 PRINT “Methods:”
140 PRINT “(1=freq distribution)”
150 PRINT “(2=sample)”
160 PRINT “Which method? “;
170 S$=INKEY$: IF S$=”” GOTO 170
180 IF NOT (VAL(S$)=1 OR VAL(S$)=2) GOTO 120
190 PRINT S$;: S= VAL(S$)-1: S$=””
200 CLS
210 PRINT “Data Types:”
220 PRINT “(1=grouped)”
230 PRINT “(2=ungrouped)”
240 PRINT “Which type? “;
250 S$=INKEY$: IF S$=”” GOTO 250
260 IF NOT (VAL(S$)=1 OR VAL(S$)=2) GOTO 200
270 PRINT S$;: K= VAL(S$)-1: S$=””
280 CLS
290 INPUT “# Observations? “,N
300 R=0: M=R: P=R
310 CLS
320 IF K=1 GOTO 500
330 LPRINT “Frequency List”
340 PRINT “Enter Item, Freq “
350 LPRINT “  No.   Item    Freq”
360 FOR I=1 TO N
370 PRINT “ “;I;”:”;
380 INPUT “item? “,A
390 input “     freq? “,B
400 LPRINT USING “####”;I;
410 LPRINT “#”;
420 LPRINT USING “#######”;A;B
430 R=R+B*A
440 P=P+B
450 M=M+B*A^2
460 NEXT I
470 R=R/P
480 V=(M-P*R^2)/(P-S)
490 GOTO 600
500 LPRINT “Item List”
510 FOR I=1 TO N
520 PRINT “Item”;I;”?”;
530 INPUT ““,D
540 LPRINT USING “#####”;D
550 P=P+D
560 M=M+D^2
570 NEXT I
580 R=P/N
590 V=(M-N*R^2)/(N-S)
600 CLS
610 PRINT “Mean= “;R
620 LPRINT “Mean= “;R
630 PRINT “Var= “;V
640 LPRINT “Var= “;V
650 PRINT “S.D.= “;SQR(V)
660 LPRINT “S.D.=”;SQR(V)
670 LPRINT
680 PRINT “”;
690 S$=INKEY$: IF S$=”” GOTO 690
700 PRINT
710 CLS
720 PRINT “MORE DATA? “;
730 S$=INKEY$: IF S$=”” GOTO 730
740 IF S$=”Y” OR S$=”y” THEN CLS: GOTO 130
750 END1 REM******



10 ‘*********************
20 ‘Future Value Program
30 ‘   by Dirk Tjossem
40 ‘copyright1982 Artsci
50 ‘*********************
60 CLS
70 LPRINT DATE$,TIME$
80 PRINT “**FUTURE VALUE**”
90 LPRINT:LPRINT “..FUTURE VALUE PROGRAM..”
100 LPRINT
110 FOR I=1 TO 1500: NEXT
120 CLS
130 WIDTH 40,8,1
140 PRINT: LPRINT
150 PRINT “Initial”
160 LPRINT “*Initial”
170 INPUT “Investment $”,P
180 LPRINT “ Investment $”;P
190 CLS
200 PRINT
210 PRINT “Nominal Interest”
220 LPRINT “*Nominal Interest”
230 INPUT “Rate (%)? “,I
240 LPRINT “ Rate “;I;”%”
250 CLS
260 PRINT
270 PRINT “No. Yrly Compounding”
280 LPRINT “*No.Yrly Compounding”
290 INPUT “Periods? “,N
300 LPRINT “ Periods “;N
310 N=ABS(N)
320 CLS
330 PRINT
340 INPUT “No.of Years? “,Y
350 LPRINT “*No.of Years “;Y
360 Y=ABS(Y)
370 I=ABS(I/N/100)
380 T=P*(1+I)^(N*Y)
390 CLS
400 PRINT “Future Value=”
410 LPRINT:LPRINT “**Future Value**”
420 T=INT(T*100+SGN(T)*.5)/100
430 PRINT USING “$##############,.##”;T;
440 IF SGN(T)<0 THEN PRINT “-” ELSE PRINT
450 LPRINT USING “$##############,.##”;T;
460 IF SGN(T)<0 THEN LPRINT “-” ELSE LPRINT
470 PRINT
480 PRINT “Do it again? “;
490 S$=INKEY$: IF S$=”” GOTO 490
500 IF S$=”Y” OR S$=”y” GOTO 120
510 END10 ‘*******************






10 ‘********************
20 ‘    The Financier
30 ‘   by Dirk Tjossem
40 ‘copyright1982 Artsci
50 ‘********************
60 CLS
70 ‘
80 ‘
90 PRINT “Term of”
100 INPUT “Loan? “,T
110 INPUT “Annual Rate (%)? “,AR
120 INPUT “Principal $”,P
130 INPUT “No.Pymts/Yr? “,PY
140 RP=((AR/100)*P/PY)/(1-1/((AR/100)/PY+1)^(PY*T))
150 RP=INT(RP*100+SGN(RP)*.5)/100
160 LPRINT “Loan:”;: LPRINT USING “$$#########,.##”;P
170 LPRINT”at”;AR;”% APR for”;T;”years”
180 LPRINT”paid”;PY;”times a year.”
190 PRINT “Reg Pymt”;: PRINT USING “$$#####.##”;RP
200 LPRINT “Reg Pymt: “;: LPRINT USING “$$####,.##”;RP
210 LPRINT:LPRINT
220 LPRINT”   Period{  *Beg Bal”
230 LPRINT”    Crt Int<>Acc Int”
240 LPRINT”   Pr Pymt<>Acc PrPymt”
250 FOR J=1 TO T*PY
260 LPRINT
270 LPRINT USING “###”;J;
280 LPRINT “{ “;
290 LPRINT USING “**$########,.##”;P
300 IP=P*AR/100/PY
310 IP=INT(IP*100+SGN(IP)*.5)/100
320 LPRINT USING “######,.##-”; IP;
330 IT=IT+IP
340 LPRINT USING “######,.##-”; IT
350 PR=RP-IP: IF ABS(P-PR)<.10 THEN PR=P
360 PT=PT+PR
370 LPRINT USING “######,.##-”; PR;
380 LPRINT USING “######,.##-”; PT
390 P=P-PR
400 LPRINT”     “;: LPRINT USING “**$########,.##”;P
410 NEXT8 CLEAR 1000,1200





10 ‘********************
20 ‘  Day-Date Program
30 ‘  by  Dirk Tjossem
40 ‘copyright1982 Artsci
50 ‘********************
60 GOSUB 620
70 CLS
80 PRINT “DAYS BETWEEN TWO”
90 PRINT “DATES”
100 LPRINT “DAYS BETWEEN TWO”
110 LPRINT “DATES”
120 PRINT:LPRINT
130 PRINT “First Date (m/d/y)”
140 GOSUB 680
150 M=DT(1): D=DT(2): Y=DT(3)
160 GOSUB 320: IF ER THEN 130
170 LPRINT IN$
180 GOSUB 530: A1=A
190 PRINT “Second Date (m/d/y)”
200 GOSUB 680
210 M=DT(1): D=DT(2): Y=DT(3)
220 GOSUB 320: IF ER THEN 190
230 LPRINT IN$
240 GOSUB 530
250 N=ABS(A-A1)
260 PRINT “Difference=”;N;”DAYS”
270 LPRINT ”Difference=”;N;”DAYS”
280 PRINT
290 INPUT “More (Y/N)”;X$
300 IF LEFT$(X$,1)=”Y” OR LEFT$(X$,1)=”y” THEN CLS: LPRINT: GOTO 130
310 END
320 ER=0
330 ON M GOTO 360,380,360,440,360,440,360,360,440,360,440,360
340 PRINT “UNREAL DATE”: ER=-1
350 RETURN
360 IF D>31 THEN 340
370 GOTO 450
380 IF Y/4<>INT(Y/4) THEN 410
390 IF Y/400=INT(Y/400) THEN 420
400 IF Y/100<>INT(Y/100) THEN 420
410 IF D>28 THEN 340
420 IF D>29 THEN 340
430 GOTO 450
440 IF D>30 THEN 340
450 A=DM%(M-1)
460 A=A+Y*365+INT(Y/4)+D+1-INT(Y/100)+INT(Y/400)
470 IF INT(Y/4)<>Y/4 THEN 520
480 IF Y/400=INT(Y/400) THEN 500
490 IF Y/100=INT(Y/100) THEN 510
500 IF M>2 THEN 520
510 A=A-1
520 RETURN
530 REM*** “DAY OF THE WEEK”
540 PRINT
550 IF M>2 THEN 570
560 M=M+12: Y=Y-1
570 N=D+2*M+INT(.6*(M+1))+Y+INT(Y/4)-INT(Y/100)+INT(Y/400)+2
580 N=N MOD 7
590 PRINT DOW$(N)
600 LPRINT DOW$(N)
610 RETURN
620 DIM DOW$(6), DM%(11)
630 DATA “Saturday”,”Sunday”,”Monday”,”Tuesday”,”Wednesday”,”Thursday”,”Friday”
640 DATA 0,31,59,90,120,151,181,212,243,273,304,334
650 FOR N=0 TO 6: READ DOW$(N): NEXT
660 FOR N=0 TO 11: READ DM%(N): NEXT
670 RETURN
680 IN$=””
690 X$=INKEY$
700 IN$=IN$+X$
710 PRINT X$;
720 IF X$<>CHR$(13) THEN 690
730 N=0
740 FOR I=1 TO 3
750 GOSUB 790
760 DT(I)=NB
770 NEXT
780 RETURN
790 NB=0
800 N=N+1
810 IF N>LEN(IN$) THEN PRINT “ERROR”
820 X$=MID$(IN$,N,1)
830 IF ASC (X$)=>ASC(“0”) AND ASC(X$)<=ASC(“9”) THEN NB=NB*10+VAL(X$): GOTO 800
840 IF NB=0 THEN GOTO 800 ELSE RETURN