10 REM BBC MICRO BOARD ISS7 1/9/83
   20 REM Original by R.S.GASKELL:
   30 REM AB Electronics 
   40 REM Revised by R.P.SPROWSON 1996 
   50 MODE4:ONERRORGOTO690
   60 VDU19,0,7,0,0,0
   70 VDU19,1,0,0,0,0
   80 RESTORE780:REM Start of points
   90 F%=30:REM Y offset,the larger F% the higher up the screen the map appears
  100 S%=TRUE:REM To turn bleeps off set the sound option to 'false' 
  110 REM*****READ IN (OPTION,X,Y)
  120 REPEAT:READ O%,X%,Y%:Y%=Y%+F%
  130 IFO%=0 THENGCOL0,7:MOVEX%,Y%
  140 IFO%=1 THENGCOL0,7:DRAWX%,Y%
  150 IFO%=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
  160 IFO%=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
  170 IFO%=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
  180 UNTILX%=99 
  190 REM*****WAIT FOR PART#
  200 INPUTTAB(0,1)"Enter part# to find:"E$ 
  210 IFE$="END" THENMODE7:END 
  220 RESTORE940
  230 REPEAT:READ P$,V$,X%,Y%:Y%=Y%+F%
  240 UNTILP$=E$:REM part,value,x,y
  250 GCOL3,1:MOVE520,950:DRAWX%,Y%
  260 PRINTTAB(0,1);"Value/Type ";V$;STRING$(39-11-LEN(V$)," ")
  270 IFS%=TRUE THENSOUND1,-15,120,2   
  280 B$=MID$(P$,2,1):IFB$="P" GOTO620 
  290 B$=LEFT$(P$,1):IFB$<>"R" GOTO620
  300 B$=LEFT$(V$,1):IF B$="N" GOTO620
  310 REM*****COLOUR ENCODER 
  320 V%=VAL(B$):REM V%=value to convert into resistor colour stripe
  330 PROCstripe:band1$=stripe$
  340 REM*****HANDLE KILO 
  350 P%=INSTR(V$,"K")
  360 IFP%=0 THENGOTO400
  370 V%=P%:I%=P%:PROCstripe
  380 M$=stripe$:GOTO480
  390 REM*****HANDLE MEGA 
  400 P%=INSTR(V$,"M")
  410 IFP%=0 THENGOTO440
  420 V%=P%+3:I%=V%:PROCstripe
  430 M$=stripe$:GOTO480
  440 REM*****HANDLE OHMS
  450 P%=INSTR(V$,"R")
  460 V%=P%-3:I%=V%:PROCstripe
  470 M$=stripe$:GOTO480
  480 REM*****PRESENT IT
  490 A$=MID$(V$,2,1) 
  500 IFA$="K" ORA$="M" THENGOTO530
  510 V%=VAL(A$):PROCstripe
  520 band2$=stripe$:GOTO590
  530 REM*****HANDLE TOLERANCE 
  540 IFRIGHT$(V$,1)="%" THENA$=RIGHT$(V$,4)
  550 IFA$="M" ORA$="K" THENV%=0:GOTO570
  560 V%=VAL(A$)
  570 PROCstripe 
  580 band2$=stripe$
  590 A$=RIGHT$(V$,1):IFA$="%" THENV%=I%-1 ELSEGOTO610
  600 PROCstripe:bandN$=stripe$ 
  610 PRINTTAB(0,29)"Colour bands "band1$"/"band2$"/"M$:IF A$="%" THEN PRINTTAB(10,30)"or "band1$"/"band2$"/Black/"bandN$ 
  620 REM*****UNPLOT POINTER 
  630 M%=INKEY(2500) 
  640 GCOL3,1:MOVE 520,950:DRAWX%,Y%
  650 PRINTTAB(0,1);STRING$(39," ")
  660 PRINTTAB(0,29);STRING$(39," ")
  670 PRINTTAB(0,30);STRING$(39," ") 
  680 GOTO190:REM Next part to find
  690 REM*****ERROR HANDLER
  700 IFERR=17 THENMODE7:END 
  710 IFS%=TRUE THENSOUND1,-15,50,4
  720 IFERR=42 THENPRINTTAB(0,1)"Unknown part!";STRING$(39-12," "):M=INKEY(150):GOTO190
  730 PRINTTAB(0,0);:REPORT:PRINT" at line ";ERL:M=INKEY(150):RUN 
  740 DEFPROCstripe
  750 RESTORE920
  760 FORC%=0 TOV%:READstripe$:NEXT
  770 ENDPROC
  780 REM*****START OF CHIP OUTLINES
  790 DATA 0,100,100,1,100,900,1,1160,900,1,1160,100,1,100,100,0,652,207,1,700,207,1,700,380,1,652,380,1,652,207,0,652,392,1,700,392,1,700,563,1,652,563,1,652,392,0,652,588,1,700,588,1,700,762,1,652,762,1,652,588
  800 DATA 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
  810 DATA 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,836,1,255,900 
  820 DATA 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,807
  830 DATA 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,187,0,1032,187,1,1078,187,1,1078,310,1,1032,310,1,1032,187,0,1100,187,1,1142,187 
  840 DATA 1,1142,310,1,1100,310,1,1100,187,0,835,350,1,880,350,1,880,468,1,835,468,1,835,350,0,745,453,1,790,453,1,790,575,1,745,575,1,745,453,0,540,590,1,588,590,1,588,693,1,540,693,1,540,590,0,540,730,1,588,730,1,588,850,1,540,850 
  850 DATA 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
  860 DATA 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
  870 DATA 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
  880 DATA 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,1133,558,6,1016,458,6,1055,458,6,1094,458,6,1133,458,6,1094,375,6,1133,375
  890 DATA 5,977,765,5,1017,765,5,1057,765,5,1097,765,5,1137,765,7,938,370,7,977,370,7,1018,370,7,1055,370,7,938,463,7,977,463,5,938,555,5,893,555,5,847,555,5,893,645,5,820,645,6,753,640,5,753,734,5,820,734,6,893,739
  900 DATA 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
  910 DATA 1,280,188,0,99,99
  920 REM*****RESISTOR COLOUR CODES
  930 DATA Black,Brown,Red,Orange,Yellow,Green,Blue,Violet,Grey,White,Gold,Silver
  940 REM*****TEXT CONVERSIONS 
  950 DATA R87,8K2,658,828,R88,8K2,658,842,R161,5K6,607,878,R6,4K7,118,518,R46,1K,187,710,R52,1K,230,715,R61,1K,190,747,R84,10K,642,880,R172,10K,680,170
  960 DATA R28,4K7,200,250,R31,4K7,160,330,R83,4K7,640,760,R89,4K7,658,860,R90,4K7,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 
  970 DATA R93,3K3,750,839,R96,3K3,792,830,R108,3K3,862,142,C38,2n2f,760,820,R174,22K,725,790,R76,10K,610,810,R162,4K7,610,200,R137,3K9,893,807,R59,56K 2%,225,780,R64,1M5 2%,220,764,R13,1M,140,770
  980 DATA R10,3K3,139,640,R55,N/U,472,290,R65,3K3,375,450,R68,3K3,390,160,R69,3K3,390,167,R70,3K3,420,230,R72,N/U,464,423,R71,2K7,450,830,R141,2K7,999,830,R74,2K2,600,764,R95,2K2,770,835,R97,2K2,790,835,R117,2K2,900,860 
  990 DATA R136,2K2,974,825,R152,2K2,1119,690,R127,1K5,952,830,R138,1K5,897,809,R146,1K5,1059,720,R154,1K2,1147,700,R135,1K,974,819,R139,1K,895,818,R140,1K,992,822,R145,1K,1040,698,R101,1K,819,398,R103,1K,824,480,R107,1K,836,340 
 1000 DATA R115,1K,900,840,R118,1K,900,865,R134,1K,964,839,R29,1K,210,232,R33,1K,240,720,R37,1K,262,331,R53,1K,231,359,R98,1K,810,410,R99,1K,815,360,R173,4K7,150,670,R170,2K2,140,446,R100,1K,816,380,R91,820R,735,738,R92,820R,720,756   
 1010 DATA R148,820R,1065,718,R150,680R,1116,690,R155,680R,1143,700,R157,680R,1145,700,R123,470R,944,830,R128,470R,955,815,R151,470R,1120,716,R158,470R,1150,716 ,R22,150R,190,178,R23,150R,190,170,R49,150R,281,678,R58,150R,330,255
 1020 DATA 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,880,840,R111,68R,880,850,R112,68R,880,860,R113,68R,880,867,R129,68R,928,840
 1030 DATA 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
 1040 DATA R60,56K 2%,225,808,R62,56K 2%,230,770,R63,56K 2%,225,816,R34,10K 2%,225,800,R35,10K 2%,225,792,R45,10K 2%,315,800,R51,10K 2%,315,792,R47,1K5 2%,315,770,R48,1K 2%,315,816,R109,1K8,870,660,R36,1M5,300,840,R44,1M5,280,760
 1050 DATA 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 
 1060 DATA R77,100K,610,822,R75,82K,608,740,R9,39K,130,294,R15,39K,150,270,R24,39K,197,215,R50,39K,290,710,R80,39K,635,880,R4,22K,110,250,R16,22K,180,205,R144,15K,1037,700,R143,12K,1037,720,R1,10K,120 ,200,R2,10K,110,210,R3,10K,110,230
 1070 DATA 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,10K,218,197
 1080 DATA 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,1mf,485,835,C59,LINK,518,818
 1090 DATA 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,750,C45,10nf,865,700,C32,4n7f,655,820 
 1100 DATA C33,4n7f,655,850,C1,2n2f,118,165,C3,2n2f,120,315,C7,2n2f,169,230,C11,2n2f,180,230,C17,2n2f,280,718,C29,2n2f ,600,820,C13,1nf,240,690,C58,470pf,1000 ,860,C43,47pf,820,830,C46,47pf,873,825,C31,820pf,640,790,C35,82Opf,710,815 
 1110 DATA C52,390pf,1025,705,C48,270pf,920,510,C41,220pf,790,710,C49,150pf,980,875,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    
 1120 DATA C34,200/220nf,680,820,C14,47mf,260,510,C16,47mf,280,165,C26,47mf,500,620,VC1,2-22pf,980,706   
 1130 DATA Q10,2N3906,1035,720,Q7,BC309,890,830,Q8,BC309,980,840,Q1,BC239,550,870,Q2,BC239,570,870,Q3,BC239,630,770,Q4,BC239,850,670,Q5,BC239,862,758,Q6,BC239,940,782,Q9,BC239,985,830,Q11,BC239,125,470,RL1,5V,690,790,D1,1N4148,130,640
 1140 DATA D2,1N4148,162,190,D6,1N4148,495,835,D7,1N4148,500,835,D8,1N4148,510,835,D13,1N4148,620,760,D14,1N4148,840,142,D15,1N4148,840,150,D19,1N4148,875,640,D20,1N4148,910,800,D21,1N4148,910,808,D22,1N4148,910,815,D16,1N4002,865,320
 1150 DATA D17,1N4002,875,320,D18,1N4002,880,320,X2,17.734MHz,1010,690,X1,16MHz,720,750,L1,33mh,1135,717,SK6,15WAY,470,870,SK5,7WAY,700,860,SK4,5WAY,770,870,SK3,6WAY,840,870,SK1,UHFMOD,1090,850,SK7,5WAY,230,870,IC74,88LS120,770,800  
 1160 DATA 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,135,240,IC35,LM324,630,840
 1170 DATA IC15,74LS273,785,400,IC32,74LS259,473,635,IC14,74LS245,740,400,IC72,74LS245,790,250,IC70,74LS244,580,240,IC71,74LS244,740,250,IC96,74LS244,400,780,IC42,74LS163,940,640,IC76,74LS163,350,295,IC20,74LS139,525,220
 1180 DATA IC39,74LS283,755,640,IC26,74LS139,590,500,IC45,74S139,895,730,IC24,74LS138,585,410,IC38,74LS86,940,560,IC47,74LS86,1020,760,IC48,74LS86,1058,760,IC30,74LS74,382,630,IC31,74LS74,420,630,IC34,74LS74,355,700,IC44,74LS74,820,740 
 1190 DATA 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   
 1200 DATA IC43,74S04,755,740,IC41,74LS02,898,650,IC21,74LSOO,525,330,IC49,74LS00,1100,770,IC50,74LS00,1135,770,IC40,74S00,820,650,IC77,74S00,240,630,IC27,7438,130,560,IC79,7438,260,300,IC80,7438,310,300,IC52,23128 BO5,930,250 
 1210 DATA IC54,4816,1100,460,IC55,4816,1055,460,IC56,4816,1130,640,IC57,4816,1100,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,IC64,4816,1130,560,IC65,4816,1100,560
 1220 DATA IC66,4816,1055,560,IC67,4816,1020,560
 1230 DATA IC51,23128 BO4,860,250,IC53,4816,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,840,800,IC4,6850,560,640,IC2,6845,680,680,IC3,6522,435,460,IC69,6522,680,300
 1240 DATA IC1,6502A,680,460,IC88,2764,990,250,IC100,2764,1060,250,IC94,LM319,270,800,IC95,LM319,180,800,IC78,8271,340,460,IC85,4020,450,220,IC83,4013,340,220,IC84,4013,390,220,IC89,68B54,180,600,IC93,75159,160,700,IC81,74LS393,390,300  
 1250 DATA IC86,74LS393,480,220,IC91,74LS132,210,700,IC87,74LS123,260,700,PL12,40WAY,1040,120,PL10,20WAY,620,120,PL9,26WAY,400,120,PL8,34WAY,200,120,PL11,34WAY,800,120,S20,3xMOLEX,555,300  
 1260 DATA S25,3xMOLEX,866,722,S26,3xMOLEX,883,338,S31,3xMOLEX,1060,682,S32,3xMOLEX,1125,318,S33,3xMOLEX,1125,332,PL15,2xMOLEX,285,157,S22,3xMOLEX,565,340,S21,3xMOLEX,550,330,S19,3xMOLEX,520,453
 1270 DATA PL14,10xMOLEX,180,350,PL13,17xMOLEX,400,350,S11,2x8xMOLEX,365,810,S2,8mmLINK,115,660,S9,8mmLINK,225,535,END,GOODBYE,520,950