10 MEMSET&HB00
20 CLS:WIDTH20,16
30 POKE&H11E,&HA:POKE&H11F,&H40
40 FORI=&HA40 TO&HAFF:READJ$:J=VAL("&H"+J$):POKEI,J:NEXT
50 LOCATE4,0,0:PRINT"абвгдежзийкл";
60 LOCATE4,1,0:PRINT"эмнопрстуфхэ";
70 LOCATE4,2,0:PRINT"эээцчэшщэъыэ";
80 LOCATE4,3,0:PRINT"эээяээээээээ";
90 LETPI=3.1415927:PSET(24,16)
100 FORI=0TO287
110 Y0=16-16*SIN(PI*I/48)/SQR(2):Y1=16-16*SIN(PI*(I+1)/48)/SQR(2)
120 X0=I MOD72+24:X1=(I+1)MOD72+24
130 Z0=1-POINT(X0,Y0):Z1=1-POINT(X1,Y1)
140 PSET(X0,Y0),Z0:PSET(X1,Y1),Z1:NEXT
150 GOTO100:END
160 DATA 04,04,00,2C,1C,1C,0C,0C,0C,1C,3C,FE,FF,FF,FF,FF,FF,FF,A7,67,FE,FC,7D,71
170 DATA 61,47,0F,0F,07,07,03,03,08,00,A0,F0,C0,68,F8,FC,FC,FC,7C,7C,F8,7C,FE,FE
180 DATA FC,FE,FE,FC,FE,FE,FE,FF,FF,FF,FF,FE,FE,FE,FE,7E,AE,0E,0E,3E,1C,0C,0C,04
190 DATA 00,00,00,00,00,01,03,07,07,0F,1F,13,33,67,C9,C0,C0,C0,80,80,00,00,00,00
200 DATA 00,00,00,7C,7F,7F,7E,7E,FE,FC,FD,FD,FD,F3,EF,5F,1A,07,07,0F,1F,7F,1F,0F
210 DATA 0F,1F,0F,0F,0F,07,06,01,02,01,00,00,00,00,03,87,FF,FF,FF,7F,1F,1F,06,00
220 DATA 00,00,0F,3F,7F,7F,3F,07,00,18,00,00,00,00,30,70,78,78,7C,7C,FC,F0,60,00
230 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,07,03,00