100 +"B
 110 H&$3-^<(
 120 $+%"2R(GQ8U5"
 130 
 140 2C->,P
 150 ]:]9I=
 160 K=ZV.WB	
 170 M3I2> -1'<
 180 =H8!A4K7XA2Q
 190 H
 200 2QA;],	6
 210 
 220 <(
 230 A$
 240 *&/=%.%-N^
 250 
 260 /<%.%-NV
 270 91<HS\OE<8
 280 
 290 B$B
 300 M3
 310 A'I&
 320 K>
 330 K<<(*3
 340 
 350 
 360 \CPC:
 370 *G
 380 *-HJK<> T"K!
 390 I(
 400 :AK82C-#
 410 M3I2> /OK7 D
 420 2C/5 D TB
 430 SO/OG5NJG[I.
 440 ?^
 450 8F8FA"I(
 460 [WHL8F
 470 HL
 480 <Q
 490 8J
 500 [UHMA"
 510 
 520 =Q8H=QST
 530 OB
 540 ?3 
 550 *B"M
 560 .M
 570 > .V""
 580 .V
 590 ."4FA;R"
 600 2A
 610 C;
 620 
 630 NO
 640 >E?/?-L
 650 
 660 
 670 
 680 
 690 
 700 
 710 
 720 
 730 
 740 
 750 
 760 
 770 
 780 
 790 A[
 800 
 810 
 820 > A 
 830 
 840 =EJ* 
 850 
 860 
 870 
 880 
 890 
 900 
 910 
 920 
 930 
 940 
 950 
 960 
 970 
 980 
 990 	EJECT
1000 	IFNZRO	CHAN%4&LAB8E		<
1010 	XLIST	ON
1020 CLOCK,	CLSK			/CLOCK INTERRUPT?
1030 	JMP I	[TRYWRT]	/NO, TRY OUTPUT DEVICE
1040 	CLSA			/GET STATUS THUS CLEARING THE INTERRUPT
1050 	SMA CLA			/BETTER BE CAUSED BY OVERFLOW
1060 	HLT			/BARF!
1070 	CDF	BUFFLD		/SET BUFFER FIELD BEFORE WAITING
1080 	ADSK			/FLAG UP YET?
1090 	JMP	.-1		/NO, WAIT FOR IT
1100 	ADRB			/GET FIRST A-D INPUT
1110 	ADST			/START ANOTHER ONE
1120 	XLIST	OFF
1130 	IFNZRO	VC8E		<
1140 	XLIST	ON
1150 	DILX			/LOAD X DISPLAY NOW
1160 	XLIST	OFF		>
1170 	IFNZRO	AA01		<
1180 	XLIST	ON
1190 	CLL RTL			/MOVE UP
1200 	DAL1			/LOAD X DISPLAY NOW
1210 	RTR			/MOVE BACK
1220 	XLIST	OFF		>
1230 	XLIST	ON
1240 	DCA I	PTR		/STORE X DATA
1250 	ISZ	PTR		/BUMP TO NEXT
1260 	ADSK			/FLAG UP YET?
1270 	JMP	.-1		/NO, WAIT FOR IT
1280 	ADRB			/GET SECOND A-D INPUT
1290 	ADST			/START ANOTHER ONE
1300 	XLIST	OFF
1310 	IFNZRO	VC8E		<
1320 	XLIST	ON
1330 	DILY			/LOAD Y DISPLAY NOW
1340 	XLIST	OFF		>
1350 	IFNZRO	AA01		<
1360 	XLIST	ON
1370 	CLL RTL			/MOVE UP
1380 	DAL2			/LOAD Y DISPLAY NOW
1390 	RTR			/MOVE BACK
1400 	XLIST	OFF		>
1410 	XLIST	ON
1420 	DCA I	PTR		/STORE Y DATA
1430 	ISZ	PTR		/BUMP TO NEXT
1440 	ADSK			/FLAG UP YET?
1450 	JMP	.-1		/NO, WAIT FOR IT
1460 	ADRB			/GET THIRD A-D INPUT
1470 	ADST			/START ANOTHER ON
1480 	XLIST	OFF
1490 	IFNZRO	VC8E		<
1500 	XLIST	ON
1510 	DIXY			/INTENSIFY NOW