10   START		; DIBOL PRINTER TEST
20   		;
30   	RECORD LPBUF
40   	COL,132A1
50   		;
60   	BLOCK
70   	DVAR,D2,13
80   	OPT,A1
90   	CHRC,A1
100  	CLMXX,D3,132
110  	CLMN,D3,001
120  	CLMX,D3,132
130  	ACLMN,A3
140  	ACLMX,A3
150  	CHR,A1
160  	DCHR,D2
170  	PNT,D3
180  	RECORD CHAR
190  	,A100,'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!"#$%&()=]@:;/.,^*+?><ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890!"#$%&'
200  	,A32,'()=]@:;/.,^*+?><-[ABCDEFGHIJKLOP'
210  	RECORD C0,X
220  	,A126
230  	RECORD C1,X
240  	,A120
250  	RECORD C2,X
260  	,A114
270  	RECORD C3,X
280  	,A108
290  	RECORD C4,X
300  	,A102
310  	RECORD C5,X
320  	,A96
330  	RECORD C6,X
340  	,A90
350  	RECORD C7,X
360  	,A84
370  	RECORD C8,X
380  	,A78
390  	RECORD C9,X
400  	,A72
410  	RECORD C10,X
420  	,A66
430  	RECORD C11,X
440  	,A60
450  	RECORD C12,X
460  	,A54
470  	RECORD C13,X
480  	,A48
490  	RECORD C14,X
500  	,A42
510  	RECORD C15,X
520  	,A36
530  	RECORD C16,X
540  	,A30
550  	RECORD C17,X
560  	,A24
570  	RECORD C18,X
580  	,A18
590  	RECORD C19,X
600  	,A12
610  	RECORD C20,X
620  	,A6
630  	RECORD C21,X
640  PROC 1
650  	XMIT(8," ')
660  	XMIT(8,"************ DIBOL PRINTER TEST ************')
670  	XMIT(8," ')
680  	XMIT(8,"DO YOU WISH TO ENTER PARAMETERS ?')
690  	ACCEPT(DVAR,OPT)
700  	XMIT(8," ')
710  	IF(OPT.EQ.'Y')GO TO PRM
720  	XMIT(8,"STANDARD TEST SELECTED')
730  		;
740  		; WEDGE PATTERN TEST - ALL CHARACTERS
750  		;
760  TST1,	XMIT(6,CHAR)
770  	XMIT(6,C0)
780  	XMIT(6,C1)
790  	XMIT(6,C2)
800  	XMIT(6,C3)
810  	XMIT(6,C4)
820  	XMIT(6,C5)
830  	XMIT(6,C6)
840  	XMIT(6,C7)
850  	XMIT(6,C8)
860  	XMIT(6,C9)
870  	XMIT(6,C10)
880  	XMIT(6,C11)
890  	XMIT(6,C12)
900  	XMIT(6,C13)
910  	XMIT(6,C14)
920  	XMIT(6,C15)
930  	XMIT(6,C16)
940  	XMIT(6,C17)
950  	XMIT(6,C18)
960  	XMIT(6,C19)
970  	XMIT(6,C20)
980  	XMIT(6,C19)
990  	XMIT(6,C18)
1000 	XMIT(6,C17)
1010 	XMIT(6,C16)
1020 	XMIT(6,C15)
1030 	XMIT(6,C14)
1040 	XMIT(6,C13)
1050 	XMIT(6,C12)
1060 	XMIT(6,C11)
1070 	XMIT(6,C10)
1080 	XMIT(6,C9)
1090 	XMIT(6,C8)
1100 	XMIT(6,C7)
1110 	XMIT(6,C6)
1120 	XMIT(6,C5)
1130 	XMIT(6,C4)
1140 	XMIT(6,C3)
1150 	XMIT(6,C2)
1160 	XMIT(6,C1)
1170 	XMIT(6,C0)
1180 	GO TO TST1
1190 		;
1200 		; USER INPUT MODE
1210 		;
1220 PRM,	XMIT(8,"CHARACTER TO BE  PRINTED ?')
1230 	ACCEPT(DVAR,CHRC)
1240 	XMIT(8," ')
1250 	XMIT(8,"WEDGE PATTERN ?')
1260 	ACCEPT(DVAR,OPT)
1270 	XMIT(8," ')
1280 	IF(OPT.NE.'Y')GO TO MESS1
1290 	PNT =
1300 LP1,	INCR PNT
1310 	IF(PNT.GT.CLMXX)GO TO LP2
1320 	COL(PNT)=CHRC
1330 	GO TO LP1
1331 LP2,	CHAR=LPBUF
1332 	GO TO TST1
1340 MESS1,	XMIT(8,"STARTING COLUMN ?')
1350 	ACCEPT(DVAR,ACLMN)
1360 	XMIT(8," ')
1370 	CLMN=ACLMN
1380 	IF(CLMN.LT.1)GO TO MESS1
1390 MESS2,	XMIT(8,"ENDING COLUMN ?')
1400 	ACCEPT(DVAR,ACLMX)
1410 	XMIT(8," ')
1420 	CLMX=ACLMX
1430 	IF(CLMX.GT.CLMXX)GO TO MESS2
1440 	IF(CLMX.LT.CLMN)GO TO MESS1
1450 		;
1460 		; FILL BUFFER
1470 		;
1480 	PNT=CLMN
1490 LOOP,	COL(PNT)=CHRC
1500 	INCR PNT
1510 	IF(PNT.LE.CLMX)GO TO LOOP
1520 DO,	XMIT(6,LPBUF)
1530 	GO TO DO
1540 	STOP
1550 	END