Directory of image this file is from
This file as a plain text file
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