10 CLS:CLEAR500
20 CUR20,20; "ÓÏÐÀÂËßÞÙÈÅ ÊËÀÂÈØÈ":ÐÐINÒ 
30 PRINT TAB(15) "ÍÀÆÌÈÒÅ ÓÏÐÀÂËßÞÙÓÞ ÊËÀÂÈØÓ":ÐÐINÒ 
40 ÐRINÒ ÒÀÂ(17)"ÄËß ÓÂÅËÈ×ÅÍÈß ÌÀÑØÒÀÁÀ ";:Q(1)=USR(-2045) 
50 PRINT CHR$(Q(1)):PRINT
60 ÐRINÒ ÒÀÂ(13)"ÄËß ÂÎÇÂÐÀÒÀ  ÍÀ×ÀËÜÍÛÉ ÌÀÑØÒÀÁ "; 
70 Q(2)=USR(-2045);PRINT CHR$(Q(2)):PRINT 
80 ÐRINÒ ÒÀÂ(10)"ÄËß ÈÇÌÅÍÅÍÈß ÍÀÑÒÐÀÈÂÀÞÙÅÉ ÒÀÂËÈÖÛ "; 
90 Q(3)=USR(-2045):PRINT CHR$(Q(3)) 
100 BS=16209: REM ÄËß 32 Ê - 3259:?
110 REM *** ÔÎÐÌÈÐÎÂÀÍÈÅ ØÀÕÌÀÒÍÎÃÎ ÏÎËß Â ÌÀÑØÒÀÁÅ *** 
120 W$="":Â$="" 
130 FOR I=1 ÒÎ 64 
140 B$=B$+" ":W$=W$+"B" 
150 NEXT I
160 R=l:Z=0:BL$="":WT$="":J=0 
170 REM *** ÖÈÊË ÈÇÌÅÍÅÍÈß ÌÀÑØÒÀÁÀ *** 
180 IF I=16 THEN I=64:J=25:GOTO 210 
190 IF I=64 THEN l=0:R=1 
200 J=J+1:I=INT(J*1.6) 
210 AY=INT(25/J)
220 REH ****  ÖÈÊË ÔÎÐÌÈÐÎÂÀÍÈß ÑÈÌÂÎËÜÍÛÕ ÏÅÐÅÌÅÍÍÛÕ **** 
230 FOR À=0 ÒÎ 64
240 IF Z=0 THEN BL$=BL$+MID$(B$,1,l):WT$=WT$+MID$(W$,1,l) 
250 IF Z=1 THEN BL$=BL$+MID$(W$,1,I):WT$=WT$+MID$(B$,1,l) 
260 IF LEN(BL$=>64 THEN BL$=MID$(BL$,1,64):WT$=MID$(WT$,1,64) 
270 IF LEN(BL$=>64 THEN 300 
280 Z=Z+1:lF Z=2 THEN Z=0 
290 NEXT A 
300 CLS
310 REM **** ÖÈÊËÛ ÎÒÎÁÐÀÆÅÍÈß ØÀÕÌÀÒÍÎÃÎ ÏÎËß **** 
320 FOR Y=0 TO AY 
330 FOR T=0 TO J-1 
340 KY=Y*J+T: IF KY>24 THEN 440 
350 IF Z=0 THEN SH$=WT$ 
360 IF Z=1 THEN SH$=BL$ 
370 REM ***** ÇÀÏÎËÍÅÍÈÅ ÍÈÆÍÅÉ ÑÒÐÎÊÈ ***** 
380 IF KY=0 THEN CUR0,0:PRINT MID$(SH*,1,63);:POKE BS,ASC(MID$(SH$,64,1) 
390 IF KY<>0 THEN CUR0,KY:PRINT SH$; 
400 NEXT T
410 REM ***** ÈÇÌÅÍÅÍÈÅ ÏÅÐÅÌÅÍÍÎÉ ÖÂÅÒÀ ***** 
420 Z=Z+1:lF Z=2 THEN Z=0 
430 NEXT Y 
440 BL$="":WT$="'
450 REM **** ÓÏÐÀÂËÅÍÈÅ ØÀÕÌÀÒÍÛÌ ÏÎËÅÌ *** 
460 U=USR (-2045) 
470 IF U=Q(1) THEN 180 
480 IF U=Q(2) THEN 120 
490 IF U=Q(3) THEN 510 
500 GOTO 460 
510 CLS
520 REM **** ÔÎÐÌÈÐÎÂÀÍÈÅ ÐÀÌÎ×ÍÎÃÎ ÏÎËß **** 
530 REM **** ÖÈÊË ÌÀÑØÒÀÁÀ **** 
540 FOR Z=6 TO 16 STEP 4
550 REM **** ÖÈÊË ÎÒÎÁÐÀÆÅÍÈß ÐÀÌÎ×ÍÎÃÎ ÏÎËß **** 
560 FOR Õ=0 ÒÎ 40 STEP Z 
570 Y=INT(X/2.6)
580 PLOT X,Y,1:LINE X,49-Y:LINE127-X,49-Y:LINE127-X,Y:LINEX,Y 
570 NEXT X
600 REM ****** ÓÏÐÀÂËÅÍÈÅ ÐÀÌÎ×ÍÛÌ ÏÎËÅÌ ****** 
610 U=USR (-2045)
620 IF U=Q(1) THEN CLS:NEXT Z:GOTO540 
630 IF U=Q(2) THEN CLS: GOTO 540 
640 IF U=Q(3) THEN 670 
650 GOTO 610
660 REM **** ÔÎÐÌÈÐÎÂÀÍÈÅ ÑÈÌÂÎËÜÍÎÃÎ ÏÎËß ***** 
670 CLS
680 REM ***** ÇÀÏÈÑÜ ÑÈÌÂÎËÎÂ Â ÌÀÑÑÈÂ ***** 
690 A$(1)="!":A$(2)=".":A$(3)="-":X=0 
700 S$="":X=X+1 
710 IF X=4 THEN X=1
720 FOR J=1 TO 64:S$=S$+A$(X):NEXT J 
730 REM **** ÏÅ×ÀÒÜ ÍÈÆÍÅÉ ÑÒÐÎÊÈ **** 
740 CUR0,0:PRINT MID$(S$,1,63);:POKE BS,ASC(A$(X)) 
750 REM ***** ÖÈÊË ÏÅ×ÀÒÈ ***** 
760 FOR I=1 TO 24 
770 CUR 0,1I:PRINTS$; 
780 NEXT I
790 REM ***** ÓÏÐÀÂËÅÍÈÅ ÑÈÌÂÎËÜÍÛÌ ÏÎËÅÌ ***** 
800 U=USR (-2045) 
810 IF U=Q(1) THEN 700 
820 IF U=Q(2) THEN 670 
830 IF U=O(3) THEN 850 
840 GOTO 800
850 REM *** ÔÎÐÌÈÐÎÂÀÍÈÅ ÖÅÍÒÐÀËÜÍÎÃÎ ÊÐÅÑÒÀ È ÄÈÀÃÎÍÀËÈ ***** 
860 CLS
870 FOR l=0 TO 63:CURI,13:PRINT"-"; :NEXT I 
880 FOR I=0 TO 24: CUR 32,I:PRINT"l";:NEXT I 
890 U=USR (-2045) 
900 CLS
910 FOR I=0 TO 49 
920 PLOT l,0,1:LINE 127,49-I 
930 NEXT I 
940 U=USR (-2045) 
950 CLS
960 FOR I=0 TO 49 
970 PLOT 0,l,1: LINE 127,49 
980 NEXT I
990 U=USR(-2045):GOTO 160