ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее-ACPMUG °5BBIO-FF  БSC"BIORYTH БSC	
BLKFRI2 БSCO
DECISIONБSC
EDTEXT  БSC0FORMAT  БSCRADIX   БSC
 M=4 OR M=6 OR M=9 OR M=11 THEN L=30:GOTO 600
570 IF M=2 AND Y/4=INT(Y/4) THEN L=29:GOTO 600
580 IF M=2 THEN L=28:GOTO 600
590 L=31
600 IF D>L THEN D=D-L:M=M+1:GOTO 620
610 PRINTD$(R);D;TAB(10)":";:Z=Z+1:GOTO 330
620 IF M=13 THEN M=1:Z=Z+1:GOTO 310
6SUB 660
80 INPUT"FOR HOW MANY DAYS DO YOU WANT THIS CHART";DL
90 INPUT"STARTING DATE OF YOUR ANALYSIS   ";M,D,Y
100 INPUT"WHAT IS THE DAY OF YOUR BIRTH  ";MB,DB,YB
110 INPUT"WHAT IS YOUR NAME  "; A$
120 DEF FNI(X)=INT(25*SIN(2*PI*X/33)+.5)
130 DEF FNееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее
350 F(2)=42+FNE(X):F$(2)="E"
360 F(3)=42+FNP(X):F$(3)="P"
370 FOR I=0 TO 2
380 FOR J=I+1 TO 3
390 IF F(I)<F(J)THEN 440
400 IF F(I)=(J)THEN F(I)=0:F$(I)="":F$(J)="X":GOTO 440
410 Q=F(I):Q$=F$(I)
420 F(I)=F(J):F$(I)=F$(J)
430 F(J)=Q:F$(J)=Q$
440 NEееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееRECOVERYБSC!SLOT    БSC"#$%SORT    БSC&'STARTREKБSC3()*+,-.SUPTRK3 БSCo/0123456789:;<ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееD$(I):NEXT
210 DATA JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC
220 FOR I=1 TO 12:READ M$(I):NEXT
230 GOSUB 1090
240 R=T-1-INT((T-1)/7)*7
250 LE=21+LEN(DAY$(R))+LEN(M$(M))+LEN(STR$(D))+LEN(RIGHT$(STR$(V),2))
260 PRINT "STARTING DATE:  ";D$(R)", "E(X)=INT(25*SIN(2*PI*X/28)+.5)
140 DEF FNP(X)=INT(25*SIN(2*PI*X/23)+.5)
150 T=INT(D+365.25*Y+A(M)+.01*M-.03)
160 TB=INT(DB+365.25*YB+A(MB)+.01*MB-.03)
170 X=T-TB
180 RB=TB-1-INT((TB-1)/7)*7
190 DATA MON,TUE,WED,THU,FRI,SAT,SUN
200 FOR I=0 TO 6:READ ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееXT J:NEXT I
450 FOR I=0 TO 3
460 IF F(I)=42 AND F$(I)<>":"THEN GOSUB 820
470 NEXT
480 FOR I=0 TO 3
490 PRINTTAB(F(I));F$(I);
500 NEXT
510 PRINT:X=X+1
520 IF P2>52 THEN 880
530 P2=P2+1
540 IF Z=DL THEN 640
550 R=R+1:IF R=7 THEN R=0
560 D=D+1:IF 
10 'COPYRIGHT [C] 1977 BY W.A.BURTON. ALL RIGHTS RESERVED
20 DIM A(12), M$(12)
30 DATA 1,31,59,90,120,151,181,212,243,273,304,334
40 FOR I=1 TO 12: READ A(I): NEXT
50 PI=3.14159:P1=1:P2=0:QP=0
60 INPUT" INSTRUCTIONS (Y OR N)";Z$
70 IF Z$="Y"THEN GOееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее;M$(M)STR$(D);", 19";
270 PRINT RIGHT$(STR$(Y),2),
280 PRINT "BIRTH DATE:  "D$(RB)", "M$(MB)STR$(DB)", 19";
290 PRINT RIGHT$(STR$(YB),2)
300 GOSUB 1110
310 PRINT D$(R)D;M$(M);TAB(10)":";
320 C$=":"
330 F(0)=42:F$(0)=C$
340 F(1)=42+FNI(X):F$(1)="I"
ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее30 Z=Z+1:GOTO 310
640 QP=2:GOTO 880
650 END
660 PRINT"ENTER DATES AS FOLLOWS: MM,DD,YY - IGNORE LEADING ZEROS"
670 PRINT"EXAMPLE: ENTER PEARL HARBOR DAY AS - 12,7,41"
680 PRINT
690 PRINT"FOR FURTHER INFO TYPE 'GOTO 940', OTHERWISE 'GOTO 80'"
700 END+D1
4900 J2=J2+D2
5000 L1=(Y1/4)-(INT(Y1/4))
5100 IFL1=0THENL1=1:GOTO5300
5200 L1=0
5300 L2=(Y2/4)-(INT(Y2/4))
5400 IFL2=0THENL2=1:GOTO5600
5500 L2=0
5600 IFM1>2THENJ1=J1+L1
5700 IFM2>2THENJ2=J2+L2
5800 D4=D4+J2-J1
6000 D1=(D4-(INT(D4/33)*33))
ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее40 NEXT
850 RETURN
860 FOR I=1 TO 72:PRINT "-";:NEXT
870 PRINT:RETURN
880 P1=P1+1:P2=0
890 PRINTCHR$(12)
900 FOR LI=1 TO 100:WL=WL+1:NEXT
910 GOSUB 1090
920 GOSUB 1110
930 IF QP>1 THEN 710 ELSE 540
940 PRINT"THIS PROGRAM IS PRESENTLY CONFIGURED TNT"ENTER DURATION"
207 INPUTJ5
210 PRINT"ENTER NAME OF SUBJECT"
220 INPUT A$
230 GOSUB12000
300 IFD1>D2THENPRINT"INVALID DATES":GOTO200
400 X1=D1
500 GOSUB1000
550 Y1=X2:M1=X3:D1=X4
600 X1=D2
625 GOSUB1000
650 Y2=X2:M2=X3:D2=X4
800 GOTO4000
10MMAND 'PRINT CHR$(12)' IN LINE 890 MUST BE"
1060 PRINT"CHANGED (USUALLY TO 'PRINT' STATEMENTS IN FOR-NEXT LOOP).":PRINT
1070 PRINT"TO RUN PROGRAM, TYPE 'GOTO 80'.......":PRINT:PRINT
1080 END
1090 PRINT "BIORHYTHM ANALYSIS FOR ";A$;:PRINT TAB(60)"PAGE  
710 PRINT
720 PRINT"TO DETERMINE WHICH DAYS ARE CRITICAL FOR YOU, EXAMINE THE"
730 PRINT"THREE CURVES (P,E, AND I); WHENEVER A CURVE CROSSES THE CRITICAL"
740 PRINT"LINE I.E. GOES FROM 'UP' TO 'DOWN' OR VICE-VERSA, THEN THAT"
750 PRINT"WILL BE ONE OFееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееO OPERATE WITH 8-1/2 BY"
950 PRINT"11 INCH PAPER IN A HARDCOPY PRINTER EQUIPPED WITH AUTOMATIC TOP"
960 PRINT"OF FORM OPTION. TO USE THIS FEATURE PROPERLY, YOU MUST REPLY"
970 PRINT"TO ALL OF THE INPUT PROMPTS, HOWEVER !! WHEN YOU HAVE TYPED IN"
980 PR00 X2=INT(X1/10000)
1100 X3=INT(X1/100)-(X2*100)
1200 X4=X1-((X3*100)+(X2*10000))
1300 RETURN
4000 D4=(INT((Y2-1)*365.25)-INT((Y1-1)*365.25))
4100 FOR I=1TOM1
4200 READJ1
4300 NEXTI
4400 RESTORE
4500 FORI=1TOM2
4600 READJ2
4700 NEXTI
4800 J1=J1";P1
1100 IF QP>1 THEN 710 ELSE RETURN
1110 GOSUB 860
1120 PRINT TAB(20)"DOWN",TAB(38)"CRITICAL",TAB(61)"UP"
1130 GOSUB 860
1140 RETURN
P>1 THEN 710 ELSE RETURN
1110 GOSUB 860
1120 PRINT TAB(20)"DOWN",TAB(38)"CRITICAL",TAB(61)"UP"
1130 GOSUB 860
 YOUR CRITICAL DAYS."
760 PRINT
770 PRINT"      I=INTELLECTUAL   33 DAY CYCLE"
780 PRINT"      E=EMOTIONAL      28 DAY CYCLE"
790 PRINT"      P=PHYSICAL       23 DAY CYCLE"
800 PRINT
810 GOTO 650
820 FOR WB=0 TO 3
830 IF F$(WB)=":"THEN F$(WB)=""
8
1 R1=(360/33)/57.2958
2 R2=(360/28)/57.2958
3 R3=(360/23)/57.2958
50 DATA0,31,59,90,120,151,181,212,243,273,304,334,365
60 DIML$(50)
75 RESTORE
100 PRINT"ENTER BIRTHDATE,CURRENT DATE (YYMMDD)"
125 P1=0
150 J6=1
200 INPUTD1,D2
205 D9=D2
206 PRI
1020 PRINT"TO RE-CONFIGURE THIS PROGRAM FOR PRINTERS OR TELETYPES WITH NO"
1030 PRINT"TOP OF FORM OPTION, OR CRT'S: LINES 520 - 530 WILL HAVE TO BE"
1040 PRINT"MODIFIED; ALSO THE ROUTINE AT 880 WILL HAVE TO BE CHANGED. IN"
1050 PRINT"PARTICULAR THE COINT"'YOUR NAME' -DO NOT- HIT CARRIAGE RETURN. MANUALLY ADVANCE THE"
990 PRINT"PAPER IN YOUR PRINTER SO THAT THE PRINTHEAD IS ABOUT 3/4 INCH"
1000 PRINT"FROM TOP OF PAPER. THEN SET TOP OF FORM IN YOUR PRINTER, THEN"
1010 PRINT"HIT CARRIAGE RETURN.":PRINT6100 D2=(D4-(INT(D4/28)*28))
6200 D3=(D4-(INT(D4/23)*23))
6300 FORL3=1TO50
6350 FORI=1TO50
6360 L$(I)=" "
6370 NEXTI
6400 X=SIN(R1*D1)
6500 Y=SIN(R2*D2)
6600 Z=SIN(R3*D3)
6700 L$(X*20+25)="*"
6800 L$(Y*20+25)="+"
6900 L$(Z*20+25)="."
6950 PRINT30 REM
140 REM   DATA TO SIMULATE REAL LIFE STOCK MARKET
150 REM
160 DATA 1,0,0,0,0,0,0,0,0,5,0,0
170 DATA 0,0,0,0,0,0,-25,0,0,0,0,0
180 DATA 1,0,0,0,0,0,0,15,0,0,0,0
190 DATA 0,0,0,0,-5,0,0,0,0,0,0,0
200 DATA 1,0,0,0,0,0,0,0,0,5,0,0
210 DATA 0,0,0ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееL3
8050 P1=P1+1
8100 GOSUB14500
8125 PRINT:PRINT
8150 GOSUB12000
8200 GOTO6300
8300 P1=P1+1
8350 GOSUB14500
8400 FORI=1/60:PRINT:NEXTI
8500 GOTO75
10000 RESTORE
10100 FORI=1TO13
10150 J4=J3
10200 READJ3
10250 IFJ2>59THENJ3=J3+L2
10300 IFJ2<= OF THE
50 REM   ACTUAL STOCK MARKET RATHER THAN A COMPLETELY RANDOMIZED
60 REM   HAPPENING OF EVENTS.
70 REM
80 REM
100 DIM A(36,12),U(11,9),E(11,9),K(10),T(10),F(9),M(4,12),X(4)
102 FOR I=1 TO 36: FOR J=1 TO 12: READ A(I,J): NEXT J: NEXT I
105 FORI
13530 PRINT
13540 RETURN
13600 J=75-POS(X)
13700 FORI=1TOJ-1
13800 PRINT" ";
13900 PRINT":"
14100 RETURN
14500 FORI=1TO75:PRINT"-";:NEXTI:PRINT
14600 PRINT": * = INTELLECTUAL ABILITY, AMBITION";
14700 GOSUB13600
14800 PRINT": + = SENSIBILITY, ":  ";
7000 FORI=1TO50
7050 L$(25)=":"
7100 PRINTL$(I);
7200 NEXTI
7205 PRINT":  ";
7207 GOSUB10000:PRINTD5;" :    ";
7210 IFD1=0THENC=1:PRINT"* ";
7215 IFD1=16THENC=1:PRINT"* ";
7220 IFD2=0THENC=1:PRINT"+ ";
7225 IFD2=14THENC=1:PRINT"+ ";
7230 ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееJ3GOTO11000
10400 NEXTI
10500 Y2=Y2+1
10510 L2=(Y2/4)-(INT(Y2/4))
10520 IFL2=0THENL2=1:GOTO10600
10530 L2=0
10600 J2=J2-365
10700 GOTO10000
11000 M2=I-1
11100 D6=J2-J4
11150 IFJ2=60THEND6=D6+L2
11200 D5=Y2*10000+(M2*100)+D6
11300 RETURN
12000  I=1 TO 11: FOR J=1 TO 9: READ U(I,J): NEXT J: NEXT I
107 FOR I=1 TO 11: FOR J=1 TO 9: READ E(I,J): NEXT J: NEXT I
111 FOR N=1 TO 10
112 READ K(N)
113 NEXT N
115 V$="HIBXP SP ODMRD SO BT KA ZE BPL"
120 Y$="$5  $1  NONE$4  $7  NONENONE$2  $6  $3  "
1NERVES, MOOD, CREATIVE ABILITY";
14900 GOSUB13600
15000 PRINT": . = PHYSICAL STRENGTH, FORURANCE, CONFIDENCE";
15100 GOSUB13600
15150 FORI=1TO75:PRINT"-";:NEXTI:PRINT
15200 PRINTTAB(31);"PAGE ";P1
15400 RETURN
ORURANCE, CONFIDENCE";
15100 GOSUB136IFD3=0THENC=1:PRINT". ";
7235 IFD3=12THENC=1:PRINT". ";
7240 IFC=1THENC=0
7250 PRINT
7300 D1=D1+1
7400 D2=D2+1
7500 D3=D3+1
7600 IFD1=33THEND1=0
7700 IFD2=28THEND2=0
7800 IFD3=23THEND3=0
7900 J2=J2+1
7920 J6=J6+1
7950 IFJ5<J6GOTO8300
8000 NEXT
10 REM   AUTHOR: ROBERT W. BAKER
20 REM   MODIFIED FOR BASIC-E BY R S MASON   9-25-77
30 REM	RE-MODIFIED FOR MICROSOFT BY A.R.G.
33 REM   THIS PROGRAM REQUIRES CP/M WITH 26K OF MEMORY
36 REM
40 REM   THIS GAME IS WRITTEN TO PROVIDE A REALISTIC MODEL
12810 FORI=1TO75:PRINT"-";:NEXTI:PRINT
13200 FORI=1TO75:PRINT"-";:NEXTI
13210 PRINT
13250 PRINT":          LOW             :          HIGH           :";
13260 PRINT"   DATE    :CRITICAL";
13400 PRINT":"
13500 FORI=1TO75
13510 PRINT"-";
13520 NEXTFORI=1TO75
12100 PRINT"-";
12200 NEXTI
12250 PRINT
12300 PRINT": COMPUTERIZED STUDY OF BIORYTHMIC CURVES";
12400 GOSUB13600
12500 PRINT": SUBJECT, ";A$;
12600 GOSUB13600
12700 PRINT": DATE OF STUDY - ";D9;" - DURATION";J5;" DAYS";
12800 GOSUB13600,0,0,0,5,0,0,0,0,0
220 DATA 1,0,0,0,0,0,10,0,0,0,0,0
230 DATA 0,0,10,0,0,0,0,0,0,0,0,0
240 DATA 1,0,0,0,0,0,15,0,0,0,0,0
250 DATA 0,0,-5,0,0,0,0,0,0,0,0,0
260 DATA 1,8,5,5,0,0,0,7,0,0,0,0
270 DATA 0,0,0,0,0,0,0,0,-25,0,0,0
280 DATA 1,0,0,0,0,0,0,0,1"******GOOD LUCK TO EVERYONE!******"
1280 PRINT
1290 PRINT"AVAILABLE SECURITIES, ABBREVIATION, DIVIDENDS PER SHARE"
1300 PRINT
1310 FOR N=1 TO 10
1320 GOSUB 4000
1325 PRINT S$,MID$(V$,3*N-2,3),MID$(Y$,4*N-3,4)
1330 NEXT N
1340 PRINT
1350 PRINT "NUTRUCTIONS";
990 INPUT R$
1000 IF LEFT$(R$,1)="N" THEN 1280
1010 IF LEFT$(R$,1)<>"Y" THEN 990
1020 PRINT
1030 PRINT "THE MAIN OBJECT OF BLACK FRIDAY IS TO SHREWDLY INVEST $5000"
1040 PRINT"IN THE GAME'S 10 SECURITIES, BUYING AND SELLING EACH YEAR FOR",-8,0,0,0,0,0,0,0,0,0,0
440 DATA 1,0,0,0,5,0,0,0,0,0,0,0
450 DATA 0,0,0,0,0,-10,0,0,0,0,0,0
460 DATA 1,0,0,0,0,0,0,10,0,0,0,0
470 DATA 0,-8,-5,0,0,0,0,-7,0,0,0,0
480 DATA 1,10,0,0,0,0,0,0,0,0,0,0
490 DATA 0,0,0,0,0,0,0,0,0,-14,0,0
500 DATA 1,-10,0,0CK SPLIT.ANY PLAYERS OWNING SHARES OF THAT"
1190 PRINT"STOCK WILL RECEIVE THE EXTRA SHARES. THE VALUE OF THE STOCK"
1200 PRINT"IS HALVED (ROUNDED UP TO THE NEXT HIGHEST DOLLAR)."
1210 PRINT
1220 PRINT"A TABLE WILL BE PRINTED EACH YEAR GIVING THE CHANGE18,-4
720 DATA -5,13,-8,6,25,4,18,-22,-4
730 DATA -8,-10,-10,-15,-20,-20,-23,-25,-7
740 DATA 5,1,0,4,7,0,0,2,6,3
750 REM
760 REM   SECURITY NAMES
770 REM
780 A$="HIGHWAY IMPROVEMENT BONDS"
790 B$="X-PANDO CORPORATION"
800 C$="SEASIDE PROPERTIES IN0,0,0,0
290 DATA 0,0,-10,0,0,0,0,0,0,0,0,0
300 DATA 1,0,5,0,0,0,0,0,0,0,0,0
310 DATA 0,10,0,0,0,0,0,0,0,0,1,0
320 DATA 1,0,0,0,0,17,0,0,0,0,0,0
330 DATA 0,0,0,0,0,-15,0,0,0,0,0,0
340 DATA 1,0,0,0,0,0,0,0,10,0,0,0
350 DATA 0,0,0,0,0,0,0,-15,0,0,0,0
ILL"
1100 PRINT"GET A CHANCE TO SELL ANY STOCKS HE OWNS OR BUY ANY STOCKS"
1110 PRINT"HE WISHES.  AT THE END OF THE SELECTED NUMBER OF YEARS"
1120 PRINT"EACH PLAYER'S NET WORTH WILL BE CALCULATED AND THE WEALTHIEST"
1130 PRINT"PLAYER WINS!"
1140 PRINT
1050 PRINT"A MAXIMUM OF 10 YEARS (ROUNDS) IN AN ATTEMPT TO BECOME"
1060 PRINT"THE WEALTHIEST PLAYER."
1070 PRINT
1080 PRINT"EACH YEAR ALL PLAYERS WILL RECEIVE DIVIDENDS ON EVERY PAYING"
1090 PRINT"STOCK WHICH IS WORTH $50 OR MORE.  THEN EACH PLAYER W,0,0,0,0,0,0,0,0
510 DATA 0,0,0,0,0,0,-5,0,0,0,0,0
520 DATA -2,-10,7,-9,-2,-9,-7,-16,-4
530 DATA 26,16,25,8,-14,21,14,-4,17
540 DATA 18,23,11,12,46,18,-5,34,15
550 DATA 23,28,-2,11,56,19,30,29,14
560 DATA 20,15,15,7,-20,15,13,-10,12
570 DATA 17,21,1 IN VALUE"
1230 PRINT"OF EACH STOCK, THE PRESENT PRICE, AND THE NUMBER OF SHARES"
1240 PRINT"EACH PLAYER OWNS OF EVERY STOCK. ALSO, ANY DIVIDENDS RECEIVED"
1250 PRINT"FOR THE YEAR WILL BE SHOWN ALONG WITH EACH PLAYERS TOTAL CASH"
1260 PRINT
1270 PRINTC."
810 D$="OLD DOG MUTUAL FUND"
820 E$="RUBBLE DEVELOPMENT"
830 F$="SLIPPERY OIL COMPANY"
840 G$="BUMPY TRANSPORT CO."
850 H$="KRASH AUTO COMPANY"
860 I$="ZAP ELECTRONICS   "
870 J$="BLINKEY POWER & LIGHT CO."
880 REM
970 REM
980 PRINT "WANT INS360 DATA 1,0,0,0,0,0,0,10,0,0,0,0
370 DATA 0,0,0,0,0,0,0,-15,0,0,0,0
380 DATA 1,0,0,-8,0,8,0,0,5,0,0,0
390 DATA 0,-10,0,0,0,0,0,0,0,0,0,0
400 DATA 1,8,0,0,0,0,0,0,0,0,0,0
410 DATA 0,0,0,0,0,0,0,-10,0,0,0,0
420 DATA 1,0,0,3,0,0,0,0,0,4,0,0
430 DATA 0
1150 PRINT"IF THE VALUE OF ANY STOCK FALLS TO 0,THAT STOCK GOES BANKRUPT"
1160 PRINT"AND ALL SHARES ARE SURRENDERED.THE VALUE OF THE STOCK IS THEN"
1170 PRINT"ESTABLISHED AT $100. IF THE VALUE OF ANY STOCK REACHES $150,"
1180 PRINT"THERE WILL BE A STO10,-10,30,6,-19,22,-2
650 DATA 9,10,7,-5,-20,12,21,18,7
660 DATA 7,8,5,-6,-40,3,16,-14,4
670 DATA 8,6,4,-4,40,8,4,-12,3
680 DATA 6,4,3,3,-15,5,8,-8,5
690 DATA 5,7,-1,-3,45,6,-10,10,4
700 DATA -2,6,-3,-8,-20,7,10,14,6
710 DATA 11,11,-5,-7,30,10,-11,-3,-2,37,23,23,19,14
580 DATA 19,24,17,9,-5,26,13,-7,15
590 DATA 11,18,14,11,67,15,22,18,13
600 DATA 13,31,1,14,-11,18,18,-14,10
610 DATA 14,-8,19,1,-9,25,-10,13,19
620 DATA 24,24,23,20,51,27,38,33,18
630 DATA 12,14,13,10,10,20,21,25,8
640 DATA 7,-6,MBER OF PLAYERS (1 TO 4)=";
1360 INPUT P
1370 IF P>4 THEN 1360
1380 IF P<=0 THEN 1360
1390 FOR I=1 TO 4: FOR J=1 TO 12: M(I,J)=0: NEXT J: NEXT I
1400 PRINT
1410 PRINT "NUMBER OF YEARS (3 TO 10)=";
1420 INPUT S
1430 IF S<3 THEN 1420
1440 IF S>10 THT N
2960 GOTO 1560
2970 REM
2980 REM
2990 REM   CLOSING OUT AT END OF GAME - PRINT FINAL TOTALS
3000 REM
3010 PRINT
3020 PRINT
3030 PRINT "*** FINAL TOTALS ARE:"
3040 PRINT
3050 PRINT "PLAYER          TOTAL"
3060 FOR N=1 TO P
3070 FOR J=1 TO 10M(J,N+2);
2330 NEXT J
2340 PRINT
2350 NEXT N
2360 PRINT
2370 PRINT "DIVIDENDS FOR YEAR";
2380 FOR N=1 TO P
2390 PRINT TAB(18+8*N);M(N,12);
2400 NEXT N
2410 PRINT
2420 PRINT
2430 PRINT "NEW CASH TOTAL";
2440 FOR N=1 TO P
2450 PRINT TAB(18+8*N);,N-1)
1670 W$="BULL"
1680 T(N)=T(N)+F(N-1)
1690 REM
1700 REM   CHECK FOR STOCK SPLITS
1710 REM
1720 IF T(N)<150 THEN 1840
1725 PRINT
1730 PRINT "*** "+S$+" STOCKS SPLIT ***"
1740 IF T(N)/2=INT(T(N)/2) THEN 1770
1750 T(N)=INT(T(N)/2)+1
1760 GOTO N,1)=M(N,1)+R*T(J)
2750 GOTO 2560
2760 PRINT
2770 FOR J=1 TO 10
2780 IF M(N,1)>T(J) THEN 2810
2790 NEXT J
2800 GOTO 2950
2810 PRINT "WANT TO BUY";
2820 INPUT R$
2830 IF R$="N" THEN 2950
2840 IF R$<>"Y" THEN 2820
2850 GOSUB 3160
2860 PRINT "NUMBURRENT VALUES
2100 REM
2120 PRINT "*** YEAR ";Y;"*** "+W$+" MARKET ***"
2130 PRINT
2140 PRINT TAB(23);"PLAYER HOLDINGS    YEAR ";Y
2150 PRINT
2160 PRINT TAB(6);" +/-$    PRICE";
2170 FOR N=1 TO P
2180 PRINT TAB(18+8*N);N;
2190 NEXT N
2200 PRINT
EN 1420
1450 FOR I=1 TO 9: F(I)=0: NEXT I
1460 FOR N=1 TO P
1470 M(N,1)=5000
1480 NEXT N
1490 FOR I=1 TO 10: T(I)=100: NEXT I
1510 Y=0
1520 REM
1530 REM
1540 REM   FIND MARKET CHANGES FOR NEXT ROUND,SEE IF BULL OR BEAR MARKET
1550 REM
1560 D=INT2520 REM
2530 FOR N=1 TO P
2540 PRINT
2550 PRINT "***  PLAYER ";N;" ***"
2560 PRINT
2570 PRINT "YOU NOW HAVE $";M(N,1)
2580 FOR J=1 TO 10
2590 IF M(N,J+1)<>0 THEN 2620
2600 NEXT J
2610 GOTO 2770
2620 PRINT "WANT TO SELL";
2630 INPUT R$
2640 IF M(N,1);
2460 NEXT N
2470 PRINT
2471 PRINT
2472 PRINT "NEW NET WORTH ";
2473 GOSUB 4500
2474 FOR N=1 TO P
2475 PRINT TAB(18+8*N);X(N);
2476 NEXT N
2480 IF Y=S THEN 2990
2490 REM
2500 REM
2510 REM   CHECK IF ANYONE WANTS TO SELL OR BUY ANYTHING
1780
1770 T(N)=T(N)/2
1780 FOR J=1 TO P
1790 M(J,N+1)=M(J,N+1)*2
1800 NEXT J
1810 REM
1820 REM   CHECK FOR BANKRUPT STOCKS
1830 REM
1840 IF T(N)>0 THEN 1910
1850 T(N)=100
1860 FOR J=1 TO P
1870 M(J,N+1)=0
1880 NEXT J
1890 PRINT "*** "+S$+" WENER OF SHARES";
2870 INPUT R
2880 IF R*T(J)<=M(N,1) THEN 2910
2890 PRINT "ONLY MONEY ENOUGH FOR ";INT(M(N,1)/T(J));"SHARES"
2900 GOTO 2860
2910 M(N,J+1)=M(N,J+1)+R
2920 M(N,1)=M(N,1)-R*T(J)
2930 PRINT "YOU NOW HAVE $";M(N,1)
2940 GOTO 2760
2950 NEX2210 PRINT
2220 PRINT LEFT$(V$,3);TAB(7);"0";TAB(15);"100";
2230 FOR N=1 TO P
2240 PRINT TAB(18+8*N);M(N,2);
2250 NEXT N
2260 PRINT
2270 FOR N=1 TO 9
2280 PRINT MID$(V$,3*N+1,3);TAB(7);F(N);TAB(15);T(N+1);
2310 FOR J=1 TO P
2320 PRINT TAB(18+8*J);(RND(1)*11+1)
1570 C=INT(RND(1)*36+1)
1580 IF A(C,12)=1 THEN 1570
1590 A(C,12)=1
1600 FOR N=2 TO 10
1605 GOSUB 4000
1610 IF A(C,1)=1 THEN 1660
1620 W$="BEAR"
1630 F(N-1)=A(C,N)+E(D,N-1)
1640 T(N)=T(N)+F(N-1)
1650 GOTO 1720
1660 F(N-1)=A(C,N)+U(DR$="N" THEN 2760
2650 IF R$<>"Y" THEN 2630
2660 GOSUB 3160
2670 PRINT "NUMBER OF SHARES";
2680 INPUT R
2690 IF R<=M(N,J+1) THEN 2720
2700 PRINT "*** YOU ONLY HAVE ";M(N,J+1);" SHARES ***"
2710 GOTO 2670
2720 PRINT
2730 M(N,J+1)=M(N,J+1)-R
2740 M(=M(N,12)+K(J)*M(N,J+1)
2010 NEXT J
2020 IF A(C,11)=0 THEN 2050
2030 M(N,12)=M(N,12)+M(N,3)*2
2040 PRINT "*** X-PANDO CORP. PAYS $2 DIVIDENDS PER SHARE ***"
2050 M(N,1)=M(N,1)+M(N,12)
2060 NEXT N
2070 REM
2080 REM
2090 REM   PRINT WHAT HAPPENED & CT BANKRUPT ***"
1900 PRINT "THESE STOCKS MUST BE SURRENDERED"
1910 NEXT N
1920 Y=Y+1
1930 REM
1940 REM   ADD EACH PLAYERS DIVIDENDS TO TOTAL CASH
1950 REM
1960 FOR N=1 TO P
1970 M(N,12)=0
1980 FOR J=1 TO 10
1990 IF T(J)<50 THEN 2010
2000 M(N,12)
3080 M(N,1)=M(N,1)+T(J)*M(N,J+1)
3090 NEXT J
3100 PRINT
3110 PRINT N,M(N,1)
3120 NEXT N
3130 STOP
3140 REM
3150 REM
3160 REM   SUBROUTINE TO LOOK UP STOCK NAMES FOR BUY & SELL
3170 REM
3180 PRINT "NAME OF STOCK";
3190 INPUT R$
3200 FOR J=1 TO$
310 IF LEFT$(F$,2)="WR" THEN 100
320 IF LEFT$(F$,2)="PR" THEN 1500
330 IF LEFT$(F$,2)="ED" THEN 2000
340 IF LEFT$(F$,2)="EN" THEN END
400 PRINT "FUNCTIONS ARE:"
410 PRINT "WRITE","PRINT","EDIT","END"
500 GOTO 300
999 REM *** LAST CHARACTER EDIT S1 GOTO 147
142 PRINT : PRINT
143 PRINT "YOUR QUESTION :"
144 PRINT Q$ : PRINT
145 PRINT "MY ANSWER (AFTER"; CX; "AGONIZING STEPS) :"
146 RETURN
147 PRINT : PRINT
148 PRINT "DO YOU NEED HELP IN MAKING ANOTHER DECISION (Y OR N)"
149 INPUT Q$
150 IF X(N)=W+M(N,1)
4560 NEXT N
4570 RETURN
9000 END
9100 REM ASDFGHJKL
OR J=1 TO 10
4530 W=W+T(J)*M(N,J+1)
4540 NEXT J
4550 095 RETURN
4100 S$=J$
4105 RETURN
4500 FOR N=1 TO P
4510 W=0
4520 FOR J=1 TO 10
4530 W=W+T(J)*M(N,J+1)
4540 NEXT J
4550 INP(1):A=A AND 127
171 IF A=92 THEN 202
180 IF A=13 THEN 280
190 IF A=95 THEN 260
200 IF A=64 THEN A$(I)="":PRINT:GOTO 150
201 GOTO 210
202 B$="": IF K>=T THEN PRINT"":GOTO 160
203 FOR TAB =1 TO T-K:B$=B$+" ":NEXT TAB
204 PRINTB$;
205 K=K+T-1
207R$=": NO"
124 PRINT "THE '<*>' IS THE BOUNCING BALL OF FATE..."
125 PRINT "HIT SPACE BAR TO ANSWER YOUR QUESTION"
126 PRINT : PRINT : PRINT
127 PRINT TAB(10); AL$; TAB(XX); A$; TAB(61); AR$
128 WAIT 0,1,1
129 PRINT TAB(10); AL$; TAB(XX); A$; TAB(61); 10
3210 IF LEFT$(R$,2)=MID$(V$,3*J-2,2) THEN 3240
3220 NEXT J
3230 GOTO 3180
3240 RETURN
3250 REM
4000 ON N GOTO 4010,4020,4030,4040,4050,4060,4070,4080,4090,4100
4010 S$=A$
4015 RETURN
4020 S$=B$
4025 RETURN
4030 S$=C$
4035 RETURN
4040 S$=D$ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееLEFT$(Q$,1)="Y" THEN RUN
151 PRINT CHR$(26) : END
O YOU NEED HELP IN MAKING ANOTHER DECISION (Y OR N)"
149 INPUT Q$
150 IF TEPS) :"
146 RETURN
147 PRINT : PRINT
148 PRINT "DO YOU NEED HELP IN MAKING ANOTHER DECISION (Y OR N)"
149 INPUT Q$
150 IF 
100 REM EXECUTIVE DECISION MAKER
101 REM WRITTEN BY W.A.BURTON
102 REM INTENDED FOR CRT'S AT HIGH BAUD RATES
103 CLEAR : WIDTH 80 : PRINT CHR$(26)
104 DIM Q$(80) : XX=36
105 PRINT TAB(15); "*** EXECUTIVE DECISION MAKER ***"
106 PRINT : PRINT : PRIN GOTO 220
210 B$=CHR$(A):PRINT B$;
220 A$(I)=A$(I) + B$:K=K+1
230 IF A$(I)="END"THEN K2=I:GOTO 1500
240 IF LEN(A$(I))>69 THEN 280
250 GOTO 160
260 GOSUB 1000
270 GOTO 160
280 PRINT:NEXT I
299 REM *** PROGRAM CONTROL SECTION
300 INPUT "FUNCTION";F AR$
130 W=RND(1)
131 IF W<.5 THEN XX=XX+2 ELSE XX=XX-2
132 IF XX<16 THEN PRINT CHR$(26) : GOTO 136
133 IF XX>=59 THEN PRINT CHR$(26) : GOTO 139
134 CX=CX+1
135 GOTO 129
136 GOSUB 142
137 PRINT "YES"
138 GOTO 147
139 GOSUB 142
140 PRINT "NO"
14
4045 RETURN
4050 S$=E$
4055 RETURN
4060 S$=F$
4065 RETURN
4070 S$=G$
4075 RETURN
4080 S$=H$
4085 RETURN
4090 S$=I$
4095 RETURN
4100 S$=J$
4105 RETURN
4500 FOR N=1 TO P
4510 W=0
4520 FOR J=1 TO 10
4530 W=W+T(J)*M(N,J+1)
4540 NEXT J
4550 
10 REM **** TEXT EDITOR
70 GOTO 300
99 REM *** WRITE SECTION
100 CLEAR 8000
110 DIM A$(100)
111 INPUT"SET TAB AT NUMBER ";T
112 T=T-1
120 PRINT "READY":WAIT 0, 1, 1
130 PRINT:PRINT:PRINT:PRINT
140 FOR I=1 TO 1000
150 K=0
160 WAIT 0,1,1
170 A=T Q$
112 PRINT : PRINT
113 REM THIS IS A 'PSEUDO-RANDOMIZE' ROUTINE
114 FOR X=1 TO LEN(Q$)
115 Z$=MID$(Q$,X,1)
116 Z=ASC(Z$)
117 Y=Y+Z
118 NEXT X
119 Y=Y MOD 97
120 FOR X=1 TO Y
121 Z=RND(1) : Z1=RND(Y)
122 NEXT X
123 A$="<*>" : AL$="YES :" : AT
107 PRINT "WHAT IS THE DECISION THAT YOU WOULD LIKE ME TO MAKE FOR YOU"
108 PRINT "TYPE IN YOUR QUESTION WHICH CAN BE ANSWERED 'YES OR NO'; AND"
109 PRINT "KEEP IT SHORTER THAN ONE LINE (INCLUDING SPACES)."
110 PRINT : PRINT : PRINT : PRINT
111 INPUECTION
1000 C$=A$(I)
1005 IF K=0 THEN PRINT CHR$(7):RETURN
1010 IF K=1 THEN A$(I)="":PRINT CHR$(7):K=0:RETURN
1020 K=K-1:A$(I)=LEFT$(C$,K)
1030  PRINT:PRINT A$(I)
1040 RETURN
1499 REM *** PRINT SECTION
1500 PRINT:PRINT:PRINT:PRINT
1510 FOR I=1 TO 200 T=LEN(A$(LN))-(N+N2)
5210 T2$=RIGHT$(A$(LN),T)
5220 T$=MID$(A$(LN),(N+1),N2)
5230 PRINTT1$;"/";T$;"/";T2$
5240 INPUT "CORRECT ";C$
5250 IF LEFT$(C$,1)<>"Y" THEN 5170
5260 A$(LN)=T1$+T2$
5270 PRINT A$(LN)
5280 GOTO 300
5399 REM *** LINE DELETE 150 PRINT T1$
4160 WAIT 0,1,1
4170 A=INP(1):A=A AND 127
4180 IF A=13 THEN 4210
4190 T$=T$+CHR$(A):PRINT CHR$(A);
4200 IF LEN(A$(LN))+LEN(T$)=69 THEN PRINT "";
4205 GOTO 4160
4210 A$(LN)=T1$+T$+T2$:PRINT T2$
4220 GOTO 300
4399 REM *** LINE INSERT SE"THEN 2090
2080 GOTO 2120
2090 PRINT"TYPES OF EDITING ARE:"
2100 PRINT "CHANGE","INSERT","DELETE"
2105 PRINT "SEARCH","LIST"
2110 GOTO 2050
2120 IF E$="DE" THEN 5000
2125 IF E$="SE" THEN 5600
2130 IF E$="IN" THEN 4000
2134 IF E$="LI" THEN 2002
2 5400
5030 GOTO 5000
5099 REM *** CHARACTER DELETE SECTION
5100 INPUT "WHICH LINE ";LN
5110 PRINT A$(LN):INPUT "CORRECT LINE ";CL$
5120 IF LEFT$(CL$,1)<>"Y" THEN 5100
5130 INPUT "AFTER WHICH CHARACTER ";N
5140 IF N=0 THEN PRINT"DELETE STARTS WITH CH0 IF LEFT$(LL$,2)="LI" THEN 4400
4030 GOTO 4000
4049 REM *** LETTER INSERT SECTION
4050 INPUT "WHICH LINE ";LN
4060 PRINT A$(LN):INPUT "CORRECT LINE ";CL$
4070 IF LEFT$(CL$,1)<>"Y" THEN 4050
4100 INPUT "AFTER WHICH CHARACTER ";LE
4110 IF LE>LEN(A$(L1000
1520 IF A$(I)="END" THEN 1590
1530 PRINT A$(I)
1540 NEXT I
1560 FOR T=1 TO 5000: NEXT T
1590 PRINT:PRINT:PRINT:PRINT:GOTO 300
2000 GOTO 2050
2001 REM *** EDIT LIST SECTION
2002 PRINT:PRINTTAB(5):FOR I=1 TO 6:PRINT"1234567890";:NEXT
2003 PRINT
4490 A=INP(1):A=A AND 127
4500 IF A=13 THEN 4560
4510 IF A=95 THEN 4800
4520 IF A=64 THEN A$(LN)="":PRINT:GOTO 4480
4530 B$=CHR$(A):PRINT B$;:K=K+1
4540 A$(LN)=A$(LN)+B$
4550 GOTO 4480
4560 PRINT:GOTO 300
4800 IF K=0 THEN PRINT"":GOTO 4480
4802 ECTION
4400 INPUT"AFTER WHICH LINE ";LN
4410 PRINT A$(LN):INPUT"CORRECT LINE ";CL$
4420 IF LEFT$(CL$,1)<>"Y" THEN 4400
4430 LN=LN+1
4440 FOR L=K2 TO LN STEP -1
4450 A$(L+1)=A$(L)
4460 NEXT L:K2=K2+1
4470 PRINT"READY ":A$(LN)="":K=0
4480 WAIT 0,1,1139 REM *** EDIT CHANGE SECTION
2140 INPUT "WHICH LINE ";LN
2150 PRINT A$(LN)
2160 INPUT "CORRECT LINE ";CL$
2170 IF LEFT$(CL$,1)<>"Y" THEN 2140
2180 GOTO 3000
3000 INPUT "WHICH CHARACTER ";C
3010 PRINTMID$(A$(LN),C,1)
3020 INPUT "CORRECT CHARACTERARACTER 1":GOTO 5170
5145 PRINT MID$(A$(LN),N,1)
5150 INPUT "CORRECT CHARACTER ";CC$
5160 IF LEFT$(CC$,1)<>"Y" THEN 5130
5170 INPUT"DELETE HOW MANY ";N2
5180 IF LEN(A$(LN))-N<N2 THEN 5170
5185 IF N=0 THEN T1$="":GOTO 5200
5190 T1$=LEFT$(A$(LN),N)
5N)) THEN 4100
4111 IF LE=0 THEN PRINT"INSERT STARTS AT FIRST POSITION":T1$="":GOTO4143
4120 PRINT MID$(A$(LN),LE,1):INPUT"CORRECT CHARACTER ";CC$
4130 IF LEFT$(CC$,1)<>"Y" THEN 4100
4140 T1$=LEFT$(A$(LN),LE)
4143 T2$=MID$(A$(LN),(LE+1))
4145 T$=""
4
2004 FOR I=1 TO 1000
2010 IF A$(I)="END" THEN 2050
2020 PRINT I;TAB(5);A$(I)
2030 NEXT I:PRINT:PRINT
2049 REM *** EDIT CONTROL SECTION
2050 INPUT"TYPE OF EDIT ";TE$
2060 E$=LEFT$(TE$,2)
2070 IF E$<>"CH"AND E$<>"IN"AND E$<>"DE"AND E$<>"LI"ANDE$<>"SIF K=1 THEN K=0:A$(LN)="":PRINT"":GOTO 4480
4803 A$(LN)=LEFT$(A$(LN),K-1):K=K-1
4810 PRINT:PRINT A$(LN);
4820 GOTO 4480
4999 REM *** DELETE SECTION
5000 INPUT"CHARACTER OR LINE ";CL$
5010 IF LEFT$(CL$,2)="CH" THEN 5100
5020 IF LEFT$(CL$,2)="LI" THENAIT 0,1,1
3120 Q=INP(1)
3130 Q=Q AND 127
3140 T$=T$+CHR$(Q):PRINT CHR$(Q);
3150 NEXT I2
3160 PRINT T2$
3170 A$(LN)=T1$+T$+T2$
3180 GOTO 300
3999 REM *** EDIT INSERT SECTION
4000 INPUT "LETTER OR LINE ";LL$
4010 IF LEFT$(LL$,2)="LE" THEN 4050
402 ";CC$
3030 IF LEFT$(CC$,1)<>"Y" THEN 3000
3040 INPUT "CHANGE HOW MANY ";N
3050 IF N<0 OR (N+C)>LEN(A$(LN)) THEN 3040
3060 T1$=LEFT$(A$(LN),(C-1))
3070 T=LEN(A$(LN))-(C-1)-N
3080 T2$=RIGHT$(A$(LN),T)
3090 T$="":PRINT T1$;
3100 FOR I2=1 TO N
3110 WSECTION
5400 INPUT "DELETE WHICHH LINE ";WL
5410 IF WL=<0 OR WL>=K2 THEN 5400
5420 PRINT A$(WL):INPUT"CORRECT LINE ";CL$
5430 IF LEFT$(CL$,1)<>"Y" THEN 5400
5440 IF A$(WL)="END" THEN 300
5450 FOR J=WL TO K2-1
5460 A$(J)=A$(J+1)
5470 NEXT J:K2=K2-1

21 PRINT "ENTRY ";R1$;" NOT LEGAL IN BASE ";R2 : GOTO 17
22 L(L)=J-1
23 NEXT L : Q1=LEN(R1$) : Q=0 : Q2=1
24 Y=0 : N=0
25 FOR L=Q2 TO Q1 : N=N*R2+L(L) : C=INT(N/R3) : N=N-R3*C
26 IF Y=0 THEN 29
27 Y=Y+1 
28 L(Y)=C : GOTO 31
29 IF C=0 THEN 31
30 360 PRINT TAB(L)"<---" : RETURN
370 PRINT :PRINT : PRINT
380 FOR I=1 TO N
390 PRINT A$(I)
400 NEXT I
410 PRINT : PRINT : PRINT
420 INPUT "IS THERE ANY LINE(S) YOU WANT TO CHANGE";Z$
430 IF LEFT$(Z$,1)="Y" THEN 440 ELSE 180
440 PRINT "WHEN ENTERING EN Y=1:GOTO 5770
5765 GOTO 5780
5770 PRINTCHR$(34);A1$;CHR$(34);"  CAN BE FOUND ON :"
5780 PRINT "LINE";I;",POSITION";J;"."
5950 NEXT J
6000 NEXT I
6100 IF Y=0 THEN PRINTCHR$(34);A1$;CHR$(34);" IS NOT IN THE TEXT."
6110 GOTO 300
,POSITION";J;"."
LMNOPQRSTUVWXYZ"
7 PRINT "TO CHANGE BASES USED ENTER '---' WHEN PROMPTED WITH '?'"
8 INPUT "IN WHAT BASE WILL NUMBER(S) BE ENTERED ";R2
9 IF R2<>INT(R2) THEN 39
10 IF R2<2 THEN 41
11 IF R2>36 THEN 37
12 INPUT "TO WHAT BASE WILL NUMBER(S) BE CONVERTEDT I : GOTO 370
180 PRINT : PRINT
190 PRINT "PRESS SPACE BAR FOR FORMATTED COPY" : WAIT 0,1,255
200 PRINT : PRINT
210 FOR J=1 TO N : K=0 : A=LEN(A$(J))
220 IF A<LL/1.3 THEN PRINT A$(J) : GOTO 300
230 B=(LL+1)-A
240 FOR I=1 TO A
250 T=T+1
260 IF T+K
5480 INPUT "NEXT LINE ALSO ";NL$
5490 IF LEFT$(NL$,1)="Y" THEN 5440
5500 GOTO 300
5599 REM *** EDIT SEARCH SECTION
5600 PRINT "WHAT PHRASE ";
5605 A1$="":Y=0
5610 WAIT 0,1,1
5620 A=INP(1):A=A AND 127
5630 IF A=13 THEN PRINT:GOTO 5700
5640 IF A=64 BE CHANGED"; Z$
520 IF LEFT$(Z$,1)="Y" THEN 450 ELSE 180
530 END
NE" : PRINT
500 INPUT A$(I)
510 INPUT "ANY MORE LINES TO Z$
480 IF LEFT$(Z$,1)="Y" THEN 490 ELSE 450
490 PRINT "ENTER NEW LINE" : PRINT
500 INPUT A$(I)
510 INPUT "ANY MORE LINES TONEW LINE, ENCLOSE IN QUOTES AND ADD SPACE AT END"
450 INPUT "WHICH LINE"; I
460 PRINT : PRINT A$(I)
470 INPUT "CORRECT LINE"; Z$
480 IF LEFT$(Z$,1)="Y" THEN 490 ELSE 450
490 PRINT "ENTER NEW LINE" : PRINT
500 INPUT A$(I)
510 INPUT "ANY MORE LINES TO
10 PRINT"PRINT FORMAT PROGRAM" : PRINT
20 CLEAR 6000
30 INPUT "HOW MANY LINES WILL YOU TYPE";N
40 PRINT "IF YOU FINISH BEFORE TYPING";N;"LINES, TYPE '---'"
41 PRINT
50 INPUT "MAXIMUM LENGTH OF LINES TO BE TYPED";LL
51 PRINT
60 PRINT "IF YOUR LINE  ";R3
13 IF R3<>INT(R3) THEN 40
14 IF R3<2 THEN 42
15 IF R3>36 THEN 38
16 PRINT "INPUT YOUR NUMBER(S) WHEN PROMPTED WITH A '?'"
17 INPUT R1$
18 IF R1$="---" THEN 8
19 FOR L=1 TO LEN(R1$):FOR J=1 TO R2:IF MID$(R1$,L,1)=MID$(R$,J,1) THEN 22
20 NEXT J=LL+1 THEN T=0 : GOTO 300
270 IF MID$(A$(J),I,1)=" " AND K<B THEN PRINT " "; : K=K+1
280 PRINT MID$(A$(J),I,1);
290 NEXT I
300 PRINT
310 NEXT J
320 PRINT : PRINT  : PRINT
330 INPUT "WANT TO DO IT AGAIN";Z$
340 IF LEFT$(Z$,1)="Y" THEN 190
350 END
 OR A=95 THEN A1$="":GOTO 5600
5650 B$=CHR$(A):PRINT B$;:A1$=A1$+B$
5655 GOTO 5610
5700 L=LEN(A1$)
5710 FOR I=1 TO 1000
5720 IF LEN(A$(I))<L THEN 6000
5730 FOR J=1 TO LEN(A$(I))-1
5740 IF A1$=MID$(A$(I),J,L) THEN 5760
5750 GOTO 5950
5760 IF Y=0 TH
1 'BASE-CONVERSIONS
2 'COPYRIGHT 1977 (C) BY W.A.BURTON - ALL RIGHTS RESERVED
3 PRINT CHR$(26) : PRINT "BASE CONVERSIONS" : PRINT
4 PRINT "ONLY INTEGER BASES IN RANGE OF 2-36 ARE VALID"
5 DIM R$(36), R1$(72), Y(72), L(72)
6 R$="0123456789ABCDEFGHIJK LINE LENGTH IS AS FOLLOWS:"
110 GOSUB 360
120 PRINT "DO NOT EXCEED THIS LENGTH !" : PRINT
130 FOR I=1 TO N : INPUT A$(I) : X=X+1 : Q=Q+1
140 IF A$(I)="---" THEN I=N : N=X-1 : GOTO 370
150 A$(I)=A$(I)+CHR$(32)
160 IF Q=5 THEN GOSUB 360 : Q=0
170 NEXIS SHORT AND NEAR END OF PARAGRAPH,"
70 PRINT "TYPE FILL SPACES TO END OF LINE"
71 PRINT
72 PRINT "NOTE !!! YOU MAY NOT USE ANY COMMAS AT ALL..."
73 PRINT "TO DO SO WILL DESTROY REST OF LINE." : PRINT
80 L=LL+2
90 DIM A$(N)
100 PRINT "YOUR ALLOWABLEY=1 : GOTO 28
31 NEXT L
32 Q=Q+1 : Y(Q)=N : Q1=Y : IF Y>0 THEN 24
33 PRINT TAB(20) R1$; " ";
34 FOR X1=POS(X+2) TO 38 : PRINT "-"; : NEXT
35 FOR L=Q TO 1 STEP -1 : G=Y(L)+1 : PRINT MID$(R$,G,1); : NEXT L
36 PRINT : GOTO 17
37 GOSUB 44 : GOTO 8
38 G$(4)=A$(5) AND A$(5)=A$(6) THEN M$=" WINNER":GOSUB 78
65 IF A$(4)=A$(5) AND A$(6)=C$ THEN M$=" WINNER":GOSUB 78
66 IF Z$<>Y$ THEN 70
67 N=7
68 IF A$(7)=A$(8) AND A$(8)=A$(9) THEN N$=" WINNER":GOSUB 78
69 IF A$(7)=A$(8) AND A$(9)=C$ THEN N$=" WINNER":G   ---------- SILVER DOLLAR SLOT ----------"
8 B$="    BIG 7    "
9 C$="    -BAR-    "
10 D$="    $1OO     "
11 E$="    FIFTY    "
12 F$="     TEN     "
13 J$="    $5.OO    "
14 G$="    LEMON    "
15 W$="    -------       -------       -------"
16ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее6 GOTO 52
47 IF A(Y)<=26 THEN A$(Y)=E$ ELSE 49
48 GOTO 52
49 IF A(Y)<=55 THEN A$(Y)=F$ ELSE 51
50 GOTO 52
51 IF A(Y)<=94 THEN A$(Y)=J$ ELSE A$(Y)=G$
52 NEXT Y
53 IF A$(1)=G$ THEN A$(1)=J$
54 IF A$(2)=G$ THEN A$(2)=F$
55 IF A$(4)=G$ THEN A$(4)=E$
 FOR N=1 TO N1
19000 PRINT N,B(N),C(N),P(N)
20000 B1=B1+B(N):C1=C1+C(N):P1=P1+P(N)
21000 NEXT N
22000 PRINT"---------","----------","-------","----------"
23000 PRINT"TOTAL",B1,"N/A",P1
=C1+C(N):P1=P1+P(N)
21000 NEXT N
22000 PRINT"---------","----OSUB 44 : GOTO 12
39 GOSUB 43 : GOTO 8
40 GOSUB 43 : GOTO 12
41 GOSUB 45 : GOTO 8
42 GOSUB 45 : GOTO 12
43 PRINT TAB(10) "INVALID ENTRY - MUST BE INTEGER !" : RETURN
44 PRINT TAB(10) "INVALID BASE - MUST BE <=36 !" : RETURN
45 PRINT TAB(10) "INVALIDBET ($1,$2 OR $3) ";M
25 L$="":M$="":N$=""
26 Y$="   ---- PAY LINE ----":X$="":Z$=""
27 IF M>1 THEN X$=Y$
28 IF M=3 THEN Z$=Y$
29 IF M=2 THEN Z$=""
30 IF M<1 THEN 34
31 IF M>3 THEN 34
32 IF M<>INT(M) THEN 34
33 GOTO 35
34 PRINT"INVALID BET, REENT P$="   -------------------------------------"
17 INPUT"WHAT IS YOUR LUCKY NUMBER (1 TO 25OOO)";K
18 IF K>25000 THEN 17
19 IF K<1 THEN 17
20 IF K<>INT(K) THEN 17
21 IF K<71 THEN K=K+77
22 P=K MOD 73
23 FOR O=1 TO P:O1=RND(7):NEXT O
24 INPUT"  YOUR 
100 'THIS TRIVIAL ROUTINE CALCULATE THE PRESENT VALUE
110 'OF A NON-CASH SECURITY WHICH AMORTIZES AND/OR PAYS INTEREST
120 'OR DIVIDENDS.
130 'USEFUL IN EVALUATING THE TREATMENT OF A CLAIM BY CHAPTER X
140 'PLAN OF RE-ORG. OR XI ARRANGEMENT (OR SECT 56 IF A$(5)=G$ THEN A$(5)=J$
57 IF A$(7)=G$ THEN A$(7)=F$
58 IF A$(8)=G$ THEN A$(8)=E$
59 N=1
60 IF X$<>Y$ THEN 63
61 IF A$(1)=A$(2) AND A$(2)=A$(3) THEN L$=" WINNER":GOSUB 78
62 IF A$(1)=A$(2) AND A$(3)=C$ THEN L$=" WINNER":GOSUB 78
63 N=4
64 IF A
1 'COPYRIGHT 1977 BY W.A.BURTON-DO NOT COPY WITHOUT PERMISSION !
2 CLEAR 400
3 PRINT"               SLOT-MACHINE......."
4 PRINT"DO YOU WANT INSTRUCTIONS (Y OR N)":INPUT H$:PRINT CHR$(26)
5 IF H$="Y" GOTO 85
6 IF H$="N" GOTO 7:GOTO 4
7 PRINT"       BASE - MUST BE >=2 !" : RETURN
: RETURN
44 PRINT TAB(10) "INVALID BASE - MUST BE <=36 !" : RETURN
45 PRINT TAB(10) "INVALIDNVALID ENTRY - MUST BE INTEGER !" : RETURN
44 PRINT TAB(10) "INVALID BASE - MUST BE <=36 !" : RETURN
45 PRINT TAB(10) "INVALIDER!!!":GOTO 24
35 M=-M
36 S=S+M:PRINT CHR$(26)
37 FOR X=1 TO 9
38 A(X)=INT(RND(7)*101)
39 NEXT X
40 FOR Y=1 TO 9
41 IF A(Y)<2 THEN A$(Y)=B$ ELSE 43
42 GOTO 52
43 IF A(Y)<=5 THEN A$(Y)=C$ ELSE 45
44 GOTO 52
45 IF A(Y)<=13 THEN A$(Y)=D$ ELSE 47
41=N1+1
8000 A1=A1-B(N)
9000 GOSUB 13000
10000 PRINT A1,P(N),P2
11000 IF A1<1E-08 THEN 16000
12000 NEXT N
13000 P(N)=B(N)/(1+A2/100)^C(N)
14000 P2=P2+P
15000 RETURN
16000 PRINT:PRINT
17000 PRINT"PAYMENT #","AMOUNT","AFTER YRS.","PRES. VAL."
1800077 RAILROAD REORG.)
1000 REM PV OF CASH FLOW STREAM OF RE-PAYMENTS
2000 DIM B(50),C(50),P(50)
3000 INPUT"STARTING PRINCIPAL";A1
4000 INPUT"DISCOUNT RATE, IN %";A2
5000 FOR N=1 TO 999
6000 INPUT"PAYMENTS AND TIME FROM START IN YEARS";B(N),C(N)
7000 NOSUB 78
70 Q$=" "+A$(1)+" "+A$(2)+" "+A$(3)+" "+X$+L$
71 R$=" "+A$(4)+" "+A$(5)+" "+A$(6)+" "+Y$+M$
72 S$=" "+A$(7)+" "+A$(8)+" "+A$(9)+" "+Z$+N$
73 PRINT P$:PRINTQ$:PRINTW$:PRINTR$
74 PRINTW$:PRINTS$:PRINTP$:PRINT:PRINT
75 PRINT"           YOUR STANееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее20 PRINT
130 N=N+1
140 INPUT C$(N)
150 IF C$(N)<>S$ THEN 130
160 N=N-1
170 PRINT
180 L=INT(N/2)+1
190 N1=N
200 IF L=1 THEN 240
210 L=L-1
220 A$=C$(L)
230 GOTO 280
240 A$=C$(N1)
250 C$(N1)=C$(1)
260 N1=N1-1
270 IF N1=1 THEN 390
280 J=L
290 NT"EXAMPLE:   $1OO   $1OO   -BAR- IS A $1OO.OO WINNER..."
91 PRINT
92 PRINT"IF YOU BET $1 ONLY THE CENTER LINE IS A 'PAY LINE'; IF"
93 PRINT"YOU BET $2 THE TOP TWO LINES ARE 'PAY LINES'; IF YOU BET $3"
94 PRINT"ALL THREE LINES ARE PAY LINES.
95 PRINT"STOP CODE----SOMETHING NOT IN YOUR LIST"
720 PRINT "WHICH WILL ACT AS AN 'END OF LIST ' SIGNAL: ";
730 RETURN
740 END
TE A (J)
660 GOTO 590
670 N(I)=A:GOTO 520
680 N(1)=A
690 FOR I=1 TO N:PRINT N(I):NEXT
700 GOTO 30
710 PRINT "PLEASE INDICATE A ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееDING IS: $";S
76 PRINT:PRINT:PRINT:PRINT:PRINT
77 GOTO 24
78 IF A$(N)=B$ THEN S=S+7500
79 IF A$(N)=C$ THEN S=S+2500
80 IF A$(N)=D$ THEN S=S+100
81 IF A$(N)=E$ THEN S=S+50
82 IF A$(N)=F$ THEN S=S+10
83 IF A$(N)=J$ THEN S=S+5
84 RETURN
85 PRINT"GET GOSUB 710 
440 INPUT S:PRINT
450 N=N+1
460 INPUT N(N)
470 IF N(N)<>S THEN 450
480 N=N-1
490 PRINT
500 L=INT(N/2)+1
510 N1=N
520 IF L=1 THEN 550
530 L=L-1
540 A=N(L):GOTO 580
550 A=N(N1):N(N1)=N(1)
560 N1=N1-1
570 IF N1=1 THEN 680
580 J=L
5I=J
300 J=2*J
310 IF J=N1 THEN 350
320 IF J>N1 THEN 380
330 IF C$(J)>=C$(J+1) THEN 350
340 J=J+1
350 IF A$>=C$(J) THEN 380
360 C$(I)=C$(J)
370 GOTO 290
380 C$(I)=A$:GOTO 200
390 C$(I)=A$
400 FOR I=1 TO N
410 PRINT C$(I):NEXT I
420 GOTO 30
430ONLY WINNING COMBINATIONS ON A 'PAY LINE' WILL WIN MONEY..."
96 PRINT"THE 'LEMON' CANCELS THE PAYOFF ON ANY LINE ON WHICH IT APPEARS."
97 PRINT
98 PRINT"IF YOU HAVE BET MORE THAN $1, IT IS POSSIBLE TO HAVE MORE THAN"
99 PRINT"ONE SIMULTANEOUS PAYOFF...ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее
10 CLEAR(500)
20 DIM N(150),C$(150)
30 PRINT:PRINT:PRINT:PRINT "TYPE C FOR CHARACTER STRING SORT,"
40 PRINT "TYPE N FOR NUMBER SORT.";
50 INPUT W$
60 N=0
70 PRINT:PRINT
80 IF W$="N" THEN 430
90 IF W$<> "C" THEN 140
100 GOSUB 710
110 INPUT S$
1 THREE OF A KIND ON A 'PAY LINE' AND YOU WIN THAT AMOUNT"
86 PRINT"THREE 'BIG 7'S PAYS $75OO; THREE -BAR-S PAYS $25OO....."
87 PRINT
88 PRINT"ANY PAIR ON A LINE WITH A -BAR- IN THE THIRD POSITION PAYS"
89 PRINT"AS IF IT WERE THREE OF A KIND..."
90 PRI90 I=J
600 J=2*J
610 IF J=N1 THEN 640
620 IF J>N1 THEN 670
630 IF N(J)<N(J+1) THEN J=J+1
640 IF A>N(J) THEN 670
650 N(I)=N(J)
660 GOTO 590
670 N(I)=A:GOTO 520
680 N(1)=A
690 FOR I=1 TO N:PRINT N(I):NEXT
700 GOTO 30
710 PRINT "PLEASE INDICATE A AD ONLY BET $2......GOOD LUCK !!"
104 PRINT
105 GOTO7
ISS AN ADDITIONAL $5 PAYOFF ON THE LAST"
103 PRINT"LINE BECAUSE YOU HD BE $1O MINUS YOUR $2"
102 PRINT"BET OR $8...YOU WOULD MISS AN ADDITIONAL $5 PAYOFF ON THE LAST"
103 PRINT"LINE BECAUSE YOU H...."
100 PRINT"EXAMPLE: IF YOU HAVE BET $2 AND YOU GET $5.OO SYMBOLS IN EACH"
101 PRINT"POSSIBLE POSITION, YOUR NET GAIN WOULD BE $1O MINUS YOUR $2"
102 PRINT"BET OR $8...YOU WOULD MISS AN ADDITIONAL $5 PAYOFF ON THE LAST"
103 PRINT"LINE BECAUSE YOU H
10 DIM D(5),K1(7),K2(7),K3(7),S(7,7),Q(7,7),D$(5)
20 Q$=".EKB*"
30 D$(0)="WARP ENGINES"
40 D$(1)="SHORT RANGE SENSORS"
50 D$(2)="LONG RANGE SENSORS"
60 D$(3)="PHASERS"
70 D$(4)="PHOTON TORPEDOES":D$(5)="GALACTIC RECORDS"
80 INPUT"PLEASE ENTER A RA D(I)=0 THEN 890
880 D(I)=D(I)-1:IF D(I)<=0 THEN D(I)=0:PRINT D$(I);" ARE FIXED!"
890 NEXT:N=INT(W*8):E=E-N-N+.5:T=T+1:S(S1,S2)=1
900 Y1=S1+.5:X1=S2+.5:IF T>T9 THEN 1370
910 Y=(C-1)*.785398:X=COS(Y):Y=-SIN(Y)
920 FOR I=1 TO N:Y1=Y1+Y:X1=X1+X:Y2=INT(Y1K3(I)-H:H=H/(FND(0)^.4):E=E-H
520 E$="ENTERPRISE FROM":N=E:GOSUB 530:NEXT:RETURN
530 PRINT H;"UNIT HIT ON ";E$;" SECTOR";K1(I)+1;"-";K2(I)+1;
540 PRINT" (";N;"LEFT)":RETURN
550 FOR I=S1-1 TO S1+1:FOR J=S2-1 TO S2+1
560 IF I<0 OR I>7 OR J<0 OR J>7 THENND(Y)*X+Y):NEXT J,I
170 IF K9>(T9-T0) THEN T9=T0+K9
180 IF B9>0 THEN 200
190 GOSUB 450:Q(X,Y)=Q(X,Y)-10:B9=1
200 PRINT LEFT$("STARTREK ADAPTED BY L.E.COCHRAN 2/29/76",8):K0=K9
210 PRINT"OBJECTIVE: DESTROY";K9;"KLINGON BATTLE CRUISERS IN";T9-T0;
220 POR W>12 THEN 710
760 IF W<=.2 OR D(0)<=0 THEN 780
770 I=0:PRINT D$(I);" DAMAGED, MAX IS .2 ";:GOSUB 630:GOTO 750
780 GOSUB 480:IF E<=0 THEN 1370
790 IF RND(1)>.25 THEN 870
800 X=INT(RND(1)*6):IF RND(1)>.5 THEN 830
810 D(X)=D(X)+INT(6-RND(1)*5):PRINT"NDITION: ";CHR$(27)+CHR$(108);C$;CHR$(27)+CHR$(109):GOTO 370
400 PRINT"QUADRANT=";Q1+1;"-";Q2+1:GOTO 370
410 PRINT"SECTOR =";S1+1;"-";S2+1:GOTO 370
420 PRINT"ENERGY=";E:GOTO 370
430 PRINT D$(4);"=";P:GOTO 370
440 PRINT"KLINGONS LEFT=";K9:GOTO 370
450NDOM NUMBER";E$:I=ASC(E$)
90 I=I-11*INT(I/11):FOR J=0 TO I:K=RND(1):NEXT:PRINT"WORKING-"
100 DEF FND(N)=SQR((K1(I)-S1)^2+(K2(I)-S2)^2)
110 GOSUB 610:GOSUB 450:Q1=X:Q2=Y:X=8:Y=1:X1=.2075:Y1=6.28:X2=3.28
120 Y2=1.8:A=.96:C=100:W=10:K9=0:B9=0:S9=400:T9=34;"YEARS ESTIMATED FOR REPAIR.":PRINT
640 IF A=1 THEN RETURN
650 INPUT"COMMAND";A
660 IF A<1 OR A>6 THEN 680
670 ON A GOTO 710,310,1250,1140,690,1300
680 FOR I=0 TO 5:PRINT I+1;"= ";D$(I):NEXT:GOTO 650
690 IF D(4)>0 THEN PRINT"SPACE CRUD BLOCKING TUBE 580
570 IF S(I,J)=4 THEN C$="DOCKED":E=E0:P=P0:GOSUB 610:RETURN
580 NEXT J,I:IF K>0 THEN C$="RED":RETURN
590 IF E<E0*.1 THEN C$="YELLOW":RETURN
600 C$="GREEN":RETURN
610 FOR N=0 TO 5:D(N)=0:NEXT:RETURN
620 PRINT D$(I);" DAMAGED.";
630 PRINT" ";D(I)RINT"YEARS.":PRINT" THE NUMBER OF STARBASES IS";B9
230 A=0:IF Q1<0 OR Q1>7 OR Q2<0 OR Q2>7 THEN N=0:S=0:K=0:GOTO 250
240 N=ABS(Q(Q1,Q2)):Q(Q1,Q2)=N:S=N-INT(N/10)*10:K=INT(N/100)
250 B=INT(N/10-K*10):GOSUB 450:S1=X:S2=Y
260 FOR I=0 TO 7:FOR J=0 TO 7:S(I**SPACE STORM, ";
820 PRINT D$(X);" DAMAGED**":I=X:GOSUB 630:D(X)=D(X)+1:GOTO 870
830 FOR I=X TO 5:IF D(I)>0 THEN 860
840 NEXT
850 FOR I=0 TO X:IF D(I)<=0 THEN NEXT:GOTO 870
860 D(I)=.5:PRINT"**SPOCK USED A NEW REPAIR TECHNIQUE**"
870 FOR I=0 TO 5:IF X=INT(RND(1)*8):Y=INT(RND(1)*8):RETURN
460 GOSUB 450:IF S(X,Y)>1 THEN 460
470 RETURN
480 IF K<1 THEN RETURN
490 IF C$="DOCKED" THEN PRINT"STARBASE PROTECTS ENTERPRISE":RETURN
500 FOR I=0 TO 7:IF K3(I)<=0 THEN NEXT:RETURN
510 H=K3(I)*.4*RND(1):K3(I)=51:GOTO 140
130 K=K+(N<X2)+(N<Y2)+(N<.28)+(N<.08)+(N<.03)+(N<.01):K9=K9-K:GOTO 160
140 T0=3421:T=T0:E0=4000:E=E0:P0=10:P=P0:FOR I=0 TO 7
150 FOR J=0 TO 7:K=0:N=RND(Y):IF N<X1 THEN N=N*64:K=(N<Y1)-Y:GOTO 130
160 B=(RND(Y)>A):B9=B9-B:Q(I,J)=K*C+B*W-INT(RS.";:I=4:GOTO 630
700 N=15:IF P<1 THEN PRINT"NO TORPEDOES LEFT":GOTO 650
710 IF A=5 THEN PRINT"TORPEDO ";
720 INPUT"COURSE (1-8.9)";C:IF C<1 THEN 650
730 IF C>=9 THEN 710
740 IF A=5 THEN P=P-1:PRINT"TRACK:";:GOTO 900
750 INPUT"WARP (0-12)";W:IF W<=0 F E<=0 THEN 1370
330 I=1:IF D(I)>0 THEN 620
340 FOR I=0 TO 7:FOR J=0 TO 7:PRINT MID$(Q$,S(I,J),1);" ";:NEXT J
350 PRINT"  ";:ON I GOTO 380,390,400,410,420,430,440
360 PRINT"YEARS =";T9-T
370 NEXT:GOTO 650
380 PRINT"STARDATE=";T:GOTO 370
390 PRINT"CO,J)=1:NEXT J,I:S(S1,S2)=2
270 FOR I=0 TO 7:K3(I)=0:X=8:IF I<K THEN GOSUB 460:S(X,Y)=3:K3(I)=S9
280 K1(I)=X:K2(I)=Y:NEXT:I=S
290 IF B>0 THEN GOSUB 460:S(X,Y)=4
300 IF I>0 THEN GOSUB 460:S(X,Y)=5:I=I-1:GOTO 300
310 GOSUB 550:IF A=0 THEN GOSUB 480
320 I):X2=INT(X1)
930 IF X2<0 OR X2>7 OR Y2<0 OR Y2>7 THEN 1110
940 IF A=5 THEN PRINT Y2+1;"-";X2+1,
950 IF S(Y2,X2)=1 THEN NEXT:GOTO 1060
960 PRINT:IF A=1 THEN PRINT"BLOCKED BY ";
970 ON S(Y2,X2)-3 GOTO 1040,1020
980 PRINT"KLINGON";:IF A=1 THEN 1050
99060 IF RND(1)>.96 THEN 290
270 B3=0
280 GOTO 300
290 B3=1
300 B9=B9+B3
310 S3=INT(RND(1)*8+1)
320 G(I,J)=K3*100+B3*10+S3
330 NEXT J
340 NEXT I
350 K0=K9
360 IF B9>0 THEN 410
370 I=RND(1)*8+.5
380 J=RND(1)*8+.5
390 G(I,J)=G(I,J)+10
400 B9=1
41$,1)="Y" THEN 110
0;"KLINGONS IN";
1420 PRINT T-T0;"YEARS.  RATING=";INT(K0/(T-T0)*1000)
1430 INPUT"TRY AGAIN";E$:IF LEFT$(E TO ADMIRAL":PRINT K0;"KLINGONS IN";
1420 PRINT T-T0;"YEARS.  RATING=";INT(K0/(T-T0)*1000)
1430 INPUT"TRY AGAIN";E$:IF LEFT$(EO 650
1110 IF A=5 THEN PRINT"MISSED!":GOTO 1090
1120 Q1=INT(Q1+W*Y+(S1+.5)/8):Q2=INT(Q2+W*X+(S2+.5)/8)
1130 Q1=Q1-(Q1<0)+(Q1>7):Q2=Q2-(Q2<0)+(Q2>7):GOTO 230
1140 I=3:IF D(I)>0 THEN 620
1150 INPUT"PHASERS READY: ENERGY UNITS TO FIRE";X:IF X<=0 THEN 6505)=" * "
45 D$(1)="WARP ENGINES":D$(2)="S.R. SENSORS":D$(3)="L.R. SENSORS"
48 D$(4)="PHASER CONTROL":D$(5)="PHOTON TUBES":D$(6)="DAMAGE CONTROL"
70 T0=INT(RND(1)*20+20)*100
80 T=T0
90 T9=40
100 E=3000:E0=3000
110 P=10:P0=10
120 S9=200
130 DEF FND(00"+MID$(E$,2):PRINT RIGHT$(E$,3);
1350 NEXT J:PRINT:NEXT I:GOTO 650
1360 PRINT:PRINT"IT IS STARDATE";T:RETURN
1370 GOSUB 1360:PRINT"THANKS TO YOUR BUNGLING, THE FEDERATION WILL BE"
1380 PRINT"CONQUERED BY THE REMAINING";K9;"KLINGON CRUISERS!"
1390 PR FOR I=0 TO 7:IF Y2<>K1(I) THEN 1010
1000 IF X2=K2(I) THEN K3(I)=0
1010 NEXT:K=K-1:K9=K9-1:GOTO 1070
1020 PRINT"STAR";:IF A=5 THEN S=S-1:GOTO 1070
1030 GOTO 1050:2L29E76C
1040 PRINT"STARBASE";:IF A=5 THEN B=2:GOTO 1070
1050 PRINT" AT SECTOR";Y2+1;"-"ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее
1160 IF X>E THEN PRINT"ONLY GOT";E:GOTO 1150
1170 E=E-X:Y=K:FOR I=0 TO 7:IF K3(I)<=0 THEN 1230
1180 H=X/(Y*(FND(0)^.4)):K3(I)=K3(I)-H
1190 E$="KLINGON AT":N=K3(I):GOSUB 530
1200 IF K3(I)>0 THEN 1230
1210 PRINT"**KLINGON DESTROYED**"
1220 K=K-1:K9=KD)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2)
140 Q1=INT(RND(1)*8+1)
150 Q2=INT(RND(1)*8+1)
170 S1=INT(RND(1)*8+1)
180 S2=INT(RND(1)*8+1)
190 REM: SET UP GALAXY
200 K9=0:B9=0
210 FOR I=1 TO 8
220 FOR J=1 TO 8
230 R=RND(1)*64
240 GOSUB 3920
250 K9=K9+K3
2INT"YOU ARE DEMOTED TO CABIN BOY!":GOTO 1430
1400 GOSUB 1360:PRINT"THE FEDERATION HAS BEEN SAVED!"
1410 PRINT"YOU ARE PROMOTED TO ADMIRAL":PRINT K0;"KLINGONS IN";
1420 PRINT T-T0;"YEARS.  RATING=";INT(K0/(T-T0)*1000)
1430 INPUT"TRY AGAIN";E$:IF LEFT$(E;X2+1:Y2=INT(Y1-Y):X2=INT(X1-X)
1060 S1=Y2:S2=X2:S(S1,S2)=2:A=2:GOTO 310
1070 PRINT" DESTROYED!";:IF B=2 THEN B=0:PRINT". . .GOOD WORK!";
1080 PRINT:S(Y2,X2)=1:Q(Q1,Q2)=K*100+B*10+S:IF K9<1 THEN 1400
1090 GOSUB 480:IF E<=0 THEN 1370
1100 GOSUB 550:GOT
10 REM: MODIFIED FOR ALTAIR BASIC BY ROGER AMIDON AND DOUG MOSER.
20 PRINT:PRINT:PRINT TAB(15);"******  S T A R   T R E K  ******"
25 PRINT:PRINT
30 DIM G(8,8),Q(8,8),D(6),K(9,3),N(3),Q$(5),D$(6)
40 Q$(1)="   ":Q$(2)="<*>":Q$(3)="+++":Q$(4)=">!<":Q$(HEN PRINT"***";:GOTO 1350
1290 Q(I,J)=ABS(Q(I,J)):GOTO 1340
1300 I=5:IF D(I)>0 THEN 620
1310 PRINT"CUMULATIVE GALACTIC MAP FOR STARDATE";T
1320 FOR I=0 TO 7:FOR J=0 TO 7:PRINT"  ";
1330 IF Q(I,J)<0 THEN PRINT"***";:GOTO 1350
1340 E$=STR$(Q(I,J)):E$="9-1:S(K1(I),K2(I))=1:Q(Q1,Q2)=Q(Q1,Q2)-100
1230 NEXT:IF K9<1 THEN 1400
1240 GOTO 1090
1250 I=2:IF D(I)>0 THEN 620
1260 PRINT D$(I);" FOR QUADRANT";Q1+1;"-";Q2+1
1270 FOR I=Q1-1 TO Q1+1:FOR J=Q2-1 TO Q2+1:PRINT"   ";
1280 IF I<0 OR I>7 OR J<0 OR J>7 T0 GOSUB 3770
420 REM: SET UP QUADRANT
430 K3=0:B3=0:S3=0
440 IF Q1<1 THEN 530
450 IF Q1>8 THEN 530
460 IF Q2<1 THEN 530
470 IF Q2>8 THEN 530
480 X=G(Q1,Q2)/100
490 K3=INT(X)
500 B3=INT((X-K3)*10)
510 S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10
530 FOR I=1 T1-X1
2050 S2=S2-X2
2060 GOTO 2080
2070 NEXT I
2080 Q(S1+.5,S2+.5)=1
2090 S1=INT(S1+.5)
2100 S2=INT(S2+.5)
2110 GOTO 750
2120 Q1=INT(Q1+W1*X1+(X-.5)/8)
2130 Q2=INT(Q2+W1*X2+(Y-.5)/8)
2140 GOSUB 4290
2150 S1=INT(RND(1)*8+1)
2160 S2=INT(RND(1)*8+1ANK. TYPE 6 AFTER 'COMMAND?'"
1430 GOTO 1290
1440 REM: WARP DRIVE
1450 PRINT "COURSE (1-8.9999):";
1460 INPUT C1
1470 IF C1=0 THEN 1290
1480 IF C1<1 THEN 1450
1490 IF C1 >= 9 THEN 1450
1500 PRINT "WARP FACTOR (0-12):";
1510 INPUT W1
1515 IF T/5<>="DOCKED"
810 E=3000
820 P=10
830 GOTO 960
840 NEXT J
850 NEXT I
860 IF K3>0 THEN 930
870 IF E<E0*.1 THEN 950
880 FOR I=1 TO 6
890 IF D(I)<0 GOTO 950
900 NEXT I
910 C$="GREEN"
920 GOTO 960
930 C$="RED"
940 GOTO 960
950 C$="YELLOW"
960 IF A>I)=D(I)*RND(1)*.5+1
1830 GOTO 1850
1840 D(I)=0
1850 PRINT"*** TRUCE, ";D$(R1);" STATE OF REPAIR IMPROVED ***"
1860 S=0
1870 N=INT(W1*8)
1880 E=E-N-N+5
1890 T=T+1
1900 Q(S1,S2)=0
1910 X=S1
1920 Y=S2
1930 IF T>T0+T9 THEN 3530
1940 GOSUB 3140
195290 PRINT "COMMAND, CAPTAIN:";
1300 INPUT A
1310 IF A>7 THEN 1420
1320 ON A+1 GOTO 1440,750,2180,2380,2620,3170,1330,7080
1330 PRINT
1340 PRINT "   0 = SET COURSE"
1350 PRINT "   1 = SHORT RANGE SENSOR SCAN"
1360 PRINT "   2 = LONG RANGE SENSOR SCANO 8
540 FOR J=1 TO 8
550 Q(I,J)=0
560 NEXT J
570 NEXT I
580 Q(S1,S2)=1
585 IF K3<1 THEN 655
590 FOR I=1 TO K3
600 GOSUB 3720
610 Q(R1,R2)=2
620 K(I,1)=R1
630 K(I,2)=R2
640 K(I,3)=S9
650 NEXT I
655 IF B3<1 THEN 695
660 FOR I=1 TO B3
670 GOSUOSUB 3410
1600 IF E <= 0 THEN 3560
1610 FOR I=1 TO 6
1620 D(I)=D(I)+1
1630 IF  D(I)<0 THEN 1650
1640 D(I)=0
1650 NEXT I
1660 IF RND(1)>.25 THEN 1870
1670 R1=INT(RND(1)*6+1)
1680 IF RND(1)>.5 THEN 1730
1690 D(R1)=D(R1)-(RND(1)*5+1)
1700 PRINT"***INT(T/5) THEN 1520
1518 GOSUB 4390
1520 IF W1<0 THEN 1450
1530 IF W1>12 THEN 1450
1540 IF W1 <= .2 THEN 1580
1550 IF D(1) >= 0 THEN 1580
1560 PRINT "WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = WARP .2"
1570 GOTO 1450
1580 IF K3 <= 0 THEN 1610
1590 G0 GOTO 980
970 GOSUB 3410
980 IF E <= 0 THEN 3530
990 IF D(2) >= 0 THEN 1040
1000 PRINT
1010 PRINT "***SHORT RANGE SENSORS ARE OUT ***"
1020 PRINT
1030 GOTO 1290
1040 EW$= "-------------------------------"
1041 PRINT EW$
1050 FOR I=1 TO 8
1060 F0 FOR I=1 TO N
1960 S1=S1+X1
1970 S2=S2+X2
1980 IF S1<.5 GOTO 2120
1990 IF S2<.5 GOTO 2120
2000 IF S1>=8.5 GOTO 2120
2010 IF S2>=8.5 GOTO 2120
2020 IF Q(S1+.5,S2+.5)=0 THEN 2070
2030 PRINT "ENTERPRISE BLOCKED BY OBJECT AT SECTOR"S1;"-"S2
2040 S1=S"
1370 PRINT "   3 = FIRE PHASERS"
1380 PRINT "   4 = FIRE PHOTON TORPEDOES"
1390 PRINT "   5 = DAMAGE CONTROL REPORT"
1392 PRINT "   6 = LIST OF COMMANDS"
1394 PRINT "   7 = GALAXY DISPLAY"
1400 PRINT
1410 GOTO 1290
1420 PRINT"DEMOTED 2 STEPS IN RB 3720
680 Q(R1,R2)=3
690 NEXT I
695 IF S3<1 THEN 740
700 FOR I=1 TO S3
710 GOSUB 3720
720 Q(R1,R2)=4
730 NEXT I
740 A=-1
750 REM: SHORT RANGE SENSOR SCAN
760 GOSUB 4120
770 FOR I=W1TO W2
780 FOR J= W3 TO W4
790 IF Q(I,J) <> 3 THEN 840
800 C$ SPACE STORM, ";D$(R1);" DAMAGED ***"
1710 S=0
1720 GOTO 1870
1730 FOR I=R1 TO 6
1740 IF D(I)<0 THEN 1800
1750 NEXT I
1760 FOR I=1 TO R1-1
1770 IF D(I)<0 THEN 1800
1780 NEXT I
1790 GOTO 1860
1800 R1=I
1810 IF D(I)*RND(1)*5+1>0 GOTO 1840
1820 D(N ";C$
1180 GOTO 1120
1190 PRINT "QUADRANT";Q1;"-";Q2
1200 GOTO 1120
1210 PRINT "SECTOR";S1;"-";S2
1220 GOTO 1120
1230 PRINT "ENERGY";E
1240 GOTO 1120
1250 PRINT "PHOTON TORPEDOES";P
1260 GOTO 1120
1270 PRINT "KLINGONS LEFT";K9
1280 GOTO 1120
1OR J=1 TO 8
1070 PRINT Q$(Q(I,J)+1);:PRINT " ";
1080 NEXT J
1090 PRINT "   ";
1100 ON I GOTO 1150,1170,1190,1210,1230,1250,1270,1110
1110 PRINT
1120 NEXT I
1130 PRINT EW$
1140 GOTO 1290
1150 PRINT "STARDATE";T
1160 GOTO 1120
1170 PRINT "CONDITIO)
2170 GOTO 420
2180 REM: LONG RANGE SENSOR SCAN
2190 IF D(3) >= 0 THEN 2220
2200 PRINT "LONG RANGE SENSORS ARE INOPERABLE"
2210 GOTO 1290
2220 PRINT "LONG RANGE SENSOR SCAN FOR QUADRANT"Q1","Q2
2230 EX$= "------------------- "
2231 PRINT EX$
2250DEAD."
3620 STOP
3630 REM: WIN
3640 GOSUB 4380
3650 PRINT "IT IS STARDATE"T
3660 PRINT "THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN"
3670 PRINT "DESTROYED."
3680 PRINT "THE FEDERATION HAS BEEN SAVED"
3690 PRINT "YOU HAVE BEEN PROMOTED TOAR BASE DESTROYED ... CONGRATULATIONS ***"
3060 B3=B3-1
3070 Q(X+.5,Y+.5)=0
3080 G(Q1,Q2)=K3*100+B3*10+S3
3090 GOTO 3110
3100 PRINT "TORPEDO MISSED"
3110 GOSUB 3410
3120 IF E <= 0 THEN 3560
3130 GOTO 1290
3140 X2=COS((C1-1)*.785398)
3150 X1=-SIN(.  ENERGY AVAILABLE = "E
2430 PRINT "NUMBER OF UNITS TO FIRE:";
2440 INPUT X
2450 IF X <= 0 THEN 1290
2460 IF E-X<0 THEN 2420
2470 E=E-X
2480 IF K3=0 THEN 2590
2490 FOR I=1 TO 9
2500 IF K(I,3) <= 0 THEN 2580
2510 H=X/FND(0)*(2+RND(1))
2520 K(I,3)55 FOR I=1 TO 9
3460 IF K(I,3) <= 0 THEN 3510
3470 H=(K(I,3)/FND(0))*(2+RND(1))
3480 E=E-H
3490 PRINT H;"UNIT HIT ON ENTERPRISE FROM KLINGON AT SECTOR"K(I,1);"-";
3495 PRINT K(I,2)
3500 PRINT "("E;"LEFT)"
3510 NEXT I
3520 RETURN
3530 REM: LOSE
35Y>8.5 GOTO 3100
2850 PRINT X;"-"Y;
2860 IF Q(X+.5,Y+.5)=1 GOTO 2790
2870 IF Q(X+.5,Y+.5)<>0 THEN 2890
2880 GOTO 2790
2890 IF Q(X+.5,Y+.5)<>2 THEN 3000
2900 PRINT "*** KLINGON DESTROYED ***"
2910 K3=K3-1
2920 K9=K9-1
2930 IF K9 <= 0 THEN 3630
2940 FOR I=Q1-1 TO Q1+1
2260 N(1)=0:N(2)=0:N(3)=0
2270 FOR J=Q2-1 TO Q2+1
2280 IF I<1 THEN 2330
2290 IF I>8 THEN 2330
2300 IF J<1 THEN 2330
2310 IF J>8 THEN 2330
2320 N(J-Q2+2)=G(I,J)
2330 NEXT J
2340 PRINT ": ";:AB=N(1):GOSUB 7135:PRINT " : ";:AB=N(2
3260 IF D(I)>=0 THEN 3280
3270 PRINT D$(I),INT(D(I));" TURNS"
3280 V=V+D(I)
3290 NEXT I
3300 IF V<0 THEN 3320
3310 PRINT "ALL SYSTEMS","    GO"
3320 PRINT
3330 GOTO 1290
3340 REM:
3350 PRINT "KLINGON AT SECTOR"K(I,1);"-"K(I,2);"DESTROYED!"
3360 (C1-1)*.785398)
3160 RETURN
3170 REM: DAMAGE CONTROL REPORT
3180 IF D(6) >= 0 THEN 3210
3190 PRINT "DAMAGE CONTROL REPORT IS NOT AVAILABLE"
3200 GOTO 1290
3210 PRINT
3220 Z=1
3230 PRINT "DEVICE         STATE OF REPAIR"
3240 V=0
3250 FOR I=1 TO 5
=K(I,3)-H
2530 PRINT H;"UNIT HIT ON KLINGON AT SECTOR"K(I,1);"-"K(I,2)
2540 PRINT "("K(I,3)"LEFT)"
2550 IF K(I,3)>0 THEN 2580
2560 GOSUB 3350
2570 IF K9 <= 0 THEN 3630
2580 NEXT I
2590 GOSUB 3410
2600 IF E <= 0 THEN 3560
2610 GOTO 1290
2620 REM: 40 GOSUB 4380
3550 PRINT "IT IS STARDATE"T
3560 GOTO 3580
3570 GOSUB 4380
3580 PRINT "THE ENTERPRISE HAS BEEN DESTROYED   "
3590 PRINT "THE FEDERATION WILL BE CONQUERED."
3600 PRINT "THERE ARE STILL"K9;"KLINGON BATTLE CRUISERS."
3610 PRINT "YOU ARE  FOR I=1 TO 9
2950 IF INT(Y+.5) <>K(I,2)THEN 2970
2960 IF INT(X+.5)=K(I,1) THEN 2980
2970 NEXT I
2980 K(I,3)=0
2990 GOTO 3070
3000 IF Q(X+.5,Y+.5)<>4 THEN 3040
3010 PRINT "STAR DESTROYED"
3020 S3=S3-1
3030 GOTO 3070
3040 PRINT
3050 PRINT "*** ST):GOSUB 7135
2342 PRINT " : ";:AB=N(3):GOSUB 7135:PRINT " :"
2350 PRINT EX$
2360 NEXT I
2370 GOTO 1290
2380 REM: PHASER CONTROL
2390 IF D(4) >= 0 THEN 2420
2400 PRINT "PHASER CONTROL IS DISABLED"
2410 GOTO 1290
2420 PRINT "PHASERS LOCKED ON TARGETK3=K3-1
3370 K9=K9-1
3380 Q(K(I,1),K(I,2))=0
3390 G(Q1,Q2)=K3*100+B3*10+S3
3400 RETURN
3410 REM: KLINGON ATTACK
3420 IF C$ <> "DOCKED" THEN 3450
3430 PRINT "STAR BASE SHIELDS PROTECT THE ENTERPRISE"
3440 RETURN
3450 IF G(Q1,Q2)<100 THEN RETURN
34 C1=0 THEN 1290
2720 IF C1<1 THEN 2690
2730 IF C1 >= 9 THEN 2690
2740 GOSUB 3140
2750 X=S1
2760 Y=S2
2770 P=P-1
2780 PRINT "TORPEDO TRACK:";
2790 X=X+X1
2800 Y=Y+X2
2810 IF Y<.5 GOTO 3100
2820 IF X<.5 GOTO 3100
2830 IF X>8.5 GOTO 3100
2840 IF PHOTON TORPEDOES
2630 IF D(5) >= 0 THEN 2660
2640 PRINT "PHOTON TUBES ARE NOT OPERATIONAL"
2650 GOTO 1290
2660 IF P>0 THEN 2690
2670 PRINT "ALL PHOTON TORPEDOES EXPENDED"
2680 GOTO 1290
2690 PRINT"TORPEDO COURSE (1-8.9999):";
2700 INPUT C1
2710 IF ADMIRAL."
3700 PRINT K0;"KLINGONS IN"T-T0;"YEARS.  RATING ="INT(K0/(T-T0)*1000)
3710 GOTO 7180
3720 REM: RANDOM NUMBER GENERATOR
3730 R1=INT(RND(1)*8+1)
3740 R2=INT(RND(1)*8+1)
3750 IF Q(R1,R2) <> 0 THEN 3730
3760 RETURN
3770 PRINT "ORDERS:  STARDM     MM"
7015 PRINT"       II       BB   B    MMM   MMM"
7020 PRINT"       II       BB   B    MMMM MMMM"
7030 PRINT"       II       BBBBB     MM MMM MM"
7035 PRINT"       II       BB   B    MM  M  MM"
7040 PRINT"       II       BB    B   MM     MM"
 !"
5035 PRINT"!  TANG  !     SPOCK: SPOCK TO CAPTAIN KIRK. KLINGON BATTLE"
5040 PRINT"!  TANG  !           CRUISERS SIGHTED. CONDITION RED."
5045 PRINT"!        !           APPEARANCE ON BRIDGE REQUESTED."
5050 PRINT"! ORANGE !"
5055 PRINT"! FLAVOR !PPLY."
3860 PRINT"THE ENTERPRISE IS CURRENTLY IN QUADRANT"Q1"-"Q2"SECTOR"
3870 PRINT S1"-"S2". GOOD LUCK."
3880 PRINT TAB(30);"SIGNED,"
3890 PRINT TAB(20);"ADM. RICHARD J. PACKARD"
3900 PRINT TAB(20);"COMMANDER: EARTH FORCES - STAR FLEET COMMAND"
391!   +"
6045 PRINT"  +  !  !  +"
6050 PRINT"   + !  ! +"
6055 PRINT"    +!  !+"
6060 PRINT"     +--+"
6065 PRINT"     !//!    FORD HAS A BETTER IDEA."
6070 PRINT"     !//!"
6075 PRINT"     !//!                       (FORD OF PARMA, OHIO)"
6080 PRINT4340 Q2=8
4350 IF Q2>1 THEN RETURN
4360 Q2=1
4380 RETURN
4390 REM- COMMERCIALS -
4395 IF T/15=INT(T/15) THEN 7000
4400 IF T/10=INT(T/10) THEN 6000
5000 PRINT"************ STAR TREK IS BROUGHT TO YOU BY : **************
5005 PRINT"=========="
5010 ATE = "T
3780 PRINT"TO: COMMANDER - UNITED STARSHIP ENTERPRISE"
3790 PRINT
3800 PRINT"    THE KLINGON VANGUARD OF"K9"BATTLE CRUISERS HAS INVADED"
3810 PRINT"YOUR PATROL AREA. IF THEY ARE NOT DESTROYED IN"T9"STARDATES
3820 PRINT"(I.E. STARDATE"T0+T9") ******************
5095 RETURN
6000 PRINT"************* STAR TREK IS BROUGHT TO YOU BY : *************
6005 PRINT
6010 PRINT"      ---                                FFFF  OO  RRR  DDD"
6015 PRINT"    +    +                               F    O  O R       KIRK: NOT NOW SPOCK. I'M DRINKING"
5060 PRINT"!--------!           MY TANG."
5065 PRINT"=========="
5070 PRINT
5075 PRINT
5080 PRINT"    DRINK TANG ***** CAPTAIN KIRK DOES. *****"
5085 PRINT
5090 PRINT"******************************************0 RETURN
3920 K3=0
3930 IF R>1E-04 GOTO 3950
3940 K3=K3+1
3950 IF R>.01 GOTO 3970
3960 K3=K3+1
3970 IF R>.03 GOTO 3990
3980 K3=K3+1
3990 IF R>.08 GOTO 4010
4000 K3=K3+1
4010 IF R>.28 GOTO 4030
4020 K3=K3+1
4030 IF R>1.28 GOTO 4050
4040 K3=K3+1"     -++-"
6085 PRINT"      --"
6090 PRINT
6095 PRINT"************************************************************
6100 RETURN
7000 PRINT"************* STAR TREK IS BROUGHT TO YOU BY : *************
7005 PRINT
7010 PRINT"   IIIIIIIIII   BBBBB     MPRINT"!++++++++!                TTTTT  A    N  N  GGG"
5015 PRINT"==========                  T   A A   NN N G"
5020 PRINT"!        !                  T  AAAAA  N NN G  GG"
5025 PRINT"!--------!                  T A     A N  N  GGG"
5030 PRINT"!  TANG THE FEDERATION COUNSIL WILL ";
3825 PRINT "SURRENDER"
3830 PRINT"DUE TO THE THREAT OF ROMULAN INTERVENTION. AT LEAST ONE"
3840 PRINT"STARBASE IS KNOWN TO HAVE SURVIVED KLINGON DETECTION AND"
3850 PRINT"DESTRUCTION. IT MAY BE USEFUL FOR PURPOSES OF RESUR D  D
6020 PRINT"   +      +                              FFF  O  O RRR  D  D
6025 PRINT"  +        +                             F     OO  R  R DDD"
6030 PRINT" +   QQQQ   +                            F"
6035 PRINT" +   !  !   +"
6040 PRINT" +   !  0
4190 W2=8
4200 IF S2-1<1 GOTO 4230
4210 W3=S2-1
4220 GOTO 440
4230 W3 = 1
4240 IF S2+1>8 GOTO 4270
4250 W4=S2+1
4260 GOTO 4280
4270 W4=8
4280 RETURN
4290 IF Q1<8 GOTO 4310
4300 Q1=8
4310 IF Q1>1 GOTO 4330
4320 Q1=1
4330 IF Q2<8 GOTO 4350

4050 IF R>3.28 GOTO 4070
4060 K3=K3+1
4070 IF R>6.28 GOTO 4090
4080 K3=K3+1
4090 IF R>13.28 GOTO 4110
4100 K3=K3+1
4110 RETURN
4120 IF S1-1<1 GOTO 4150
4130 W1=S1-1
4140 GOTO 4160
4150 W1=1
4160 IF S1+1>8 GOTO 4190
4170 W2=S1+1
4180 GOTO 4207045 PRINT"   IIIIIIIIII   BBBBBB    MM     MM"
7050 PRINT
7055 PRINT"                                   NOT JUST DATA -"
7060 PRINT"                                             BUT REALITY"
7070 PRINT"**************************************************ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее65 PRINT EZ$;
7170 RETURN
7180 END
Y$,2)
7150 LN=LEN(EZ$)
7155 IF LN=1 THEN EZ$=WX$+EZ$
7160 IF LN=2 THEN EZ$=WE$+EZ$
7100"
7140 WY$=STR$(AB)
7145 EZ$=MID$(WY$,2)
7150 LN=LEN(EZ$)
7155 IF LN=1 THEN EZ$=WX$+EZ$
7160 IF LN=2 THEN EZ$=WE$+EZ$
71ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее**********
7075 RETURN
7080 REM: GALAXY DISPLAY COMMAND '7'
7082 PRINT "GALAXY DISPLAY :"
7085 EW$="---------------------------------------------------"
7095 FOR I=1 TO 8
7100 PRINT EW$
7105 FOR J=1 TO 8
7110 PRINT " : ";:AB=G(I,J):GOSUB 7135
7115ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее NEXT J
7118 PRINT " :"
7120 NEXT I
7125 PRINT EW$
7130 GOTO 1290
7135 REM: ** SIMULATES PRINT USING **
7138 WE$="0":WX$="00"
7140 WY$=STR$(AB)
7145 EZ$=MID$(WY$,2)
7150 LN=LEN(EZ$)
7155 IF LN=1 THEN EZ$=WX$+EZ$
7160 IF LN=2 THEN EZ$=WE$+EZ$
71ееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееееее