1 GOSUB 130 2 PRINT TAB(26)"N O M O G R A P H S" 3 GOSUB 170 4 PRINT " TYPE IN MODULUS VALUE"; 5 INPUT Y 6 PRINT "TYPE IN THE NUMBER OF VARIABLES TO BE PROCESSED"; 10 INPUT N 11 GOSUB 190 15 PRINT "DATA PLEASE" 20 FOR I=1 TO N 30 INPUT X[I] 40 NEXT I 50 FOR Q=1 TO N 60 LET C[Q]=LOG(X[Q])*.434294 70 LET D[Q]=Y*C[Q] 80 NEXT Q 84 GOSUB 160 85 PRINT " V"," F2(V)";" ","D" 90 FOR I=1 TO N 100 PRINT X[I],C[I],D[I] 110 PRINT 120 NEXT I 125 GOTO 220 130 PRINT 140 PRINT 150 PRINT 160 PRINT 170 PRINT 180 PRINT 190 PRINT 200 PRINT 210 RETURN 220 GOSUB 170 300 REM PROGRAM BY: J. J. PIACZO 400 END