5  DATA 32, 32, 32, 32, 32, 84, 69, 76, 69, 80, 72, 79, 78, 69, 32
10  DATA 76, 73, 78, 69, 13, 32, 32, 32, 32, 32, 32, 32,239, 32, 32
15  DATA 32, 32, 32, 32, 32,239, 13, 32, 32, 32, 32, 32, 32, 32,245
20  DATA 32, 32, 32, 32, 32, 32, 32,245, 13, 32, 32, 32, 32, 32, 32
25  DATA 32,245, 32, 32, 84, 80, 49, 32, 32,245, 13, 32, 32, 32, 32
30  DATA 32, 32, 32,244,241,249,245, 47,245,244,241,249, 13, 32, 32
35  DATA 32, 32, 32, 32, 32,245, 32, 32, 32, 32, 32, 32, 32,245, 13
40  DATA 32, 32, 32, 32, 32, 32, 32, 47, 32, 32, 32, 32, 32, 32, 32
45  DATA245, 13, 32, 32, 32, 32, 32, 32, 32, 92, 32, 32, 32, 32, 32
50  DATA 32, 32,248, 32, 67, 49, 13, 32, 32, 82, 49, 32, 32, 32, 47
55  DATA 32, 32, 32, 32, 32, 32, 32,243, 13, 32, 32, 32, 32, 32, 32
60  DATA 32, 92, 32, 32, 32, 32, 32, 32, 32,245, 13, 32, 32, 32, 32
65  DATA 32, 32, 32, 47, 32, 32, 32, 32, 32, 32, 32,245, 13, 32, 32
70  DATA 32, 32, 32, 32, 32,245, 32, 32, 68, 49, 32, 32, 32,245, 13
75  DATA 32, 32, 32, 32, 32, 32, 32,244,241,241,249,143,241,241,241
80  DATA249, 13, 32, 32, 32, 32, 32, 32, 32,245, 32, 32, 32, 32, 32
85  DATA 32, 32,245, 32, 32, 32, 32, 32, 32,245, 13, 32, 32, 32, 32
90  DATA240,241,241,248,241,241,241,241,241,241,241,248,241,241,241
95  DATA241,241,241,248,241,241,242, 13, 32, 32, 32, 32,245,239, 32
100  DATA 49, 32, 32, 32, 32, 32, 32, 32, 50, 32, 32, 32, 32, 32, 32
105  DATA 51, 32, 32,245, 13, 73, 67, 49, 32, 32,242, 32, 32, 32, 32
110  DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32
115  DATA245, 13, 32, 32, 32, 32, 32,247, 32, 32, 32, 32, 32, 32, 32
120  DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,245, 13, 32
125  DATA 32, 32, 32,245, 32, 32, 54, 32, 32, 32, 32, 32, 32, 32, 53
130  DATA 32, 32, 32, 32, 32, 32, 52, 32, 32,245, 13, 32, 32, 32, 32
135  DATA246,241,241,243,241,241,241,241,241,241,241,243,241,241,241
140  DATA241,241,241,243,241,241,247, 13, 32, 32, 32, 32, 32, 32, 32
145  DATA245, 32, 32, 32, 32, 32, 32, 32,245, 32, 32, 32, 32, 32, 32
150  DATA245, 13, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32
155  DATA 32, 32, 47, 32, 32, 32, 32, 32, 32,245, 13, 32, 32, 32, 32
160  DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 92, 32, 32, 32
165  DATA 32, 32, 32,245, 13, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32
170  DATA 32, 32, 32, 32, 32, 47, 32, 82, 50, 32, 32, 32,245, 13, 32
175  DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 92
180  DATA 32, 32, 32, 32, 32, 32,245, 13, 32, 32, 32, 32, 32, 32, 32
185  DATA 32, 32, 32, 32, 32, 32, 32, 32,245, 32, 32, 32, 32, 32, 32
190  DATA245, 13, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32
195  DATA 32, 32,245, 32, 43, 32, 32, 32, 32,245, 13, 32, 32, 32, 32
200  DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,244,241,241,249
205  DATA244,241,241,249, 13, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32
210  DATA 32, 32, 32, 32, 32,245, 32, 67, 50, 32, 32, 32,245, 13, 32
215  DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,245
220  DATA 32, 32, 32, 32, 32, 32,245, 13, 32, 32, 32, 32, 32, 32, 32
225  DATA 32, 32, 32, 32, 32, 32, 32, 32,239, 32, 32, 32, 32, 32, 32
230  DATA239, 13, 32, 40, 82, 73, 78, 71, 32, 80, 85, 76, 83, 69, 41
235  DATA 80,105,110, 32, 56, 32, 32, 32, 80,105,110, 32, 50, 32, 32
240  DATA 40, 71, 82, 68, 41, 13
250 DATA -100
300 CLS
302 INPUT "DO YOU WISH A PRINT OUT";Q$
303 IF LEFT$(Q$,1)="Y"THENLP=1ELSELP=0
310 READN
320 IFN<0THEN500
330 PRINTCHR$(N);
332 IF LPTHEN LPRINTCHR$(N);
336 IFN=13THENPRINT
338 IF N=13ANDLP=1THENLPRINT
340 GOTO310
400 DATA "PARTS LIST:"
410 DATA " IC1 - TIL111 OPTICAL ISOLATOR"
420 DATA "PLEASE TO NOTE THAT THE SCHEMATIC"
430 DATA "SHOWS IC1 AS A BOTTOM VIEW"
440 DATA "D1- 1N4004 (OR EQUIV 200VPIV)"
450 DATA "TP1 - TRANSIENT PROTECT (RS 276-570 OR EQUIV)
460 DATA "C1 - .1 MICROFARAD 100V NON-POLAR"
470 DATA "C2 - 10 MICROFARAD 10VDC ELECTROLYTIC"
480 DATA "R1 - 22K OHM 1/4 WATT"
490 DATA "R2 - 1K OHM 1/4 WATT"
495 DATA "      "
500  FOR C=1TO11
510 READL$
520 PRINTL$
530 IF LP THEN LPRINT L$
540 NEXT C
550 END