10 REM +++++++++++++++++++++++++++++++++ 11 REM ! Program .... PARASCAN 12 REM ! Utg}va 81-06-24 13 REM ! av L-O GRADIN 14 REM ! {ndrat av L-O GRADIN, A JISMO 15 REM ! Copyright POPULAR ELECTRONICS 16 REM ! Minne 16 Kbytes 17 REM ! Ins{nt av L-O GRADIN 18 REM +++++++++++++++++++++++++++++++++ 19 ; CHR$(12) 20 ; "MED DETTA PROGRAM,H[MTAT OCH MODIFIERAT FR]N 'POPULAR ELECTRONICS'," 21 ; "KAN DU SE VILKA MOTST]ND DU KAN PARAL- LELLKOPPLA"; 22 ; " F\R ATT N] ETT \NSKAT RESI- STANS V[RDE MED EN VISS TOLERANS." 23 DATA 1,1.1,1.2,1.3,1.5,1.6,1.8,2,2.2,2.4,2.7,3 24 DATA 3.3,3.6,3.9,4.3,4.7,5.1,5.6,6.2,6.8,7.5,8.2,9.1 25 DIM R(24) : FOR A=1 TO 24 : READ R(A) : NEXT A 26 ; 27 ; "(S)= UTSKRIFT P] SK[RMEN " 28 ; "(P)= UTSKRIFT P] PRINTER "; 29 GET L$ : ON INSTR(1,"SsPp",L$)+1% GOTO 29,30,30,31,31 30 L%=0% : ; : ; : GOTO 32 31 L%=1% 32 ; "RESISTANCE IN OHM'S"; : INPUT R : X=1 : Y=1 33 IF R>4.55E+06 THEN PRINT "OUT OF RANGE.ENTER AGAIN" : GOTO 32 34 ; 35 ; "TOLERANCE IN %"; : INPUT T 36 L=R-(T/100)*R : U=R+(T/100)*R 37 ; 38 PRINT "FROM";L;" TO";U;" OHMS" : PRINT 39 OPEN "PR : " AS FILE 1 40 ; #L% CHR$(14) "RESISTANCE IN OHM'S";R 41 ; #L% "" 42 ; #L% CHR$(14) "TOLERANCE IN %";T 43 ; #L% "" 44 ; #L% CHR$(14) "FROM";L;" TO";U;" OHMS" 45 ; #L% "" 46 ; #L% CHR$(14) " R1";TAB(9);"R2";TAB(17);"R1/R2";TAB(28) "% TOL." 47 ; #L% CHR$(14) "==================================" 48 FOR Z=1 TO 7 49 FOR M=1 TO 24 : IF R(M)*XU THEN 63 54 T1=((100*P/R)-100)*1000 : T1=INT(T1)/1000 55 R1=R(M)*X : K$='' : K1$='' 56 IF X>100 THEN R1=R1/1000 : K$="K" 57 IF X>100000 THEN R1=R1/1000 : K$="M" 58 R2=R(N)*Y : IF Y>100 THEN R2=R2/1000 : K1$="K" 59 IF Y>100000 THEN R2=R2/1000 : K1$="M" 60 REM PRINT R1;K$;TAB(6)" ";R2;K1$;TAB(14);"=";P;TAB(28);T1;"%" 61 ; #L% CHR$(14) R1;K$;TAB(6) " ";R2;K1$;TAB(14);"=";P;TAB(28);T1;"%" 62 IF L%=0% THEN GET \$ 63 NEXT N : Y=Y*10 64 NEXT W 65 NEXT M : X=X*10 66 NEXT Z 67 END