Listing of file='DIGD010A' on disk='vmedia/702-0079.wvd.zip'
# Sector 163, program filename = 'DIGD010A' 0010 REM . DIGD010A, 00-00 (08/19/75), 12002 0100 DIM R$17,A$12,A1$12,X(3),Y(3),M$64 : INIT(0A)R$ : STR(R$,1,1)=HEX(01) : GOSUB '115("DATA ENTRY",1) : PRINT HEX(010A);"PLACE CURSOR ON ACTIVE AREA OF TABLET",TAB(64) : GOSUB 1780 : PRINT HEX(010A),TAB(64),TAB(64),TAB(64) 0210 PRINT STR(R$,1,10);TAB(10);"TESTING",TAB(41);"RESULT" : PRINT TAB(10);"INPUT A ......................... "; : J,K=0 : SELECT INPUT 25A,CO 05A : INPUT A : FOR I=1TO 25 : A1=A : SELECT INPUT 25A,CO 05A : INPUT A : SELECT INPUT 001,CO 005 : IF K=0THEN 350 : GOSUB '31(A,A1) 0350 K=1 : NEXT I : GOSUB '33(J) : PRINT TAB(10);"DATA LOAD BT (N=12)/65A,A$ ...... "; : J,K=0 : FOR I=1TO 25 : A1=A : DATA LOAD BT(N=12)/65A,A$ : IF POS(A$=0D)<>12THEN 520 : IF NUM(A$)<>11THEN 520 : IF STR(A$,1,3)<> "-00"THEN 520 : IF K=0THEN 530 : CONVERT STR(A$,1,11)TO A 0500 GOSUB '31(A,A1) : GOTO 540 0520 J=1 0530 K=1 0540 NEXT I : GOSUB '33(J) : PRINT TAB(10);"DATA LOAD /65A,A ................ "; : J,K=0 : DATA LOAD /65A,A : DATA LOAD /65A,A : FOR I=1TO 25 : A1=A : DATA LOAD /65A,A : IF K=0THEN 670 : GOSUB '31(A,A1) 0670 K=1 : NEXT I : GOSUB '33(J) : PRINT TAB(10);"DATA LOAD /65A,A$ ............... "; : J,K=0 : DATA LOAD /65A,A$ : FOR I=1TO 25 : A1$=A$ : DATA LOAD /65A,A$ : IF K=0THEN 810 : CONVERT A$TO A : GOSUB '31(A,A1) 0810 K=1 : NEXT I : GOSUB '33(J) : PRINT TAB(10);"INPUT A$ ........................ "; : J,K=0 : SELECT INPUT 25A,CO 05A : INPUT A$ : FOR I=1TO 25 : A1=A : SELECT INPUT 25A,CO 05A : INPUT A$ : SELECT INPUT 001,CO 005 : CONVERT A$TO A : IF K=0THEN 980 : GOSUB '31(A,A1) 0980 K=1 : NEXT I : GOSUB '33(J) : PRINT HEX(010A);"ENTER 1 TO RE-RUN OR KEY RETURN(EXEC) TO CONTINUE" : KEYIN A$,1050,1050 1050 INPUT A$ : IF A$= "1"THEN 100 : GOSUB 1920 : PRINT STR(R$,1,6) : PRINTUSING 1200,"SIGN","FLAG","X COORDINATE","Y COORDINATE" 1120 PRINT HEX(010A);"DIGITIZE POINT (FLAG 4 = CONTINUE)" : PRINT "? -";HEX(08); : DATA LOAD BT(N=12)/65A,A$ : IF STR(A$,2,1)= "4"THEN 1240 : PRINT STR(R$,1,7) : PRINTUSING 1200,STR(A$,1,1),STR(A$,2,2),STR(A$,4,4),STR(A$,8,4) 1200 % #### #### ############ ############ 1210 GOTO 1120 1240 GOSUB '115("ALIGNMENT",2) : PRINT HEX(010A);"PLACE AN ACCURATE 45 DEGREE RIGHT TRIANGLE ON THE DIGITI ZER" : GOSUB 1780 : X(1),X(2),X(3),Y(1),Y(2),Y(3)=0 : FOR I=1TO 4 1310 PRINT HEX(010A);"ALIGNMENT TEST - PASS";I;TAB(64) : FOR J=1TO 3 : PRINT HEX(010A0A);"DIGITIZE POINT NUMBER";J,TAB(64) : PRINT HEX(09092D08); : DATA LOAD BT(N=12)/65A,A$ : CONVERT STR(A$,4,4)TO X : CONVERT STR(A$,8,4)TO Y : X(J)=X(J)+X : Y(J)=Y(J)+Y : NEXT J : NEXT I 1440 PRINT STR(R$,1,11);TAB(5);"THE DIFFERENCE BETWEEN DELTA X AND DELTA Y IS" ; : PRINT ABS((Y(2)-Y(1)+X(3)-X(2))/4) : PRINT HEX(0A);TAB(10);"THE ACCEPTABLE RANGE IS FROM 0 TO 1" : PRINT HEX(010A);TAB(64),TAB(64),TAB(64) 1480 PRINT HEX(010A);"ENTER 1 TO RE-RUN OR KEY RETURN(EXEC) TO END" : KEYIN A$,1500,1500 1500 INPUT A$ : IF A$= "1"THEN 1240 : GOSUB 1920 : PRINT HEX(0A0A);" END OF PROGRAM" : PRINT HEX(0A0A);" SF. 15 -- ISS PERIPHERIAL DIAGNOSTIC MENU" : STOP 1570 DEFFN'33(J) : IF J=1THEN 1610 : PRINT "O.K." : RETURN 1610 PRINT "FAILED" : RETURN 1650 DEFFN'115(M2$,M) : SELECT PRINT 005(64),CO 005(64) : GOSUB 1920 : PRINT STR(R$,1,6);TAB(8);"+-----------------------------------------+" : PRINT TAB(8);"! 2262 X-Y DIGITIZER ";M2$;TAB(43);"TEST !" : IF M=1THEN 1730 1710 PRINT TAB(8);"! DIGITIZER SET TO POINT MODE !" : GOTO 1740 1730 PRINT TAB(8);"! DIGITIZER SET TO UNSWITCHED STREAM MODE !" 1740 PRINT TAB(8);"+-----------------------------------------+" : RETURN 1780 PRINT "KEY RETURN(EXEC) TO RESUME",TAB(64) : KEYIN A$,1800,1800 1800 INPUT A$ : RETURN 1840 DEFFN'31(B,B1) : A2=ABS(B-B1) : IF A2>1E4THEN 1890 : A2=A2-INT(A2/1000)*1000 : IF A2<2THEN 1900 1890 J=1 1900 RETURN 1920 PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - DIGITIZER --------------------- ------" : PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A);"DIAGNOSIC MENU ; KEY 'RESET' AND SF'31";HEX(010A) : RETURN 1940 DEFFN'31 : LOAD DC F "START" 1960 STOP