10REM BBC MICRO BOARD ISS7 1/9/83 20REM Original by R.S.GASKELL: 30REM AB Electronics 40REM Revised by R.P.SPROWSON 1996 50MODE4:ONERRORGOTO690 60VDU19,0,7,0,0,0 70VDU19,1,0,0,0,0 80RESTORE780:REM Start of points 90F%=30:REM Y offset,the larger F% th e higher up the screen the map appears 100S%=TRUE:REM To turn bleeps off set the sound option to 'false' 110REM*****READ IN (OPTION,X,Y) 120REPEAT:READ O%,X%,Y%:Y%=Y%+F% 130IFO%=0 THENGCOL0,7:MOVEX%,Y% 140IFO%=1 THENGCOL0,7:DRAWX%,Y% 150IFO%=5 THENGCOL0,1:MOVE X%-10,Y%+30 :DRAW X%-10,Y%-30:DRAW X%+10,Y%-30:DRAW X%+10,Y%+30:DRAW X%-10,Y%+30:GCOL0,7 160IFO%=6 THENGCOL0,1:MOVE X%-10,Y%+34 :DRAW X%-10,Y%-34:DRAW X%+10,Y%-34:DRAW X%+10,Y%+34:DRAW X%-10,Y%+34:GCOL0,7 170IFO%=7 THENGCOL0,1:MOVE X%-10,Y%+41 :DRAW X%-10,Y%-41:DRAW X%+10,Y%-41:DRAW X%+10,Y%+41:DRAW X%-10,Y%+41:GCOL0,7 180UNTILX%=99 190REM*****WAIT FOR PART# 200INPUTTAB(0,1)"Enter part# to find:" E$ 210IFE$="END" THENMODE7:END 220RESTORE940 230REPEAT:READ P$,V$,X%,Y%:Y%=Y%+F% 240UNTILP$=E$:REM part,value,x,y 250GCOL3,1:MOVE520,950:DRAWX%,Y% 260PRINTTAB(0,1);"Value/Type ";V$;STRI NG$(39-11-LEN(V$)," ") 270IFS%=TRUE THENSOUND1,-15,120,2 280B$=MID$(P$,2,1):IFB$="P" GOTO620 290B$=LEFT$(P$,1):IFB$<>"R" GOTO620 300B$=LEFT$(V$,1):IF B$="N" GOTO620 310REM*****COLOUR ENCODER 320V%=VAL(B$):REM V%=value to convert into resistor colour stripe 330PROCstripe:band1$=stripe$ 340REM*****HANDLE KILO 350P%=INSTR(V$,"K") 360IFP%=0 THENGOTO400 370V%=P%:I%=P%:PROCstripe 380M$=stripe$:GOTO480 390REM*****HANDLE MEGA 400P%=INSTR(V$,"M") 410IFP%=0 THENGOTO440 420V%=P%+3:I%=V%:PROCstripe 430M$=stripe$:GOTO480 440REM*****HANDLE OHMS 450P%=INSTR(V$,"R") 460V%=P%-3:I%=V%:PROCstripe 470M$=stripe$:GOTO480 480REM*****PRESENT IT 490A$=MID$(V$,2,1) 500IFA$="K" ORA$="M" THENGOTO530 510V%=VAL(A$):PROCstripe 520band2$=stripe$:GOTO590 530REM*****HANDLE TOLERANCE 540IFRIGHT$(V$,1)="%" THENA$=RIGHT$(V$ ,4) 550IFA$="M" ORA$="K" THENV%=0:GOTO570 560V%=VAL(A$) 570PROCstripe 580band2$=stripe$ 590A$=RIGHT$(V$,1):IFA$="%" THENV%=I%- 1 ELSEGOTO610 600PROCstripe:bandN$=stripe$ 610PRINTTAB(0,29)"Colour bands "band1$ "/"band2$"/"M$:IF A$="%" THEN PRINTTAB(1 0,30)"or "band1$"/"band2$"/Black/"bandN$ 620REM*****UNPLOT POINTER 630M%=INKEY(2500) 640GCOL3,1:MOVE 520,950:DRAWX%,Y% 650PRINTTAB(0,1);STRING$(39," ") 660PRINTTAB(0,29);STRING$(39," ") 670PRINTTAB(0,30);STRING$(39," ") 680GOTO190:REM Next part to find 690REM*****ERROR HANDLER 700IFERR=17 THENMODE7:END 710IFS%=TRUE THENSOUND1,-15,50,4 720IFERR=42 THENPRINTTAB(0,1)"Unknown part!";STRING$(39-12," "):M=INKEY(150):G OTO190 730PRINTTAB(0,0);:REPORT:PRINT" at lin e ";ERL:M=INKEY(150):RUN 740DEFPROCstripe 750RESTORE920 760FORC%=0 TOV%:READstripe$:NEXT 770ENDPROC 780REM*****START OF CHIP OUTLINES 790DATA 0,100,100,1,100,900,1,1160,900 ,1,1160,100,1,100,100,0,652,207,1,700,20 7,1,700,380,1,652,380,1,652,207,0,652,39 2,1,700,392,1,700,563,1,652,563,1,652,39 2,0,652,588,1,700,588,1,700,762,1,652,76 2,1,652,588 800DATA 0,317,342,1,480,342,1,480,352, 1,317,352,1,317,342,0,312,367,1,357,367, 1,357,520,1,312,520,1,312,367,0,410,367, 1,458,367,1,458,520,1,410,520,1,410,367, 0,117,100,1,280,100,1,280,138,1,117,138, 1,117,100 810DATA 0,348,100,1,348,138,1,462,138, 1,462,100,0,583,100,1,583,138,1,671,138, 1,671,100,0,740,100,1,740,138,1,888,138, 1,888,100,0,980,100,1,980,138,1,1132,138 ,1,1132,100,0,192,900,1,192,836,1,255,83 6,1,255,900 820DATA 0,400,900,1,400,847,1,527,847, 1,527,900,0,667,900,1,667,820,1,730,820, 1,730,900,0,738,900,1,738,838,1,800,838, 1,800,900,0,805,900,1,805,838,1,870,838, 1,870,900,0,1025,900,1,1025,807,1,1160,8 07 830DATA 0,835,187,1,880,187,1,880,310, 1,835,310,1,835,187,0,900,187,1,948,187, 1,948,310,1,900,310,1,900,187,0,968,187, 1,1012,187,1,1012,310,1,968,310,1,968,18 7,0,1032,187,1,1078,187,1,1078,310,1,103 2,310,1,1032,187,0,1100,187,1,1142,187 840DATA 1,1142,310,1,1100,310,1,1100,1 87,0,835,350,1,880,350,1,880,468,1,835,4 68,1,835,350,0,745,453,1,790,453,1,790,5 75,1,745,575,1,745,453,0,540,590,1,588,5 90,1,588,693,1,540,693,1,540,590,0,540,7 30,1,588,730,1,588,850,1,540,850 850DATA 1,540,730,0,445,700,1,491,700, 1,491,820,1,445,820,1,445,700,0,155,532, 1,200,532,1,200,652,1,155,652,1,155,532, 0,155,367,1,200,367,1,200,487,1,155,487, 1,155,367,0,225,367,1,269,367,1,269,487, 1,225,487,1,225,367 860DATA 5,242,630,5,288,630,5,338,630, 5,382,630,5,421,630,6,468,635,7,740,250, 5,355,700,5,312,700,6,258,705,5,208,708, 5,158,708,5,125,725,5,270,798,5,180,798, 7,398,785,5,125,565,5,135,232,6,190,295, 5,258,298,5,310,298,6,352,295 870DATA 5,392,298,5,448,298,5,341,220, 5,392,220,6,448,217,5,483,220,6,523,225, 7,587,230,5,523,510,5,523,412,5,523,308, 6,587,507,6,587,409,5,587,308,5,630,838, 7,740,395,7,740,250,7,785,395,7,785,250 880DATA 6,938,640,6,977,640,6,1016,640 ,6,1055,640,6,1094,640,6,1133,640,6,977, 558,6,1016,558,6,1055,558,6,1094,558,6,1 133,558,6,1016,458,6,1055,458,6,1094,458 ,6,1133,458,6,1094,375,6,1133,375 890DATA 5,977,765,5,1017,765,5,1057,76 5,5,1097,765,5,1137,765,7,938,370,7,977, 370,7,1018,370,7,1055,370,7,938,463,7,97 7,463,5,938,555,5,893,555,5,847,555,5,89 3,645,5,820,645,6,753,640,5,753,734,5,82 0,734,6,893,739 900DATA 0,730,793,1,798,793,1,798,813, 1,730,813,1,730,793,0,812,793,1,880,793, 1,880,813,1,812,813,1,813,793,0,128,830, 1,148,830,1,148,863,1,128,863,1,128,830, 0,280,188,1,300,188,1,300,225,1,280,225 910DATA 1,280,188,0,99,99 920REM*****RESISTOR COLOUR CODES 930DATA Black,Brown,Red,Orange,Yellow, Green,Blue,Violet,Grey,White,Gold,Silver 940REM*****TEXT CONVERSIONS 950DATA R87,8K2,658,828,R88,8K2,658,84 2,R161,5K6,607,878,R6,4K7,118,518,R46,1K ,187,710,R52,1K,230,715,R61,1K,190,747,R 84,10K,642,880,R172,10K,680,170 960DATA R28,4K7,200,250,R31,4K7,160,33 0,R83,4K7,640,760,R89,4K7,658,860,R90,4K 7,658,888,R116,3K9,900,850,R126,3K9,950, 800,R147,3K9,1070,700,R156,3K3,1122,718, R160,3K3,590,878,R73,N/U,479,402,R81,3K3 ,625,475,R85,3K3,637,460 970DATA R93,3K3,750,839,R96,3K3,792,83 0,R108,3K3,862,142,C38,2n2f,760,820,R174 ,22K,725,790,R76,10K,610,810,R162,4K7,61 0,200,R137,3K9,893,807,R59,56K 2%,225,78 0,R64,1M5 2%,220,764,R13,1M,140,770 980DATA R10,3K3,139,640,R55,N/U,472,29 0,R65,3K3,375,450,R68,3K3,390,160,R69,3K 3,390,167,R70,3K3,420,230,R72,N/U,464,42 3,R71,2K7,450,830,R141,2K7,999,830,R74,2 K2,600,764,R95,2K2,770,835,R97,2K2,790,8 35,R117,2K2,900,860 990DATA R136,2K2,974,825,R152,2K2,1119 ,690,R127,1K5,952,830,R138,1K5,897,809,R 146,1K5,1059,720,R154,1K2,1147,700,R135, 1K,974,819,R139,1K,895,818,R140,1K,992,8 22,R145,1K,1040,698,R101,1K,819,398,R103 ,1K,824,480,R107,1K,836,340 1000DATA R115,1K,900,840,R118,1K,900,86 5,R134,1K,964,839,R29,1K,210,232,R33,1K, 240,720,R37,1K,262,331,R53,1K,231,359,R9 8,1K,810,410,R99,1K,815,360,R173,4K7,150 ,670,R170,2K2,140,446,R100,1K,816,380,R9 1,820R,735,738,R92,820R,720,756 1010DATA R148,820R,1065,718,R150,680R,1 116,690,R155,680R,1143,700,R157,680R,114 5,700,R123,470R,944,830,R128,470R,955,81 5,R151,470R,1120,716,R158,470R,1150,716 ,R22,150R,190,178,R23,150R,190,170,R49,1 50R,281,678,R58,150R,330,255 1020DATA R94,100R,780,720,R102,100R,840 ,660,R105,100R,855,635,R119,100R,956,555 ,R171,100R,525,628,R120,82R,940,790,R121 ,82R,940,798,R122,82R,940,815,R110,68R,8 80,840,R111,68R,880,850,R112,68R,880,860 ,R113,68R,880,867,R129,68R,928,840 1030DATA R130,68R,960,828,R106,56R,860 ,716,R124,56R,945,750,R131,56R,960,685 , R14,10R,152,163,R18,10R,160,270,R57,10R, 285,230,R114,18R,895,360,R38,100K 2%,315 ,780,R39,100K 2%,315,810,R40,100K 2%,225 ,755,R41,100K 2%,225,825 1040DATA R60,56K 2%,225,808,R62,56K 2%, 230,770,R63,56K 2%,225,816,R34,10K 2%,22 5,800,R35,10K 2%,225,792,R45,10K 2%,315, 800,R51,10K 2%,315,792,R47,1K5 2%,315,77 0,R48,1K 2%,315,816,R109,1K8,870,660,R36 ,1M5,300,840,R44,1M5,280,760 1050DATA R20,1M,155,885,R21,1M,150,790 ,R79,820K,620,800,R159,270K,540,880,R12, 220K,142,270,R86,220K,655,800,R78,150K , 620,790,R82,150K,640,800,R132,120K,960 , 800,R133,120K,960,808,R5,100K,110,265,R7 ,100K,124,270,R11,100K,135,270 1060DATA R77,100K,610,822,R75,82K,608,7 40,R9,39K,130,294,R15,39K,150,270,R24,39 K,197,215,R50,39K,290,710,R80,39K,635,88 0,R4,22K,110,250,R16,22K,180,205,R144,15 K,1037,700,R143,12K,1037,720,R1,10K,120 ,200,R2,10K,110,210,R3,10K,110,230 1070DATA R8,10K,160,180,R17,10K,155,225 ,R27,10K,210,240,R30,10K,150,322,R66,10K ,380,840,R67,10K,380,850,RP2,22K,355,810 ,RP1,6K8,280,430,VR2,200K,115,390,VR1,10 K,218,197 1080DATA C36,47mf,733,580,C54,47mf,1065 ,515,C5,10mf,125,170,C9,10mf,200,250,C18 ,10mf,270,750,C30,10mf,600,860,C47,10mf ,850,321,C57,10mf,945,765,C2,4m7,120,180 ,C28,4m7,530,740,C60,4m7,1150,785,C27,1m f,485,835,C59,LINK,518,818 1090DATA C39,2n2f,780,775,C6,100nf,160 ,842,C8,100nf,165,850,C15,100nf,260,201 ,C21,100nf,212,380,C24,100nf,370,865,C20 ,47nf,260,180,C25,33nf,435,780,C10,10nf ,165,870,C23,10nf,180,760,C40,10nf,785,7 50,C45,10nf,865,700,C32,4n7f,655,820 1100DATA C33,4n7f,655,850,C1,2n2f,118,1 65,C3,2n2f,120,315,C7,2n2f,169,230,C11,2 n2f,180,230,C17,2n2f,280,718,C29,2n2f ,6 00,820,C13,1nf,240,690,C58,470pf,1000 ,8 60,C43,47pf,820,830,C46,47pf,873,825,C31 ,820pf,640,790,C35,82Opf,710,815 1110DATA C52,390pf,1025,705,C48,270pf,9 20,510,C41,220pf,790,710,C49,150pf,980,8 75,C53,100pf,1040,700,C55,100pf,1050,700 ,C50,47pf,1030,805,C56,39pf,1125,715,C37 ,33pf,735,716,C42,33pf,790,640,C51,33pf, 1010,710,C12,10pf,210,460 1120DATA C34,200/220nf,680,820,C14,47mf ,260,510,C16,47mf,280,165,C26,47mf,500,6 20,VC1,2-22pf,980,706 1130DATA Q10,2N3906,1035,720,Q7,BC309,8 90,830,Q8,BC309,980,840,Q1,BC239,550,870 ,Q2,BC239,570,870,Q3,BC239,630,770,Q4,BC 239,850,670,Q5,BC239,862,758,Q6,BC239,94 0,782,Q9,BC239,985,830,Q11,BC239,125,470 ,RL1,5V,690,790,D1,1N4148,130,640 1140DATA D2,1N4148,162,190,D6,1N4148,49 5,835,D7,1N4148,500,835,D8,1N4148,510,83 5,D13,1N4148,620,760,D14,1N4148,840,142, D15,1N4148,840,150,D19,1N4148,875,640,D2 0,1N4148,910,800,D21,1N4148,910,808,D22, 1N4148,910,815,D16,1N4002,865,320 1150DATA D17,1N4002,875,320,D18,1N4002, 880,320,X2,17.734MHz,1010,690,X1,16MHz,7 20,750,L1,33mh,1135,717,SK6,15WAY,470,87 0,SK5,7WAY,700,860,SK4,5WAY,770,870,SK3, 6WAY,840,870,SK1,UHFMOD,1090,850,SK7,5WA Y,230,870,IC74,88LS120,770,800 1160DATA IC8,81LS95,940,370,IC9,81LS95, 940,465,IC10,81LS95,980,370,IC11,81LS95, 980,465,IC12,81LS95,1060,370,IC13,81LS95 ,1020,370,IC18,76489,200,300,IC16,LM555, 140,850,IC19,LM386,290,215,IC17,LM324,13 5,240,IC35,LM324,630,840 1170DATA IC15,74LS273,785,400,IC32,74LS 259,473,635,IC14,74LS245,740,400,IC72,74 LS245,790,250,IC70,74LS244,580,240,IC71, 74LS244,740,250,IC96,74LS244,400,780,IC4 2,74LS163,940,640,IC76,74LS163,350,295,I C20,74LS139,525,220 1180DATA IC39,74LS283,755,640,IC26,74LS 139,590,500,IC45,74S139,895,730,IC24,74L S138,585,410,IC38,74LS86,940,560,IC47,74 LS86,1020,760,IC48,74LS86,1058,760,IC30, 74LS74,382,630,IC31,74LS74,420,630,IC34, 74LS74,355,700,IC44,74LS74,820,740 1190DATA IC97,74LS74,125,725,IC46,74S74 ,980,760,IC28,74LS51,290,630,IC29,74LS32 ,340,630,IC22,74LS30,590,325,IC23,74LS30 ,525,415,IC25,74LS20,528,510,IC36,74LS10 ,850,550,IC82,74LS10,450,300,IC33,74LS04 ,315,700,IC37,74LS04,895,550 1200DATA IC43,74S04,755,740,IC41,74LS02 ,898,650,IC21,74LSOO,525,330,IC49,74LS00 ,1100,770,IC50,74LS00,1135,770,IC40,74S0 0,820,650,IC77,74S00,240,630,IC27,7438,1 30,560,IC79,7438,260,300,IC80,7438,310,3 00,IC52,23128 BO5,930,250 1210DATA IC54,4816,1100,460,IC55,4816,1 055,460,IC56,4816,1130,640,IC57,4816,110 0,640,IC58,4816,1055,640,IC59,4816,1020, 640,IC60,4816,980,640,IC61,4816,1130,370 ,IC62,4816,1130,460,IC63,4816,1020,460,I C64,4816,1130,560,IC65,4816,1100,560 1220DATA IC66,4816,1055,560,IC67,4816,1 020,560 1230DATA IC51,23128 BO4,860,250,IC53,48 16,1095,375,IC68,4816,980,560,IC73,7002, 470,760,IC7,2C199,565,790,IC6,5C094/VTI, 860,410,IC5,SAA5050,770,520,IC75,3691,84 0,800,IC4,6850,560,640,IC2,6845,680,680, IC3,6522,435,460,IC69,6522,680,300 1240DATA IC1,6502A,680,460,IC88,2764,99 0,250,IC100,2764,1060,250,IC94,LM319,270 ,800,IC95,LM319,180,800,IC78,8271,340,46 0,IC85,4020,450,220,IC83,4013,340,220,IC 84,4013,390,220,IC89,68B54,180,600,IC93, 75159,160,700,IC81,74LS393,390,300 1250DATA IC86,74LS393,480,220,IC91,74LS 132,210,700,IC87,74LS123,260,700,PL12,40 WAY,1040,120,PL10,20WAY,620,120,PL9,26WA Y,400,120,PL8,34WAY,200,120,PL11,34WAY,8 00,120,S20,3xMOLEX,555,300 1260DATA S25,3xMOLEX,866,722,S26,3xMOLE X,883,338,S31,3xMOLEX,1060,682,S32,3xMOL EX,1125,318,S33,3xMOLEX,1125,332,PL15,2x MOLEX,285,157,S22,3xMOLEX,565,340,S21,3x MOLEX,550,330,S19,3xMOLEX,520,453 1270DATA PL14,10xMOLEX,180,350,PL13,17x MOLEX,400,350,S11,2x8xMOLEX,365,810,S2,8 mmLINK,115,660,S9,8mmLINK,225,535,END,GO ODBYE,520,950