20 SCREEN 2:COLOR 13,1,1:CLS
40 CIRCLE (120,96),88:CIRCLE (120,96),88,,,,8/11
60 CIRCLE (120,96),88,,,,5/11:CIRCLE (120,96),88,,,,2/11
80 CIRCLE (120,96),88,,,,11/8:CIRCLE (120,96),88,,,,11/5
100 CIRCLE (120,96),88,,,,11/2
110 PAINT (86,27):PAINT (121,26):PAINT (154,27):PAINT (51,65)
150 PAINT (94,50):PAINT (141,50):PAINT (187,61):PAINT (67,76)
190 PAINT (121,69):PAINT (169,71):PAINT (44,95):PAINT (88,102)
230 PAINT (150,97):PAINT (193,97):PAINT (68,121):PAINT (121,120)
270 PAINT (169,119):PAINT (57,133):PAINT (95,144):PAINT (142,143)
310 PAINT (187,129):PAINT (85,162):PAINT (122,167):PAINT (151,164)
350 LINE (32,8)-(208,184),,B
360 PAINT(41,24):PAINT(195,22):PAINT(43,171):PAINT(193,170)
400 COLOR 7:LINE (212,4)-(27,188),,B:LINE (214,3)-(24,189),,B
430 GOSUB 1000 '
W
W�
440 COLOR 15,4,7:END
1000 ' 
O
O
O
O
O
O
O
O
O (C) by TOSHIBA 
O
O
O
O
O
O
O
O
O
1040 DEFINT A-Z
1050 SMO=PEEK(&HFCAF)
1060 IF SMO<>2 THEN BEEP:RETURN
1070 BAK=PEEK(&HF3EA)
1080 COL=BASE(11)
1090 CGP=BASE(12)
1100 LPRINT CHR$(27);"T16";CHR$(27);"E";CHR$(14);
1110 LPRINT CHR$(27);">";:POKE &HF418,1
1120 FOR YIN=1 TO 24
1130     LPRINT CHR$(27);"S0256";
1140        FOR XIN=1 TO 32
1150           FOR CLR=1 TO 8
1160               DT(CLR)=0
1170           NEXT CLR
1180           FOR BIN=1 TO 8
1190               DT=VPEEK(CGP):CGP=CGP+1
1200               C0=VPEEK(COL):COL=COL+1
1210               C1=(C0 AND &HF0)/&H10
1220               C0=C0 AND &HF
1230               IF C0<>BAK AND C1<>BAK THEN DT=&HFF:GOTO 1260
1240               IF C0=BAK AND C1=BAK THEN DT=0:GOTO 1260
1250               IF C1=BAK THEN DT=DT XOR &HFF
1260               DT$=BIN$(DT+256)
1270               FOR CAL=1 TO 8
1280                DT(CAL)=DT(CAL)+VAL(MID$(DT$,CAL+1,1))*(2^(BIN-1))
1290               NEXT CAL
1300           NEXT BIN
1310           FOR LOT=1 TO 8
1320              LPRINT CHR$(DT(LOT));
1330           NEXT LOT
1340        NEXT XIN:LPRINT
1350 NEXT YIN:LPRINT CHR$(27);"A";CHR$(27);"N";
1360 LPRINT CHR$(15);CHR$(27);"<":POKE &HF418,0
1370 RETURN '
W
W�