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