00100	TITLE TEMP
00150	POB:	BLOCK 3
00200	STRT:	CALLI
00300		INIT 1,10
00400		SIXBIT /PTP/
00500		XWD POB,0
00600		JRST 4,.
00700		OUTBUF 1,2
00750		MOVEI 2,20
00800		MOVEI 1,137
00900		JSR POUT
00950		SOJG 2,.-1
01000		MOVEI 2,=12
01050	LOOP1:	MOVEI 3,2
01100	LOOP2:	MOVEI 1,130
01130		JSR POUT
01160		MOVEI 1,122
01190		JSR POUT
01220		MOVEI 1,120
01250		JSR POUT
01310		MOVEI 4,3
01340	LOOP3:	MOVEI 5,8
01370		MOVEI 1,100
01400		JSR POUT
01430		SOJG 5,.-1
01460		MOVEI 5,4
01490		MOVEI 1,133
01520		JSR POUT
01550		SOJG 5,.-1
01580		SOJG 4,LOOP3
01610		MOVEI 1,100
01640		MOVEI 5,8
01670		JSR POUT
01700		SOJG 5,.-1
01730		MOVEI 1,122
01760		JSR POUT
01790		SOJG 3,LOOP2
01820		JSR POUT
01850		JSR POUT
01880		SOJG 2,LOOP1
01910		MOVEI 1,130
01940		JSR POUT
01970		MOVEI 1,137
02000		MOVEI 2,20
02030		JSR POUT
02060		SOJG 2,.-1
02090		RELEAS 1,
02120		CALLI 12
03000	POUT:	0
03100		SOSG POB+2
03200		OUTPUT 1,
03300		IDPB 1,POB+1
03400		JRST @POUT
03500	END STRT
03600