8F BASE 1 ASSIGN (2,),CODENUM(2),CODENAM$(2),BEHAV$(2) INPUT "DO YOU WISH TO USE CODES AS THE CODE FILE (Y/N)";M$ IF M$="Y" OR M$="y" THEN THISFIL$="CODES" : GOTO 304 "ENTER NAME OF CODE FILE YOU WISH TO USE";THISFIL$Y THISFIL$"" THISFIL$"CODES"y THISFIL$".COD" AS #( "ASGNMNT" AS #+ #, DROP$,DROP$, #,DROP$2COUNT< I  2F #,A,BPCOUNTCOUNTZASSIGN(I,)AdASSIGN(I,)B+n () 3x IC I 2Q #,C,D$bCODENUM(I)Cw CODENAM$(I)D$ ()  I JE J2 , JJK K 2 CODENUM(J) , CODENUM(J)ASSIGN(K,)( EASSIGN(K,)< T$CODENAM$(J)S BEHAV$(E)T$c o y K" , "ENTER THE NAME OF YOUR DATA FILE";A$6: A$"" A$THISFIL$@ "PLEASE ENTER ANY REMARKS PERTINENT TO THIS OUTPUT FILE"ZJ "LIMIT LENGTH OF REMARKS TO 40 CHARACTERS, DO NOT USE ANY COMMAS"T "IF NO REMARKS, ENTER A CARRIAGE RETURN"^ C$h PRINT "DO YOU WISH TO USE THE FOLLOWING DEFAULT VALUES? ENTER Y FOR "r PRINT"YES AND N FOR NO"3| PRINT "(1) LAST VALUE IN DATA SET IS 25"f PRINT"(2) DATA ENCOMPASSES ONLY ONE PERIOD" PRINT "(3) ONLY SEQUENCES HAVING A NON-ZERO VALUE ARE PRINTED PRINT "(4) SEQUENCES ARE SUMMARIZED USING 2 ORDERS OF TRANSITION, THEN 3,"3 PRINT " THEN 4, ETC UNTIL MEMORY IS FILLED"G INPUT DEFAU$R SEQX IF DEFAU$="Y" OR DEFAU$="y" THEN 4590 PRINT "DO YOU WISH TO USE ALL THE DEFAULT VALUES, EXCEPT SEQUENCE " INPUT " LENGTH (Y/N)";SEQCHK$A IF SEQCHK$="Y" OR SEQCHK$="y" THEN DONE=25:VAR=COUNT-1:ALL=1:GOTO 720u "WHAT NUMBER INDICATES END OF DATA SET";DONE "WHAT NUMBER DID YOU USE TO INDICATE CHANGE IN PERIODS?" "FOR EXAMPLE: AN 8 EVERY 30 SECONDS TO INDICATE CHANGING FEEDER SPACE"= "IF DATA SET ONLY ENCOMPASSES ONE PERIOD, ENTER 0;"J CHANGE PRINT "IF YOU WISH TO PRINT A TABLE THAT CONTAINS ONLY THOSE " ALL  PRINT "SEQUENCES WHICH HAVE A VALUE IN THEM, ENTER 1."& PRINT "OTHERWISE, ENTER ZERO (0)."0 INPUT ALL4D A$".OUT" APPEND AS #kN "THIS PROGRAM SUMMARIZES SEQUENCES OF BEHAVIORS"vX " "b "THESE ARE THE MAXIMUM ALLOWABLE POSSIBILITIES,"c " MEMORY WILL GENERALLY NOT HANDLE AS HIGH A LENGTH AS THIS."Gl " Number of behaviors Limit # of sequences to:"v " 31 OR MORE 1 OR 2 " 13 TO 30 3 OR LESS " 8 TO 12 4 or less"< " 5 to 7 5 or less"| " 4 or fewer 6 or less" INPUT " IF YOU WISH TO QUIT NOW, ENTER D; OTHERWISE RETURN";NOW$ IF NOW$="D" GOTO 4560 "DO NOT USE ZERO IN THE DATA SET"VARCOUNTV "ENTER NUMBER OF SEQUENCES (I.E. ORDERS OF TRANSITION)"{ "THAT YOU WANT SUMMARIZED";SEQ "IF FIGURES ENTERED ARE CORRECT AND YOU WISH TO CONTINUE" "ENTER Y; TO MAKE CORRECTIONS ENTER N; ENTER D IF DONE";YES$# A$".OUT" APPEND AS #8 YES$"N" NM YES$"n" Nb  YES$"d" w YES$"D"  "DATA SET CONTAINS ",VAR," VARIABLES"  DATANAM$"NAME OF DATA FILE: "* OUTNAM$ "NAME OF OUTPUT FILE: " 4 DATANAM$,A$;".SRT"& > #,DATANAM$,A$;".SRT"> H OUTNAM$,A$;".OUT"Y R #,OUTNAM$,A$;".OUT"g \ #," " f A$".SRT" AS # p SEQ ,,, ,  FSUM1%(VAR),DSUM1(VAR)  F1%(VAR),D1(VAR)  #,A,R  #,B,S!F1%(A)F1%(A)!D1(A)D1(A) (SR)0! BCHANGE C! BDONE K!ABS!RS]! j!PEPE !$ #,"PERIOD ";PE!. "PERIOD ";PE!8 #,"SEQUENCE","FREQUENCY","DURATION"!B "SEQUENCE","FREQUENCY","DURATION"!L I VAR "V ALL j""` F1%(I) ~B"j #,BEHAV$(I),F1%(I),D1(I)_"t BEHAV$(I),F1%(I),D1(I)~"~FSUM1%(I)FSUM1%(I)F1%(I)"DSUM1(I)DSUM1(I)D1(I)"F1%(I)"D1(I)" I" #," "" #," "" " "# "WORKING - sequence length 1"# BCHANGE .# BDONE VS# FSUM2%(VAR,VAR),DSUM2(VAR,VAR)r# F2%(VAR,VAR),D2(VAR,VAR)# #,A,R#  #,B,S# #,C,T#F2%(A,B)F2%(A,B)#( D2(A,B)D2(A,B) (TR)#2 CCHANGE x#< CDONE x$F AB$P BC$Z RS%$d ST1$n =$xQEQEU$ #,"PERIOD ";QEj$ "PERIOD ";QE$ #," SEQUENCE",,"FREQUENCY","DURATION"$ " SEQUENCE",,"FREQUENCY","DURATION"$ I VAR$ J VAR% ALL % F2%(I,J) I% #,BEHAV$(I),BEHAV$(J),F2%(I,J),D2(I,J)w% BEHAV$(I),BEHAV$(J),F2%(I,J),D2(I,J)%FSUM2%(I,J)FSUM2%(I,J)F2%(I,J)% DSUM2(I,J)DSUM2(I,J) D2(I,J)%F2%(I,J)%D2(I,J)% J% I&" #," "&, #," "&6 " ">&@ "WORKING - sequence length 2"S&J CCHANGE f&T CDONE &^ FSUM3%(VAR,VAR,VAR),DSUM3(VAR,VAR,VAR)&h F3%(VAR,VAR,VAR),D3(VAR,VAR,VAR)&r #,A,R&| #,B,S& #,C,T& #,D,U 'F3%(A,B,C)F3%(A,B,C)+' D3(A,B,C)D3(A,B,C) (UR)A' DCHANGE T' DDONE \'ABd'BCl'CDt'RS|'ST'TU' ' RERE' #,"PERIOD ";RE' "PERIOD ";RE'& " SEQUENCE",,,"FREQUENCY","DURATION" (: I VAR(D J VAR,(N K VAR>(X ALL lW(b F3%(I,J,K) (l #,BEHAV$(I),BEHAV$(J),BEHAV$(K),F3%(I,J,K),D3(I,J,K)(v BEHAV$(I),BEHAV$(J),BEHAV$(K),F3%(I,J,K),D3(I,J,K)(FSUM3%(I,J,K)FSUM3%(I,J,K)F3%(I,J,K)$)DSUM3(I,J,K)DSUM3(I,J,K) D3(I,J,K)5)F3%(I,J,K)E)D3(I,J,K)M) KU) J]) Il) #," "{) " ") "WORKING - sequence length 3") DCHANGE r) DDONE ) FSUM4%(VAR,VAR,VAR,VAR),DSUM4(VAR,VAR,VAR,VAR),* F4%(VAR,VAR,VAR,VAR),D4(VAR,VAR,VAR,VAR):*  #,A,RH* #,B,SV*  #,C,Td** #,D,Ur*4 #,E,V*>F4%(A,B,C,D)F4%(A,B,C,D)*H D4(A,B,C,D)D4(A,B,C,D) (VR)*R ECHANGE *\ EDONE *f AB*p BC*z CD+ DE + RS+ ST+ TU'+ UV2+ 4?+ SESEW+ #,"PERIOD ";SEl+ "PERIOD ";SE+ #," SEQUENCE",,,,"FREQUENCY","DURATION"+ " SEQUENCE",,,,"FREQUENCY","DURATION"+ I VAR, "WORKING - sequence length 4", J VAR$, K VAR4, L VARF,$ ALL 8 a,. F4%(I,J,K,L) L ,8 #,BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),F4%(I,J,K,L),D4(I,J,K,L),B BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),F4%(I,J,K,L),D4(I,J,K,L)&-L FSUM4%(I,J,K,L)FSUM4%(I,J,K,L)F4%(I,J,K,L)W-V DSUM4(I,J,K,L)DSUM4(I,J,K,L) D4(I,J,K,L)k-` F4%(I,J,K,L)}-j D4(I,J,K,L)-t L-~ K- J- I- #," "- #," "- " "- "WORKING - sequence length 4". ECHANGE  . EDONE U. FSUM5%(VAR,VAR,VAR,VAR,VAR),DSUM5(VAR,VAR,VAR,VAR,VAR). F5%(VAR,VAR,VAR,VAR,VAR),D5(VAR,VAR,VAR,VAR,VAR). #,A,R. #,B,S. #,C,T. #,D,U. #,E,V. #,F,W/( F5%(A,B,C,D,E) F5%(A,B,C,D,E)9/2 D5(A,B,C,D,E)D5(A,B,C,D,E) (WR)O/< FCHANGE  e/F FDONE  p/P AB{/Z BC/d CD/n DE/x EF/ RS/ ST/ TU/ UV/ VW/  / TETE0 #,"PERIOD ";TE0 "PERIOD ";TEN0 #," SEQUENCE",,,,,"FREQUENCY","DURATION"0 " SEQUENCE",,,,,"FREQUENCY","DURATION"0 I VAR0 "WORKING - sequence length 5"0 J VAR0 K VAR0 L VAR1" M VAR1, ALL @ 516 F5%(I,J,K,L,M) h r1@ #,BEHAV$(I),BEHAV$(J),BEHAV$(L),BEHAV$(L),BEHAV$(M),1J #,F5%(I,J,K,L,M),D5(I,J,K,L,M)1T BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),BEHAV$(M),1^ F5%(I,J,K,L,M),D5(I,J,K,L,M).2h FSUM5%(I,J,K,L,M) FSUM5%(I,J,K,L,M)F5%(I,J,K,L,M)c2r DSUM5(I,J,K,L,M)DSUM5(I,J,K,L,M)D5(I,J,K,L,M)x2| F5%(I,J,K,L,M)2 D5(I,J,K,L,M)2 M2 L2 K2 J2 I2 #," "2 #," "2 " "3 "WORKING - sequence length 5"23 FCHANGE  F3 FDONE 63 FSUM6%(VAR,VAR,VAR,VAR,VAR,VAR),DSUM6(VAR,VAR,VAR,VAR,VAR,VAR)3 F6%(VAR,VAR,VAR,VAR,VAR,VAR),D6(VAR,VAR,VAR,VAR,VAR,VAR)3 #,A,R3 #,B,S3& #,C,T30 #,D,U 4: #,E,V4D #,F,W%4N #,G,XN4X F6%(A,B,C,D,E,F) F6%(A,B,C,D,E,F)z4b D6(A,B,C,D,E,F)D6(A,B,C,D,E,F) (XR)4l GCHANGE  4v GDONE  4 AB4 BC4 CD4 DE4 EF4 FG4 RS4 ST4 TU4 UV4 VW5 WX 5 N 5 UEUE 45 #,"PERIOD ";UEI5 "PERIOD ";UE}5 #," SEQUENCE",,,,,,"FREQUENCY","DURATION"5* " SEQUENCE",,,,,,"FREQUENCY","DURATION"54 I VAR5> "WORKING - sequence length 6"5H J VAR 6R K VAR6\ L VAR+6f M VAR<6p N VARN6z ALL  m6 F6%(I,J,K,L,M,N)  6 #,BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),BEHAV$(M),BEHAV$(N),6 #,F6%(I,J,K,L,M,N),D6(I,J,K,L,M,N))7 BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),BEHAV$(M),BEHAV$(N),U7 F6%(I,J,K,L,M,N),D6(I,J,K,L,M,N)7 FSUM6%(I,J,K,L,M,N)FSUM6%(I,J,K,L,M,N)F6%(I,J,K,L,M,N)7 DSUM6(I,J,K,L,M,N)DSUM6(I,J,K,L,M,N)D6(I,J,K,L,M,N)7 F6%(I,J,K,L,M,N)7 D6(I,J,K,L,M,N)8 N8 M8 L)8 K28 J:8 IH8 #," "V8$ #," "a8. " "88 "WORKING - sequence length 6"8B GCHANGE  8L GDONE 8V #,"SUMMARY FOR SEQUENCES OF LENGTH 1"9` "SUMMARY FOR SEQUENCES OF LENGTH 1"'9bFTOTAL : ONCE : HEAD59c P F9j I VARX9t ALL p9~ FSUM1%(I) 9 ONCE 9 #,I,FSUM1%(I),DSUM1(I)9 I,FSUM1%(I),DSUM1(I)9FTOTALFTOTALFSUM1%(I)9 ONCE /: HEAD #," SEQUENCE" ,"PROBABILITY OF OCCURRENCE"n: HEAD " SEQUENCE","PROBABILITY OF OCCURRENCE": HEAD : PROBFSUM1%(I)FTOTAL: #,BEHAV$(I),PROB: BEHAV$(I),PROB: I:ONCE: P: ; #,"SUMMARY FOR SEQUENCES OF LENGTH 2"A; "SUMMARY FOR SEQUENCES OF LENGTH 2"`;FTOTAL : ONCE : HEADo; P  ; I VAR; J VAR; ALL ; FSUM2%(I,J) ; ONCE ; #,I,J,FSUM2%(I,J),DSUM2(I,J)< I,J,FSUM2%(I,J),DSUM2(I,J)5<FTOTALFTOTALFSUM2%(I,J)I< ONCE < HEAD #," SEQUENCE",,"PROBABILITY OF OCCURRENCE"< HEAD " SEQUENCE",,"PROBABILITY OF OCCURRENCE"< HEAD : PROBFSUM2%(I,J)FTOTAL= #,BEHAV$(I),BEHAV$(J),PROB5= BEHAV$(I),BEHAV$(J),PROB>= JF=  IQ= ONCEY= Pd= = #,"SUMMARY FOR SEQUENCES OF LENGTH 3"=( "SUMMARY FOR SEQUENCES OF LENGTH 3"=*FTOTAL : ONCE : HEAD=, P =2 I VAR >< J VAR>F K VAR.>P ALL dJ>Z FSUM3%(I,J,K) x^>_ ONCE q>d #,I,J,K,FSUM3%(I,J,K),DSUM3(I,J,K)>n I,J,K,FSUM3%(I,J,K),DSUM3(I,J,K)>oFTOTALFTOTALFSUM3%(I,J,K)>q ONCE x(?r HEAD #," SEQUENCE",,,"PROBABILITY OF OCCURRENCE"i?s HEAD " SEQUENCE",,,"PROBABILITY OF OCCURRENCE"?t HEAD : PROBFSUM3%(I,J,K)FTOTAL?u #,BEHAV$(I),BEHAV$(J),BEHAV$(K),PROB?v BEHAV$(I),BEHAV$(J),BEHAV$(K),PROB?x K? J@ I@ONCE@ P"@ P@ #,"SUMMARY FOR SEQUENCES OF LENGTH 4"{@ "SUMMARY FOR SEQUENCES OF LENGTH 4"@FTOTAL : ONCE : HEAD@ P @ I VAR@ J VAR@ K VAR@ L VAR@ ALL A FSUM4%(I,J,K,L) /A ONCE `A #,I,J,K,L,FSUM4%(I,J,K,L),DSUM4(I,J,K,L)A I,J,K,L,FSUM4%(I,J,K,L),DSUM4(I,J,K,L)AFTOTALFTOTALFSUM4%(I,J,K,L)A ONCE B HEAD #," SEQUENCE",,,,"PROBABILITY OF OCCURRENCE"JB HEAD " SEQUENCE",,,,"PROBABILITY OF OCCURRENCE"vB HEAD : PROBFSUM4%(I,J,K,L)FTOTALB #,BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),PROBB BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),PROBB LB KB JC" IC%ONCEC' P"C, PC6 #,"SUMMARY FOR SEQUENCES OF LENGTH 5"{C@ "SUMMARY FOR SEQUENCES OF LENGTH 5"CBFTOTAL : ONCE : HEADCD P CJ I VARCT J VARC^ K VARCh L VARCr M VARD| ALL /D FSUM5%(I,J,K,L,M) CD ONCE zD #,I,J,K,L,M,FSUM5%(I,J,K,L,M),DSUM5(I,J,K,L,M)D I,J,K,L,M,FSUM5%(I,J,K,L,M),DSUM5(I,J,K,L,M)DFTOTALFTOTALFSUM5%(I,J,K,L,M)D ONCE +E HEAD #," SEQUENCE",,,,,"PROBABILITY OF OCCURRENCE"nE HEAD " SEQUENCE",,,,,"PROBABILITY OF OCCURRENCE"E HEAD : PROBFSUM5%(I,J,K,L,M)FTOTALE #,BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),BEHAV$(M),PROBF BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),BEHAV$(M),PROB#F M,F L5F K>F JGF IRFONCEZF PeF F #,"SUMMARY FOR SEQUENCES OF LENGTH 6 "F "SUMMARY FOR SEQUENCES OF LENGTH 6 "FFTOTALFONCEFHEADF P G I VARG J VAR'G K VAR8G L VARIG M VARZG& N VARlG0 ALL DG: FSUM6%(I,J,K,L,M,N) XG? ONCE QGD #,I,J,K,L,M,N,FSUM6%(I,J,K,L,M,N),DSUM6(I,J,K,L,M,N)HN I,J,K,L,M,N,FSUM6%(I,J,K,L,M,N),DSUM6(I,J,K,L,M,N)?HOFTOTALFTOTALFSUM6%(I,J,K,L,M,N)SHQ ONCE ZHR HEAD #," SEQUENCE",,,,,,"PROBABILITY OF OCCURRENCE"HS HEAD " SEQUENCE",,,,,,"PROBABILITY OF OCCURRENCE" IT HEAD : PROBFSUM6%(I,J,K,L,M,N)FTOTALSIU #,BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),BEHAV$(M),BEHAV$(N),dIV #,PROBIW BEHAV$(I),BEHAV$(J),BEHAV$(K),BEHAV$(L),BEHAV$(M),BEHAV$(N),IX PROBIZ NIb MIl LIv KI JI IIONCEJ P J J #:J DEFAU$"Y" DEFAU$"y" J "IF YOU WISH THIS DATA FILE ANALYZED USING ANOTHER SEQUENCE LENGTH"J "THEN TYPE Y, OTHERWISE TYPE N";MORE$J MORE$"Y" MORE$"y" J #,"REMARKS: ";C$K PRINT "REMARKS: ";C$K   K MORE$"Y",KDONE=K VARCOUNTGKALLVK SEQSEQK SEQ A$".OUT" APPEND AS #K fK  PRINT "NOW THAT THIS PARTICULAR RUN IS FINISHED YOU MAY WISH TO TRANSFER "-L PRINT "THE OUTPUT FILE ";A$;".OUT TO ANOTHER DISK TO SAVE MEMORY SPACE ON"zL  PRINT "THIS PROGRAM DISK. IF YOU WISH INSTRUCTIONS ON HOW TO DO THIS,"L* INPUT "ENTER Y; OTHERWISE ENTER N";TRANFR$L4 TRANFR$"N" TRANFR$"n" M> "THE SIMPLEST WAY TO CONSERVE MEMORY SPACE IS TO COPY YOUR OUTPUT"cMH "FILE TO THE DATA DISK, AND THEN ERASE YOUR OUTPUT FILE FROM THE"MR "PROGRAM DISK. ALWAYS ERASE OR TRANFER ANY UNNECESSARY FILES FROM"M\ "THE PROGRAM DISK."Mf "TO COPY ";A$;".OUT TO THE DATA DISK:"Np " First - Type SYSTEM"MNz " Second - Type COPY ";A$;".OUT B:"}N " SWITCH DISKS WHEN INSTRUCTED TO DO SO."N "WHEN YOUR FILE HAS BEEN TRANSFERRED, PUT THE PROGRAM DISK BACK IN,"O "AND ENTER : ERASE ";A$;".OUT THIS WILL THEN ERASE YOUR OUTPUT"4O "FILE FROM THE PROGRAM DISK"|O "(THE SYSTEM WILL PROBABLY SAY - insert diskette in drive A and "O "hit any key when ready WHEN YOU ENTER THE ERASE COMMAND. THAT IS"O "PERFECTLY OK, JUST GO AHEAD AND HIT ANY KEY"P;P: " PRESS ANY KEY TO RETURN TO MENU": DD$$()HP "MENU"