home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 3 / run-special-3.zip / OHM.BAS < prev    next >
BASIC Source File  |  1989-11-24  |  3KB  |  60 lines
  1. 100 REM KLEURCODES VAN WEERSTANDEN - MONOCHROOM
  2. 110 CLS:KEY OFF:PRINT TAB(31) "Kleurcode weerstanden"
  3. 120 GOSUB 660:DIM R$(10),KL$(12),A$(15)
  4. 130 FOR X=0 TO 9:READ KL$(X):NEXT X:PRINT:COLOR 15,0
  5. 140 LOCATE 4,30:PRINT CHR$(218)STRING$(20,196)CHR$(191)
  6. 150 FOR A=5 TO 7:LOCATE A,30
  7. 160 PRINT CHR$(179)STRING$(20,32)CHR$(179):NEXT A
  8. 170 LOCATE 6,20:PRINT STRING$(10,205)CHR$(181)
  9. 180 LOCATE 6,51:PRINT CHR$(198)STRING$(10,205)
  10. 190 LOCATE 8,30:PRINT CHR$(192)STRING$(20,196)CHR$(217)
  11. 200 FOR A=38 TO 48 STEP 2:LOCATE 4,A:PRINT CHR$(194):NEXT A
  12. 210 FOR A=5 TO 7:FOR B=38 TO 48 STEP 2
  13. 220 LOCATE A,B:PRINT CHR$(179):NEXT B,A
  14. 230 FOR A=38 TO 48 STEP 2:LOCATE 8,A:PRINT CHR$(193):NEXT A
  15. 240 COLOR 7,0:PRINT:PRINT:GOSUB 660
  16. 250 LOCATE 5,39:COLOR 31,0:PRINT "1":COLOR 7,0
  17. 260 LOCATE 12,1:INPUT "Kleur van ring nr. 1";P$
  18. 270 GOSUB 620:IF Q=0 THEN 260
  19. 280 LOCATE 5,39:PRINT "1":LOCATE 5,41:COLOR 31,0:PRINT "2":COLOR 7,0
  20. 290 R$(1)=P$
  21. 300 LOCATE 13,1:INPUT "Kleur van ring nr. 2";P$
  22. 310 GOSUB 620:IF Q=0 THEN 300
  23. 320 LOCATE 5,41:PRINT "2":LOCATE 5,43:COLOR 31,0:PRINT "3":COLOR 7,0
  24. 330 R$(2)=P$
  25. 340 LOCATE 14,1:INPUT "Kleur van ring nr. 3";P$
  26. 350 GOSUB 620:IF Q=0 THEN 340
  27. 360 R$(3)=P$:GOSUB 660
  28. 370 LOCATE 5,43:PRINT "3":LOCATE 5,47:COLOR 31,0:PRINT "4":COLOR 7,0
  29. 380 PRINT:LOCATE 16,1:INPUT "Kleur van ring nr. 4";P$
  30. 390 IF P$<>"goud" AND P$<>"zilver" AND P$<>"brons" THEN                             PRINT "Alleen goud,zilver of brons":GOTO 380
  31. 400 LOCATE 5,47:PRINT "4":LOCATE 17,1
  32. 410 R$(4)=P$:GOSUB 660
  33. 420 A$(5)="goud":A$(10)="zilver":A$(15)="brons"
  34. 430 FOR X=0 TO 9
  35. 440 IF R$(1)=KL$(X) THEN W1$=STR$(X)
  36. 450 IF R$(2)=KL$(X) THEN W2$=RIGHT$(STR$(X),LEN(STR$(X))-1)
  37. 460 IF R$(3)=KL$(X) THEN W3=X
  38. 470 NEXT X
  39. 480 FOR Y=5 TO 15 STEP 5
  40. 490 IF R$(4)=A$(Y) THEN W4$=STR$(Y):GOTO 500 ELSE NEXT Y
  41. 500 A$="0":Z$="":IF W3=0 THEN 520
  42. 510 FOR X=1 TO W3:Z$=Z$+A$:NEXT X
  43. 520 LOCATE 18,1:PRINT "De waarde is: ";W1$+W2$+Z$+CHR$(32)+CHR$(234)
  44. 530 PRINT "met een tolerantie van ";W4$;" %"
  45. 540 GOSUB 660:H$=W1$+W2$+Z$:P=VAL(H$)
  46. 550 IF P>9000000! THEN 590
  47. 560 IF P<1000 THEN 610
  48. 570 IF P<9000000! THEN G=P/1000
  49. 580 PRINT:PRINT "ofte wel: ";INT(G);"Kilo Ohm":GOSUB 660:GOTO 610
  50. 590 G=P/1000000!
  51. 600 PRINT:PRINT "ofte wel: ";INT(G);"Mega Ohm":GOSUB 660
  52. 610 WHILE INKEY$="":WEND:END
  53. 620 FOR A=0 TO 9
  54. 630 IF P$=KL$(A) THEN Q=1:GOTO 650
  55. 640 NEXT A:Q=0
  56. 650 RETURN
  57. 660 PRINT STRING$(80,196);:RETURN
  58. 670 DATA "zwart","bruin","rood","oranje","geel"
  59. 680 DATA "groen","blauw","violet","grijs","wit"
  60.