A13_Windroos_tekeningen.bc3

1000 A=600:GOTO20:REM schema windroos
1010 GOSUB100:REM scherm schoon
1020 PRINT"Dit programma tekent de schema's"
1030 PRINT"van een elektronische schakeling"
1040 PRINT"om binnenshuis de windrichting"
1050 PRINT"zichtbaar te maken."
1060 PRINT
1070 PRINT"De schema's komen alleen goed"
1080 PRINT"tot hun recht op een beeldscherm"
1090 PRINT"met voldoende oplossend"
1100 PRINT"vermogen of op een plotter."
1110 PRINT"Ze zijn echter ook te vinden"
1120 PRINT"in het tijdschrift"
1130 PRINT"Mens en Wetenschap 7/87,"
1140 PRINT"1 oktober - 15 november."
1150 PRINT
1160 PRINT"Toets voor verder>";
1170 GOSUB210:REM wacht op toets
1180 GOSUB100:REM schoon tekstscherm
1190 PRINT"In de eerste twee tekeningen gaat"
1200 PRINT"het om cirkels. Wanneer u"
1210 PRINT"ellipsen ziet, ligt dat aan uw"
1220 PRINT"computer, printer of plotter."
1230 PRINT
1240 PRINT"De eerste tekening gaat verschijnen,"
1250 PRINT"wanneer u een toets indrukt."
1260 PRINT"Voor iedere volgende bladzijde"
1270 PRINT"ook steeds een toets indrukken.>";
1280 GOSUB210:REM wacht op toets
1290 DIMCA$(96):REM letters
1300 DIMTL$(6):REM bijschrift
1310 DIMND$(20):REM onderdelen
1320 TL$(1)="HOOGSTE BIT":KS=1
1330 TL$(2)="MIDDELSTE BIT"
1340 TL$(3)="LAAGSTE BIT"
1350 TL$(4)=" "
1360 TL$(5)="IC 1 EN 2"
1370 TL$(6)="IC 3"
1380 ND$(1)="U6R60D12L60U6BR60":REM R horiz
1390 ND$(2)="R8D40L16U40R8BD40":REM R verti
1400 ND$(3)="R16BL32R16BU8R16BL32R16":REM C
1410 TX$="D40E10BL20F10R10BL20R10"
1420 TX$=TX$+"BR20BD5R10G4BU8F4"
1430 TX$=TX$+"BL10BU10R10G4BU8F4"
1440 TX$=TX$+"BL10BU10R10G4BU8F4"
1450 TX$=TX$+"BD15BL30"
1460 TX$=TX$+"D40R8D40L16U40R8BD40":REM R verti
1470 TX$=TX$+"D40R70BU160"
1480 ND$(4)=TX$:REM led + weerstand
1490 ND$(5)="H8D16E8R16BL16D8U40D8R16":REM 2646
1500 ND$(6)="U20BD8E20BG20D32U8F16U8G8R8F4":REM 547
1510 ND$(7)="G20U8D40U8F16U8G8R8F4":REM 547
1520 ND$(8)="F20U8D40U8G16U8F8L8G4":REM 547
1530 ND$(9)="BU15D30BR10U30BD15":REM C in hori
1540 ND$(10)="G8H4D8R8H4G12BU8D40BU8F20":REM 557
1550 ND$(11)="BU15L10BD30R10BU15":REM elco
1560 ND$(12)="D30R10U30L10BR10E20D70H20BL11D":REM LS
1570 ND$(13)="H20U20E5R80F5D20G20L50":REM transistor
1580 GOSUB2910:REM haal cijfer- en lettercodes
1590 P1=3.141592653589:REM pi
1600 GOSUB600:REM grafisch scherm
1610 CN=0:REM voorgrondkleur
1620 X5=.5:REM ho middelpunt
1630 Y5=.5:REM ve middelpunt
1640 READSL:REM straal
1650 IFSL=0 THEN1740:REM einde bogen
1660 READVN,TT:REM hoek van tot
1670 FORHK=VN TOTT STEP2:REM boog
1680 HO=X5+.375*SL*COS(HK*P1/180):REM hori
1690 VE=Y5-.5*SL*SIN(HK*P1/180):REM verti
1700 IFHK=VN THEN GOSUB620:REM beginpunt
1710 GOSUB630:REM verlenging
1720 NEXTHK:REM verder aan boog
1730 GOTO1640:REM volgende straal
1740 GOSUB1790:REM randjes
1750 GOTO1920:REM spring over subroutine
1760 REM
1770 REM subroutine randjes
1780 REM
1790 READHK:REM hoek
1800 IFHK=0 THENRETURN:REM einde lijntjes
1810 READVN,TT:REM straal van tot
1820 HO=X5+.375*VN*COS(HK*P1/180):REM begin
1830 VE=Y5-.5*VN*SIN(HK*P1/180):REM begin
1840 GOSUB620:REM beginpunt
1850 HO=X5+.375*TT*COS(HK*P1/180):REM einde
1860 VE=Y5-.5*TT*SIN(HK*P1/180):REM einde
1870 GOSUB630:REM eindpunt
1880 GOTO1790:REM volgende randje
1890 REM
1900 REM vervolg hoofdprogramma
1910 REM
1920 SC=1:REM schaalfactor
1930 HA=639:VA=324:REM oud scherm
1940 GOSUB3730:REM lettertjes
1950 GOSUB210:REM wacht op toets
1960 GOSUB600:REM grafisch scherm
1970 CN=0:REM voorgrondkleur
1980 SC=1:REM schaalfactor
1990 READSL:REM straal
2000 IFSL=0 THEN2100
2010 B=-1:REM punt
2020 FORHK=0 TO360 STEP4
2030 HO=X5+.375*SL*COS(HK*P1/180):REM hori
2040 VE=Y5-.5*SL*SIN(HK*P1/180):REM verti
2050 IFB=-1 THEN GOSUB620:REM beginpunt
2060 IFB=+1 THEN GOSUB630:REM lijntje
2070 B=-B:REM zorgt voor streepjeslijn
2080 NEXTHK:REM verder aan cirkel
2090 GOTO1990:REM volgende cirkel
2100 GOSUB1790:REM orientatie
2110 GOSUB3730:REM lettertjes
2120 GOSUB210:REM wacht op toets
2130 GOSUB600:REM grafisch scherm
2140 CN=0:REM voorgrondkleur
2150 SC=1:REM schaalfactor
2160 REM
2170 REM hoofdlus schema's
2180 REM
2190 READTX$:REM tekeninstructie
2200 IFTX$="Q" THEN2230:REM schema klaar
2210 GOSUB2360:REM lijntekst
2220 GOTO2190:REM volgende tekst
2230 SC=4:CP$=TL$(KS):REM schaal onderschrift
2240 GOSUB3640:REM opschrift
2250 GOSUB3730:REM lettertjes
2260 REM
2270 REM klaar met dit schema
2280 REM
2290 GOSUB210:REM wacht op toets
2300 KS=KS+1:REM volgende keuze
2310 IFKS>6 THEN950:REM klaar met alles
2320 GOTO2130:REM begin opnieuw
2330 REM
2340 REM subroutine tekst -> tekening
2350 REM
2360 B=0:REM wel tekenen
2370 LE=LEN(TX$)
2380 IFLE=1 THEN2420
2390 IFMID$(TX$,LE-1,1)="O" THEN GOSUB3980
2400 IFLE=2 THEN2420
2410 IFMID$(TX$,LE-2,1)="O" THEN GOSUB3990
2420 FORI=1 TOLE
2430 TY$=MID$(TX$,I,1)
2440 IFTY$="U" THENPH=0:PV=-1:GOTO2550
2450 IFTY$="D" THENPH=0:PV=1:GOTO2550
2460 IFTY$="L" THENPH=-1:PV=0:GOTO2550
2470 IFTY$="R" THENPH=1:PV=0:GOTO2550
2480 IFTY$="E" THENPH=1:PV=-1:GOTO2550
2490 IFTY$="F" THENPH=1:PV=1:GOTO2550
2500 IFTY$="G" THENPH=-1:PV=1:GOTO2550
2510 IFTY$="H" THENPH=-1:PV=-1:GOTO2550
2520 IFTY$="M" THEN2680:REM grote afstand
2530 B=1:REM "B" = niet tekenen
2540 GOTO2630:REM foute letter
2550 GOSUB2770:REM hoe vaak?
2560 PH=PH*V9*SC:PV=PV*V9*SC:REM stappen
2570 X=X+PH:Y=Y+PV:REM stappen erbij
2580 HO=X/HA:VE=Y/VA:REM op scherm
2590 IFHO>=1 THEN2620
2600 IFB=1 THENCN=1:GOSUB620:CN=0:GOTO2620
2610 GOSUB630:REM lijntje
2620 B=0:REM aansluiten op dit punt
2630 NEXTI:REM volgende letter
2640 RETURN:REM klaar met tekst
2650 REM
2660 REM verwerking Move
2670 REM
2680 GOSUB2770:REM x coordinaat
2690 X=V9:REM toekennen
2700 I=I+1:REM komma overslaan
2710 GOSUB2770:REM y coordinaat
2720 Y=V9:REM toekennen
2730 GOTO2580:REM naar scherm
2740 REM
2750 REM subroutine aantal malen
2760 REM
2770 V9=0:REM nul malen
2780 IFLE=I THEN2850:REM einde tekst
2790 TZ$=MID$(TX$,I+1,1):REM achter teken
2800 IFTZ$<"0" THEN2850:REM geen
2810 IFTZ$>"9" THEN2850:REM cijfer
2820 V9=V9*10+VAL(TZ$):REM meerdere cijfers
2830 I=I+1:REM een teken verder
2840 GOTO2780:REM weer een cijfer?
2850 IFV9=0 THENV9=1:REM minimum
2860 RETURN:REM klaar
2870 REM
2880 REM subroutine
2890 REM codes voor letters en dergelijke
2900 REM
2910 CA$(0)="BR6":REM spatie
2920 CA$(1)="BR2UBUU2BF4":REM !
2930 CA$(2)="BEBU2UBR2DBF3":REM quote
2940 CA$(3)="BUE3BRG3BRBEL3BER3BF2BD":REM #
2950 CA$(4)="BUFR2EHL2HER2FHD4L2U4BF4BR":REM $
2960 CA$(5)="E4BL3GFEHBF2GFEHBF2BR":REM %
2970 CA$(6)="BR3EGL2HEREHGF3BR2":REM &
2980 CA$(7)="BE2BUUBF4":REM '
2990 CA$(8)="BR2HU2EBF4":REM (
3000 CA$(9)="BR2EU2HBF4":REM )
3010 CA$(10)="BEELRHFEGRLFBFBR2":REM *
3020 CA$(11)="BEBRU2BGR2BF2BR":REM +
3030 CA$(12)="BR2UDGEBR4":REM ,
3040 CA$(13)="BEBUR2BF2BR":REM -
3050 CA$(14)="BR2URDLBR4":REM .
3060 CA$(15)="E4BD4BR2":REM /
3070 CA$(16)="E4BDHL2GD2FR2EU2BF2BD":REM 0
3080 CA$(17)="BRR2LU4GBF3BR2":REM 1
3090 CA$(18)="BU3ER2FGLG2R4BR2":REM 2
3100 CA$(19)="BU3ER2FGLBLBGFR2EHBF2BR":REM 3
3110 CA$(20)="BR3U4G3R4BRBF":REM 4
3120 CA$(21)="R3EHL3U2R3BF3BD":REM 5
3130 CA$(22)="BU2R3FGL2HU2ER2BF3BD":REM 6
3140 CA$(23)="BU4R4G2D2BR4":REM 7
3150 CA$(24)="BRHEHER2FGL2R2FGL2BR5":REM 8
3160 CA$(25)="BRR2EU2HL2GFR3BF2":REM 9
3170 CA$(26)="BR2UBUUBF3BR":REM :
3180 CA$(27)="BFEUBUUBF3BR":REM ;
3190 CA$(28)="BE2BUGFBFBR3":REM <
3200 CA$(29)="BE3L2BDR2BF2BR":REM =
3210 CA$(30)="BEEHBF3BR2":REM >
3220 CA$(31)="BU3ER2FGBGDBR4":REM ?
3230 CA$(32)="BE2URDLR2UHL2GD2FR2BR3":REM @
3240 CA$(33)="U2E2F2L4R4D2BR2":REM A
3250 CA$(34)="U4R3FGL3R3FGL3BR6":REM B
3260 CA$(35)="BRBE3HL2GD2FR2EBFBR":REM C
3270 CA$(36)="U4R3FD2GL3BR6":REM D
3280 CA$(37)="U4R4BGBDL3D2R4BR2":REM E
3290 CA$(38)="U4R4BG1BD1L3BF2BR4":REM F
3300 CA$(39)="BE3BRHL2GD2FR2EUL2BF2BR2":REM G
3310 CA$(40)="U4D2R4U2D4BR2":REM H
3320 CA$(41)="BU4BRR2L1D4L1R2BR3":REM I
3330 CA$(42)="BUFR2EU3L2BF4":REM J
3340 CA$(43)="U4BR4G2L2R2F2BR2":REM K
3350 CA$(44)="U4D4R4BR2":REM L
3360 CA$(45)="U4F2E2D4BR2":REM M
3370 CA$(46)="U4F4U4D2BF2":REM N
3380 CA$(47)="BRHU2ER2FD2GL2BR5":REM O
3390 CA$(48)="U4R3FGL3BF2BR4":REM P
3400 CA$(49)="BRHU2ER2FD2GL2BEBRFBR2":REM Q
3410 CA$(50)="U4R3FGL3R2F2BR2":REM R
3420 CA$(51)="BUFR2EHL2HER2FBDBF2":REM S
3430 CA$(52)="BU4R4L2D4BR4":REM T
3440 CA$(53)="BU4D3FR2EU3BF2BD2":REM U
3450 CA$(54)="BU4D2F2E2U2D2BF2":REM V
3460 CA$(55)="BU4D4E2F2U4D2BF2":REM W
3470 CA$(56)="E4BL4F4BR2":REM X
3480 CA$(57)="BR2U2H2BR4G2BF2BR2":REM Y
3490 CA$(58)="BU4R4G4R4BR2":REM Z
3500 CA$(59)="BR3LU4RBF3BD":REM [
3510 CA$(60)="BU4F4BR2":REM \
3520 CA$(61)="BRRU4LBF4BR":REM ]
3530 CA$(62)="BU3BREFBF3":REM ^
3540 CA$(63)="BDR4BUBR2":REM _
3550 CA$(64)="BE2BUUBF4":REM `
3560 CA$(91)="BR3LUHEURBF3BD":REM {
3570 CA$(92)="BR2U4BF4":REM |
3580 CA$(93)="BRRUEHULBF4BR":REM }
3590 CA$(94)="BU3EFEBF3BD":REM ~
3600 RETURN
3610 REM
3620 REM subroutine opschrift
3630 REM
3640 FORN=1 TOLEN(CP$):REM onderschrift
3650 TX$=MID$(CP$,N,1):REM letter voor letter
3660 GOSUB3850:REM plaats letter
3670 NEXTN:REM volgende letter
3680 RETURN
3690 REM
3700 REM subroutine
3710 REM toelichtende lettertjes
3720 REM
3730 SC=2:REM schaal voor letters
3740 READX
3750 IFX<0 THENRETURN
3760 READY
3770 HO=X/HA:VE=Y/VA:REM schermpositie
3780 CN=1:GOSUB620:CN=0:REM naar begin
3790 READIN:IFIN<0 THEN3740
3800 TX$=CA$(IN):GOSUB2360:REM naar scherm
3810 GOTO3790:REM lus
3820 REM
3830 REM subroutine symboolnummer
3840 REM
3850 IFTX$="$" THENCA=4:GOTO3920
3860 IFTX$=" " THENCA=0:GOTO3920
3870 REM functie ASC kan een probleem zijn!
3880 IF(TX$<"0")OR(TX$>"9") THEN3910
3890 CA=ASC(TX$)-ASC("0")+16:REM cijfer
3900 GOTO3920:REM geen letter
3910 CA=ASC(TX$)-ASC("A")+33:REM letter
3920 TX$=CA$(CA):REM haal vorm
3930 GOSUB2360:REM teken letter of cijfer
3940 RETURN
3950 REM
3960 REM verwerking Onderdeel
3970 REM
3980 I=LE-1:GOTO4000
3990 I=LE-2:REM plaats van "O"
4000 I9=I:GOSUB2770:REM nummer van onderdeel
4010 IFI9=1 THENTX$=ND$(V9):GOTO4030
4020 TX$=LEFT$(TX$,I9-1)+ND$(V9):REM nieuwe tekst
4030 LE=LEN(TX$)
4040 RETURN
25000 REM
25010 REM beschrijving tekeningen
25020 REM
25030 DATA0.9,0,360
25040 DATA0.62,270,450
25050 DATA0.48,270,450
25060 DATA0.32,45,135
25070 DATA0.32,225,315
25080 DATA0.18,45,135
25090 DATA0.18,225,315
25100 DATA0
25110 DATA270,0.48,0.62
25120 DATA450,0.48,0.62
25130 DATA45,0.18,0.32
25140 DATA135,0.18,0.32
25150 DATA225,0.18,0.32
25160 DATA315,0.18,0.32
25170 DATA22.5,0,1
25180 DATA202.5,0.9,1
25190 DATA0
25200 DATA10,50,51,35,40,41,42,38,-1
25210 REM schijf
25220 DATA12,35,36,50,33,33,41,37,46,36,37,-2
25230 REM draaiende
25240 DATA544,80,50,41,35,40,52,41,46,39,-1
25250 REM richting
25260 DATA582,65,54,33,33,46,13,-2
25270 REM vaan-
25280 DATA23,259,50,41,35,40,52,41,46,39,-1
25290 REM richting
25300 DATA24,244,55,41,46,36,13,-19
25310 REM wind-
25320 DATA-99
25330 DATA0.9,0.62,0.48
25340 DATA0.32,0.18
25350 DATA0
25360 DATA360,0.62,0.95
25370 DATA90,0.62,0.95
25380 DATA180,0.62,0.95
25390 DATA270,0.62,0.95
25400 DATA360,0.32,0.48
25410 DATA90,0.32,0.48
25420 DATA180,0.32,0.48
25430 DATA270,0.32,0.48
25440 DATA360,0,0.18
25450 DATA90,0,0.18
25460 DATA180,0,0.18
25470 DATA270,0,0.18
25480 DATA0
25490 DATA329,10,46,47,47,50,36,-2
25500 REM noord
25510 DATA566,164,47,47,51,52,-4
25520 REM oost
25530 DATA449,164,40,-4
25540 REM h
25550 DATA26,164,55,37,51,52,-2
25560 REM west
25570 DATA239,319,58,53,41,36,-1
25580 REM zuid
25590 DATA317,125,44,-1
25600 REM l
25610 DATA314,75,45,-4
25620 REM m
25630 DATA6,55,47,46,36,37,50,39,50,47,46,36,-19
25640 REM ondergrond
25650 DATA7,40,54,33,51,52,37,-3
25660 REM vaste
25670 DATA501,20,40,12,0,45,0,37,46,0,44,26,-19
25680 REM h, m en l:
25690 DATA501,35,48,44,33,33,52,51,37,46,0,-2
25700 REM plaatsen
25710 DATA514,50,54,33,46,0,36,37,-2
25720 REM van de
25730 DATA536,65,44,36,50,7,51,-19
25740 REM ldr's
25750 DATA-99
25760 DATA"BM600,50"
25770 DATA"L500D40O2"
25780 DATA"BR16BU10E4BD8H4R10"
25790 DATA"BL10BU10E4BD8H4R10"
25800 DATA"BL10BU10E4BD8H4R10"
25810 DATA"BL26BD30"
25820 DATA"D80O2","D40R500","BL350"
25830 DATA"BU240D160O2"
25840 DATA"D40BL150BU120R130BR40"
25850 DATA"R40U80R100U20F60G60U20U80"
25860 DATA"BD80L30D60L122E10BD20H10"
25870 DATA"BR212BU100R130"
25880 DATA"BL65D40E10BL20F10R10BL20R10"
25890 DATA"BR20BD5R10G4BU8F4"
25900 DATA"BL10BU10R10G4BU8F4"
25910 DATA"BL10BU10R10G4BU8F4"
25920 DATA"BD15BL30"
25930 DATA"D40O2","D40"
25940 DATA"BM200,30","Q"
25950 DATA25,105,44,36,50,-2
25960 REM ldr
25970 DATA26,125,8,40,9,-2
25980 REM (h)
25990 DATA37,239,17,16,43,-3
26000 REM 10k
26010 DATA186,239,17,16,16,43,-3
26020 REM 100k
26030 DATA568,239,17,43,-1
26040 REM 1k
26050 DATA572,284,16,54,-1
26060 REM 0v
26070 DATA567,45,11,25,54,-2
26080 REM +9v
26090 DATA518,120,48,47,47,52,42,37,0,17,18,-19
26100 REM pootje 12
26110 DATA516,105,46,33,33,50,0,41,35,19,-4
26120 REM naar ic3
26130 DATA387,85,19,-4
26140 REM 3
26150 DATA389,164,18,-1
26160 REM 2
26170 DATA421,105,11,-4
26180 REM +
26190 DATA423,160,13,-2
26200 REM -
26210 DATA415,209,41,35,17,-2
26220 REM ic1
26230 DATA411,249,44,45,19,21,24,-4
26240 REM lm358
26250 DATA411,234,52,57,48,37,-19
26260 REM type
26270 DATA479,145,17,-19
26280 REM 1
26290 DATA-99
26300 DATA"BM600,50"
26310 DATA"L500D40O2"
26320 DATA"BR16BU10E4BD8H4R10"
26330 DATA"BL10BU10E4BD8H4R10"
26340 DATA"BL10BU10E4BD8H4R10"
26350 DATA"BL26BD30"
26360 DATA"D80O2","D40R500","BL350"
26370 DATA"BU240D160O2"
26380 DATA"D40BL150BU120R130BR40"
26390 DATA"R40U80R100U20F60G60U20U80"
26400 DATA"BD80L30D60L122E10BD20H10"
26410 DATA"BR212BU100R130"
26420 DATA"BL65D40E10BL20F10R10BL20R10"
26430 DATA"BR20BD5R10G4BU8F4"
26440 DATA"BL10BU10R10G4BU8F4"
26450 DATA"BL10BU10R10G4BU8F4"
26460 DATA"BD15BL30"
26470 DATA"D40O2","D40"
26480 DATA"BM200,30","Q"
26490 DATA25,105,44,36,50,-2
26500 REM ldr
26510 DATA26,125,8,45,9,-2
26520 REM (m)
26530 DATA37,239,17,16,43,-3
26540 REM 10k
26550 DATA186,239,17,16,16,43,-3
26560 REM 100k
26570 DATA568,239,17,43,-1
26580 REM 1k
26590 DATA572,284,16,54,-1
26600 REM 0v
26610 DATA567,45,11,25,54,-2
26620 REM +9v
26630 DATA518,120,48,47,47,52,42,37,0,17,19,-19
26640 REM pootje 13
26650 DATA516,105,46,33,33,50,0,41,35,19,-4
26660 REM naar ic3
26670 DATA387,85,21,-4
26680 REM 5
26690 DATA389,164,22,-1
26700 REM 6
26710 DATA421,105,11,-4
26720 REM +
26730 DATA423,160,13,-2
26740 REM -
26750 DATA415,209,41,35,17,-2
26760 REM ic1
26770 DATA411,249,44,45,19,21,24,-4
26780 REM lm358
26790 DATA411,234,52,57,48,37,-19
26800 REM type
26810 DATA479,145,23,-19
26820 REM 7
26830 DATA-99
26840 DATA"BM600,50"
26850 DATA"L500D40O2"
26860 DATA"BR16BU10E4BD8H4R10"
26870 DATA"BL10BU10E4BD8H4R10"
26880 DATA"BL10BU10E4BD8H4R10"
26890 DATA"BL26BD30"
26900 DATA"D80O2","D40R500","BL350"
26910 DATA"BU240D160O2"
26920 DATA"D40BL150BU120R130BR40"
26930 DATA"R40U80R100U20F60G60U20U80"
26940 DATA"BD80L30D60L122E10BD20H10"
26950 DATA"BR212BU100R130"
26960 DATA"BL65D40E10BL20F10R10BL20R10"
26970 DATA"BR20BD5R10G4BU8F4"
26980 DATA"BL10BU10R10G4BU8F4"
26990 DATA"BL10BU10R10G4BU8F4"
27000 DATA"BD15BL30"
27010 DATA"D40O2","D40"
27020 DATA"BM200,30","Q"
27030 DATA25,105,44,36,50,-2
27040 REM ldr
27050 DATA26,125,8,44,9,-2
27060 REM (l)
27070 DATA37,239,17,16,43,-3
27080 REM 10k
27090 DATA186,239,17,16,16,43,-3
27100 REM 100k
27110 DATA568,239,17,43,-1
27120 REM 1k
27130 DATA572,284,16,54,-1
27140 REM 0v
27150 DATA567,45,11,25,54,-2
27160 REM +9v
27170 DATA518,120,48,47,47,52,42,37,0,17,16,-19
27180 REM pootje 10
27190 DATA516,105,46,33,33,50,0,41,35,19,-4
27200 REM naar ic3
27210 DATA387,85,19,-4
27220 REM 3
27230 DATA389,164,18,-1
27240 REM 2
27250 DATA421,105,11,-4
27260 REM +
27270 DATA423,160,13,-2
27280 REM -
27290 DATA415,209,41,35,18,-2
27300 REM ic2
27310 DATA411,249,44,45,19,21,24,-4
27320 REM lm358
27330 DATA411,234,52,57,48,37,-19
27340 REM type
27350 DATA479,145,17,-19
27360 REM 1
27370 DATA-99
27380 DATA"BM7,150"
27390 DATA"BR35D35L35BU35"
27400 DATA"D160R70BU160"
27410 DATA"O4"
27420 DATA"O4"
27430 DATA"O4"
27440 DATA"O4"
27450 DATA"O4"
27460 DATA"O4"
27470 DATA"O4"
27480 DATA"O4"
27490 DATA"L635U40R635D40"
27500 DATA"BU40BL100U100R100"
27510 DATA"BL620BD10R400D90"
27520 DATA"BL100U60L300"
27530 DATA"BD30R200D30"
27540 DATA"BM250,30","Q"
27550 DATA15,15,54,33,46,0,41,35,17,0,48,47,-19
27560 REM van ic1 po
27570 DATA135,15,47,52,42,37,0,17,-2
27580 REM otje 1
27590 DATA17,45,54,33,46,0,41,35,17,0,48,47,-19
27600 REM van ic1 po
27610 DATA137,45,47,52,42,37,0,23,-2
27620 REM otje 7
27630 DATA16,75,54,33,46,0,41,35,18,0,48,47,-19
27640 REM van ic2 po
27650 DATA136,75,47,52,42,37,0,17,-19
27660 REM otje 1
27670 DATA594,25,11,25,54,-2
27680 REM +9v
27690 DATA549,105,17,22,-4
27700 REM 16
27710 DATA428,105,17,18,-4
27720 REM 12
27730 DATA328,105,17,19,-4
27740 REM 13
27750 DATA229,105,17,16,-2
27760 REM 10
27770 DATA13,145,24,-3
27780 REM 8
27790 DATA40,145,17,17,-3
27800 REM 11
27810 DATA79,145,19,-3
27820 REM 3
27830 DATA146,145,17,20,-3
27840 REM 14
27850 DATA215,145,17,21,-3
27860 REM 15
27870 DATA284,145,18,-3
27880 REM 2
27890 DATA356,145,23,-3
27900 REM 7
27910 DATA428,145,20,-3
27920 REM 4
27930 DATA495,145,22,-3
27940 REM 6
27950 DATA567,145,17,-1
27960 REM 1
27970 DATA389,130,41,35,19,0,0,52,57,48,37,0,-19
27980 REM ic3 type
27990 DATA509,130,20,16,18,24,-2
28000 REM 4028
28010 DATA88,219,46,-3
28020 REM n
28030 DATA160,219,46,47,-3
28040 REM no
28050 DATA228,219,47,-3
28060 REM o
28070 DATA300,219,58,47,-3
28080 REM zo
28090 DATA369,219,58,-3
28100 REM z
28110 DATA441,219,58,55,-3
28120 REM zw
28130 DATA510,219,55,-3
28140 REM w
28150 DATA577,219,46,55,-2
28160 REM nw
28170 DATA591,259,17,43,-2
28180 REM 1k
28190 DATA605,304,16,54,-19
28200 REM 0v
28210 DATA-99
28220 DATA"BM20,150"
28230 DATA"R150D80L150U80"
28240 DATA"BD30R5F5D10G5L5BD30"
28250 DATA"BR30BU10E5H5G5F5BD10"
28260 DATA"D10BR30U10BR30D10BR30U10"
28270 DATA"BU80U10BL30D10BL30U10BL30D10"
28280 DATA"BR200"
28290 DATA"R150D80L150U80"
28300 DATA"BD30R5F5D10G5L5BD30"
28310 DATA"BR30BU10E5H5G5F5BD10"
28320 DATA"D10BR30U10BR30D10BR30U10"
28330 DATA"BU80U10BL30D10BL30U10BL30D10"
28340 DATA"BL230BU10U40R230D40BU40"
28350 DATA"R320BL70D80"
28360 DATA"BD16O3","BL16U8R32D8BL16BD8"
28370 DATA"D84BR70L230U40"
28380 DATA"BD40L230U40"
28390 DATA"BM200,30","Q"
28400 DATA50,259,17,-3
28410 REM 1
28420 DATA77,259,18,-3
28430 REM 2
28440 DATA109,259,19,-3
28450 REM 3
28460 DATA151,259,20,-3
28470 REM 4
28480 DATA278,259,17,-3
28490 REM 1
28500 DATA310,259,18,-3
28510 REM 2
28520 DATA337,259,19,-3
28530 REM 3
28540 DATA384,259,20,-3
28550 REM 4
28560 DATA565,269,16,54,-1
28570 REM 0v
28580 DATA544,219,17,16,16,16,53,-1
28590 REM 1000u
28600 DATA569,194,35,-4
28610 REM c
28620 DATA511,174,11,-2
28630 REM +
28640 DATA514,209,13,-1
28650 REM -
28660 DATA555,90,11,25,54,-4
28670 REM +9v
28680 DATA77,135,23,-3
28690 REM 7
28700 DATA109,135,22,-3
28710 REM 6
28720 DATA136,135,21,-4
28730 REM 5
28740 DATA33,135,24,-3
28750 REM 8
28760 DATA260,135,24,-2
28770 REM 8
28780 DATA77,174,44,45,19,21,24,-3
28790 REM lm358
28800 DATA307,174,44,45,19,21,24,-2
28810 REM lm358
28820 DATA98,209,41,35,17,-3
28830 REM ic1
28840 DATA328,209,41,35,18,-19
28850 REM ic2
28860 DATA-99
28870 DATA"BM170,150"
28880 DATA"R270D80L270U80"
28890 DATA"BD30R5F5D10G5L5BD30"
28900 DATA"BR30BU10E5H5G5F5BD10"
28910 DATA"D10BR30U10BR30D10BR30U10BR30"
28920 DATA"D10BR30U10BR30D10BR30U10"
28930 DATA"BU80U10BL30D10BL30U10BL30D10BL30"
28940 DATA"U10BL30D10BL30U10BL30D10"
28950 DATA"BM270,60","Q"
28960 DATA200,254,17,-3
28970 REM 1
28980 DATA227,254,18,-3
28990 REM 2
29000 DATA259,254,19,-3
29010 REM 3
29020 DATA291,254,20,-3
29030 REM 4
29040 DATA348,254,22,-3
29050 REM 6
29060 DATA379,254,23,-3
29070 REM 7
29080 DATA406,254,24,-1
29090 REM 8
29100 DATA194,135,17,22,-3
29110 REM 16
29120 DATA228,135,17,21,-3
29130 REM 15
29140 DATA257,135,17,20,-3
29150 REM 14
29160 DATA286,135,17,19,-3
29170 REM 13
29180 DATA315,135,17,18,-3
29190 REM 12
29200 DATA344,135,17,17,-3
29210 REM 11
29220 DATA372,135,17,16,-2
29230 REM 10
29240 DATA326,184,20,16,18,24,-19
29250 REM 4028
29260 DATA-99
30000 REM
30010 REM  Literatuur:
30020 REM
30030 REM  Mens en Wetenschap en
30040 REM  A&K Informatica, 7/87,
30050 REM  1 oktober - 15 november
30060 REM
32000 REM
32010 REM  Basicode-3:
32020 REM
32030 REM  Pim van Tend
32040 REM  Veldheimwg 8
32050 REM  6871 CD  RENKUM
32060 REM  08373 - 15358
32070 REM
32080 REM  copyright (c) 1987
32090 REM  Stichting Mens en
32100 REM  Wetenschap, Postbus 108,
32110 REM  1270 AC  HUIZEN NH
32120 REM  02152 - 58388
32130 REM
32135 REM verbeterde versie
32140 REM TROS-RADIO dd 871021