*20
/
/QANDAS
/QANDA WITH NO COMMENTS
/CALL BY:
/	JMP QAINIT
/	QATEXT  (POINTER)
/	ANSWER  (POINTER)
/	JMP QARFSH
/	CONTROL RTNS TO CALLING PGM HERE
/
*1000
QAINIT,	LDA I
2
ADD
STA I
QAB,	0
ADD QAL+3
STC 1
LDA 1
ADD QAQ+1
STC QAG-3
LDA I 1
STC QARFSH-1
STC 6
QACA,SET 3
QARFSH-1
SET 4
QAG-3
SET 1
4
JMP QAT
16
LDH I 4
QAD,	JMP QAO
JMP .+6
JMP QAE
SAE I
43
JMP QAD
JMP QACA+4
STH 3
LDH I 4
ADA I
-60
COM
STC 6
STH I 3
XSK I 6
JMP .-2
LDH I 3
JMP QAD
QAE,	STH 3
SET I 4
0
QARFSH,	LDA I
277	/VERT COORD, TOP LINE
STC QAH-1
SET I 3
0
SET 5
QARFSH-1
QAG,	SET 1
3
JMP QAT
JMP .+7
LDH I 3
LDA I
BCL I
STC QAM+2
ADD QAW
JMP QAM
LDH I 3
LDA I
BSE I
STC QAM+2
ADD QAW+1
QAM,	STC QAP+3
MSC I 4
BSE I
200
MSC 4
SET I 1
100
LDA I
-40
ADM I
0
QAH,	LDH I 3
JMP QAO+1
JMP QAZ
JMP QAJ
SHD I
4300
JMP QAG
JMP QAP
JMP QAH
JMP QAP
SRO I
0
JMP QAF
QAI,	LDH I 5
JMP QAO+1
JMP QAH
JMP QAH
JMP QAI-4
QAJ,	JMP GETKBD
AZE I
JMP QAB
SET I 2
QAY
SHD 2
JMP QAK+4
SHD I 2
JMP QAN
XSK 6
JMP QARFSH
SHD I 2
JMP QAL
SHD I 2
JMP QAK
SHD I 2
JMP QACA
SHD I 2
JMP QARFSH
SHD I 2
JMP QAL
SHD I 2
JMP QARFSH
STC .+5
JMP QAO
JMP QAQ
JMP QAQ
LDA I
0
STH 4
JMP QARFSH
QAL,	LDH 4
JMP QAO+1
JMP QARFSH
-6002
LDH 2
SAE I
37
JMP QAQ
SET 5
4
SET 3
4
JMP .+2
LDH I 5
LDH I 3
JMP QAO+1
NOP
CLR
STH 5
AZE
JMP .-7
JMP QAQ
QAN,	XSK 6
JMP QAK+4
JMP QAO
JMP QARFSH
JMP QAE+1
JMP QAN+2
QAO,	LDH I 4
SHD I
7400
JMP
SAE I
34
XSK I
XSK I
JMP
QAP,	ROL 1
ADD QAX+4
STC 2
ADD QAU
ADD QAU
ADD 1
STC 1
ADD 5
COM
ADD 4
AZE
CLR
STC QAI-2
ADD QAH-1
DSC 2
DSC I 2
JMP
QAQ,	LDA I
-4000
ADM
4
JMP QARFSH
QAT,	LDH I 1
SHD I
600
JMP
SAE I
10
XSK I
XSK I
JMP
QAZ,	LDH I 3
LDA I
40
JMP QAI-4
QAK,	LDH I 4
AZE I
JMP QAQ
JMP QAX
LDA I
1
ADM
QAB
JMP QAB
QAV,	101
101
4477
7744
5177
2651
4136
2241
4177
3641
4577
4145
4477
4044
4136
2645
1077
7710
7741
41
4142
4076
1077
4324
177
301
3077
7730
3077
7706
4177
7741
4477
3044
4276
376
4477
3146
5121
4651
4040
4077
177
7701
176
7402
677
7701
1463
6314
770
7\7
4543
6151
4177
0
0
0
0
7741
QAY,	4543
7476
3634
3747
0
0
7500
0
7\0
70
QAX,	JMP QAO+1
JMP QAQ
JMP QAQ
JMP QARFSH
QAV
0
5166
526
0
0
3600
41
4100
36
2050
50
404
437
500
6
404
404
1
0
601
4030
4536
3651
2101
177
4523
2151
4122
2651
2414
477
5172
651
1506
4225
4443
6050
5126
2651
5122
3651
2200
0
4601
0
QAU,	2
0
1212
1212
QAW,	NOP
ADD QAU
4020
2055
QAF,	DSC I
6\0
JMP QAI
GETKBD,	LDA
0
STC QAEXIT+6
ADD 1
STC QAEXIT+3
ADD 2
STC QAEXIT+5
STC QAEXIT+1
KST
JMP
IOB
6036
STA I
QATY,	0
ADA I
-237
APO
JMP QACNTR
SET I 1
QACHAR-1
SET I 2
-7
LDA
QATY
SAE I 1
JMP .+2
JMP QAEXIT
XSK I 2
JMP .-4
ADA I
-337
APO
JMP QALEGL
SAE I 1
JMP .+7
LDA I
334
JMP QATPE
LDA I
37
JMP QAEXIT+2
SAE I 1
JMP QAEXIT
JMP QAEXIT+2
QALEGL,	LDA
QATY
JMP QATPE
ADD QATY
BCL I
7700
JMP QAEXIT+2
QACNTR,	SAE I
7755
JMP QACKLF
LDA I
43
STC QAEXIT+1
LDA I
215
JMP QATPE
LDA I
212
JMP QATPE
JMP QAEXIT
QACKLF,	SAE I
7752
JMP .+4
LDA I
45
JMP QACNTR+5
SAE I
7751
JMP QAEXIT
LDA I
47
JMP QAEXIT+2
QAEXIT,	LDA I
0
SET I 1
0
SET I 2
0
JMP
QATPE,	IOB
6046
LDA
0
STC .+4
IOB
6041
JMP .-2
JMP 0
QACHAR,	243
244
245
247
300
336
337
40
36
/END QANDAS
	*20
START,	JMP QAINIT
	T1
	ANS
	JMP QARFSH
	JMP QAINIT
	T2
	ANS
	JMP QARFSH
	JMP QAINIT
	T3
	ANS
	JMP QARFSH
	JMP QAINIT
	T4
	ANS
	JMP QARFSH
	LIF 0
	JMP LOW
DOWN,	NOP
	JMP QAINIT
	T5
	ANS
	JMP QARFSH
	LIF 0
	JMP BACK
ANS,	0
	T1=2002
	T2=2200
	T3=2230
	T4=2300
	T5=2400
	SEGMNT 0
	*20
LOW,	NOP
	RDE 0
	3600
	RDE 10
	3001
	XSK I 10
	JMP .-1
	ADA I
	1
	XSK I 11
	JMP .-5
	RDE 0
	3400
	RDE 10
	3400
	XSK I 6
	JMP .-1
	ADA I
	1
	XSK I 7
	JMP .-5
	RDE 10
	3600
	RDE 0
	3001
	RDE 10
	3300
	RDE 0
	3300
	LIF 2
	JMP DOWN
BACK,	NOP
	LDF 2
	RDC 0
	4300
	RDC 0
	5301
	RDC 0
	6302
	RDC 0
	7303
	LDF 3
	RCG 0
	3304
	LIF 2
	JMP 20
	PMODE
	*6002
	TEXT Z HELLO, I AM YOUR FRIENDLY
 THESIS WRITER.  GIVEN THE PROPER
 INFORMATION, I WILL COMPUTE THE DATA,
 AND WRITE THE THESIS IN A PUBLISHABLE 
 FORMAT.  I DO NEED SOME INFORMATION. 
 WHAT IS YOUR INDEPENDENT VARIABLE?
 (TYPE ANSWER AND HIT LINE FEED)
 \Z
	*6200
	TEXT Z WHAT IS YOUR
	DEPENDENT VARIABLE?\Z
	*6230
	TEXT ZWHAT DO YOU WISH TO
	USE AS SUBJECTS?\Z
	*6300
	TEXT ZSTATE IN AS CONCISE
	TERMS AS IS POSSIBLE
	YOUR HYPOTHESIS.\Z
	*6400
	TEXT ZTHE STUDY YOU HAVE
	CHOSEN WAS DONE IN 1968
	BY A PDP-8 COMPUTER AT
	MICHIGAN STATE UNIVERSITY.
	IT WAS NOT PUBLISHED DUE
	TO INSIGNIFICANT RESULTS.
	DO YOU WISH TO DO A
	REPLICATION?\Z