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