HEADING:(RKCARD.S) SCANNER TEST PROGRAM, MODEL 20 & 25'S 10/13/86 GF STEP 1 GOTO STEP 3 2 GOTO STEP 44 3 IF DUM 801 = 01 THEN GOTO STEP 30 4 REM "==========================================================" 5 REM "TYPE 4^T TO CHANGE CARD TYPES AFTER STARTED TESTING" 6 REM "> ACTUAL SCANNER #'S ARE ONE LESS THAN UNK # <" 7 REM "==========================================================" 8 PRIN "THIS PROGRAM WILL TEST ANY OF THE FOLLOWING CARD TYPES. ." 9 PRIN STRG 3 10 PRIN " ID # - CARD TYPE" 11 PRIN STRG 3 12 PRIN " 1 - RK CIRCLE (1K OHM RES.)" 13 PRIN STRG 3 14 PRIN " 2 - 6 INCH RK CARD (1K OHM RES.)" 15 PRIN STRG 3 16 PRIN " 3 - 4.5 INCH RK CARD >S&R< (100K OHM RES.)" 17 PRIN STRG 3 18 PRIN " 4 - 4.5 INCH RK CARD >SINGLE< (100 OHM RES.)" 19 PRIN STRG 3 20 PRIN STRG 3 21 PRIN "ENTER THE ID # OF THE TYPE YOU ARE TESTING >" STRG 1 22 READ TTY:;M %1.0 THEN QUIT 23 IF M < 1.00000E+00 THEN GOTO STEP 20 24 IF M > 4.00000E+00 THEN GOTO STEP 20 25 LET DUM 801 = 01 26 LET DUM 802 = M 27 LET NOM 1 = NOM 101 28 IF M = 03 THEN LET NOM 1 = NOM 102 29 IF M = 04 THEN LET NOM 1 = NOM 103 30 LET M = DUM 802 31 LET I = M + 1.00000E+02 32 LET K = 1.60000E+01 33 IF M = 02 THEN LET K = 2.40000E+01 34 IF M > 02 THEN LET K = 1.70000E+01 35 PRIN "TESTING " STRG I 36 FOR J = 1.00000E+00 TO 1.00000E+03 37 FOR I = 1.00000E+00 TO K 38 TEST UNK I CODE 1 TOL 1 ACC 0 REJ 0 REG 1 39 NEXT I 40 PRIN "PASS " J " COMPLETED" 41 HAND 42 NEXT J 43 QUIT 44 FOR I = 01 TO 8.02000E+02 45 IF I = 2.50000E+01 THEN LET I = 8.01000E+02 46 LET DUM I = 00 47 NEXT I 48 PRIN "DUMMIES ZEROED" STRG 3 49 QUIT UNK 1 NOM 1 SCAN 1 MAT 0 FUNC 0 DUM 1 2 NOM 1 SCAN 2 MAT 0 FUNC 0 DUM 2 3 NOM 1 SCAN 3 MAT 0 FUNC 0 DUM 3 4 NOM 1 SCAN 4 MAT 0 FUNC 0 DUM 4 5 NOM 1 SCAN 5 MAT 0 FUNC 0 DUM 5 6 NOM 1 SCAN 6 MAT 0 FUNC 0 DUM 6 7 NOM 1 SCAN 7 MAT 0 FUNC 0 DUM 7 8 NOM 1 SCAN 8 MAT 0 FUNC 0 DUM 8 9 NOM 1 SCAN 9 MAT 0 FUNC 0 DUM 9 10 NOM 1 SCAN 10 MAT 0 FUNC 0 DUM 10 11 NOM 1 SCAN 11 MAT 0 FUNC 0 DUM 11 12 NOM 1 SCAN 12 MAT 0 FUNC 0 DUM 12 13 NOM 1 SCAN 13 MAT 0 FUNC 0 DUM 13 14 NOM 1 SCAN 14 MAT 0 FUNC 0 DUM 14 15 NOM 1 SCAN 15 MAT 0 FUNC 0 DUM 15 16 NOM 1 SCAN 16 MAT 0 FUNC 0 DUM 16 17 NOM 1 SCAN 17 MAT 0 FUNC 0 DUM 17 18 NOM 1 SCAN 18 MAT 0 FUNC 0 DUM 18 19 NOM 1 SCAN 19 MAT 0 FUNC 0 DUM 19 20 NOM 1 SCAN 20 MAT 0 FUNC 0 DUM 20 21 NOM 1 SCAN 21 MAT 0 FUNC 0 DUM 21 22 NOM 1 SCAN 22 MAT 0 FUNC 0 DUM 22 23 NOM 1 SCAN 23 MAT 0 FUNC 0 DUM 23 24 NOM 1 SCAN 24 MAT 0 FUNC 0 DUM 24 REG 1 027 2 00 3 00 4 00 NOM 1 1.00000E+03 101 1.00000E+03 102 1.00000E+05 103 1.00000E+02 SCAN 1 0, 0, 0, 0 2 1, 1, 0, 0 3 2, 2, 0, 0 4 3, 3, 0, 0 5 4, 4, 0, 0 6 5, 5, 0, 0 7 6, 6, 0, 0 8 7, 7, 0, 0 9 8, 8, 0, 0 10 9, 9, 0, 0 11 10, 10, 0, 0 12 11, 11, 0, 0 13 12, 12, 0, 0 14 13, 13, 0, 0 15 14, 14, 0, 0 16 15, 15, 0, 0 17 16, 16, 0, 0 18 17, 17, 0, 0 19 18, 18, 0, 0 20 19, 19, 0, 0 21 20, 20, 0, 0 22 21, 21, 0, 0 23 22, 22, 0, 0 24 23, 23, 0, 0 CODE 1 3, 8, 0, 0 TOL 1 -5.00000E-02, 5.00000E-02 DUM 1 0.00000E+00 2 0.00000E+00 3 0.00000E+00 4 0.00000E+00 5 0.00000E+00 6 0.00000E+00 7 0.00000E+00 8 0.00000E+00 9 0.00000E+00 10 0.00000E+00 11 0.00000E+00 12 0.00000E+00 13 0.00000E+00 14 0.00000E+00 15 0.00000E+00 16 0.00000E+00 17 0.00000E+00 18 0.00000E+00 19 0.00000E+00 20 0.00000E+00 21 0.00000E+00 22 0.00000E+00 23 0.00000E+00 24 0.00000E+00 801 0.00000E+00 802 0.00000E+00 STRG 1 _ 3  101 CIRCLE (1K OHM) 102 6" CARD (1K OHM) 103 4" S&R, 100K OHM 104 4" SNGL, 100 OHM