Д И А Л О Г
П Р О Г Р А М М И С Т О В
D+FAG+E04BG+
275 DATA04A05E06C05B06DC05AEGFD04B05FEC04AG+2.
АА1
280 SCREEN 3,247,247,247,0,127,127,127,0
285 HOME:COLOR4:PLOT20,190:LINE3,4,BS:PRINT"KOMIIbK)-
TEPHblH":COLOR6: PLOT80,140:LINE3,4,BS:PRINT'TECT"
290 COLOR2:PLOT20,100:LINE2,3,BS:PRINT"«nO3HAfl CE-
Б Я »" :RETURN
295 HOME:COLOR4:PLOT20,220:UNE2,3,BS:PRINT"IIO4EPK —
ВАШЕ ЛИЦО ":COLOR15:CUR 10,20:PRINT1.«PA3MEP БУКВ»"
300 COLOR 10:PLOT15,165:LINE3,3,BS:PRINT" 1 ":PLOTl 5,115:
LINE3,3,BS:PRINT’2''
305 PLOT15,65:LINE3,3,BS:PRINT'3":PLOT15,15:LINE3,3,BS:
PRINT"4"
310 COLOR5:PLOT55,155:LINE245,195,B:COLOR3:PLOT55,105:
LINE245.145.B
315 COLOR9:PLOT55,55:LINE245,95,B:COLOR7:PLOT55,5:
LINE245,45,B
320 COLOR 15:CIRCLE 25,25,20:CIRCLE25,75,20:
CIRCLE 25,125,20:CIRCLE 25,175,20:GOTO 545
325 REM *** 38-51 БАЛЛ ***
330 DATA “« ТАКОЙ ПОЧЕРК ИМЕЮТ ЧАЩЕ
» ”
335 DATA “« ЛЮДИ ПОЖИЛОГО ВОЗРАСТА,
» "
340 DATA “« С ПЛОХИМ ЗДОРОВЬЕМ.
» ”
345 DATA “«
» ”
350 REM ***52-63 БАЛЛА ***
355 DATA “« ТАК ПИШУТ ТРУСЛИВЫЕ, ПАС- » ”
360 DATA “« СИВНЫЕ ИЛИ ФЛЕГМАТИЧНЫЕ
» ”
365 DATA “« ЛЮДИ.
» ”
370 REM *** 64-75 БАЛЛОВ ***
375 DATA “« ТАКОЙ ПОЧЕРК ХАРАКТЕРНЫЙ » ”
380 DATA “« ДЛЯ НЕРЕШИТЕЛЬНЫХ, МЯГКИХ, » ”
385 DATA “« СМИРНЫХ, С УТОНЧЕННЫМИ
» ”
390 DATA “« МАНЕРАМИ ЛЮДЕЙ. ОНИ НЕС- » ”
395 DATA “« КОЛЬКО НАИВНЫ, НО НЕ ЛИ- » ”
400 DATA “« ШЕНЫ ЧУВСТВА СОБСТВЕННОГО » ”
405 DATA “«ДОСТОИНСТВА.
» ”
410 REM *** 76-87 БАЛЛОВ ***
415 DATA “« ЭТО ПОЧЕРК ПРЯМЫХ И ОТКРО- » ”
420 DATA “« ВЕННЫХ ЛЮДЕЙ, КОТОРЫЕ О Т Л И -»”
425 DATA “« ЧАЮТСЯ ДРУЖБОЙ И ЭМОЦИО- » ”
430 DATA “« НАЛЬНОСТЬЮ.
» ”
435 REM *** 88-98 БАЛЛОВ ***
440 DATA “« ЭТОТ ПОЧЕРК ГОВОРИТ О
» ”
445 DATA “« ЧЕСТНОСТИ И ПОРЯДОЧНОСТИ, » ”
450 DATA “« СИЛЬНОЙ СТОЙКОЙ ПСИХИКЕ, » ”
455 DATA “« ИНИЦИАТИВНОСТИ, РЕШИТЕЛЬ- » ”
460 DATA “« НОСТИ И ЦЕЛЕУСТРЕМЛЕННОСТИ » ”
465 REM *** 99-100 БАЛЛОВ ***
470 DATA “« ПОЧЕРК ИНДИВИДУАЛИСТОВ.
» ”
475 DATA “« ОНИ ВСПЫЛЬЧИВЫ, ИМЕЮТ
» ”
480 DATA “« БЫСТРЫЙ И ОСТРЫЙ УМ, ОТЛИ- » ”
485 DATA “«Ч А Ю Т С Я НЕЗАВИСИМОСТЬЮ В
» "
490 DATA “« СУЖДЕНИЯХ И ПОСТУПКАХ, НО » ”
495 DATA “« В ТОЖЕ ВРЕМЯ ОБИДЧИВЫ И
» ’’
500 DATA “« ЧАСТО С НИМИ ТЯЖЕЛО ОБ-
» ”
505 DATA “« ЩАТЬСЯ.ЭТО ЛЮДИ ОДАРЕННЫЕ » ”
510 DATA “«С К Л О Н Н Ы К ТВОРЧЕСТВУ.
» ”
515REM *** 101-121 БАЛЛ ***
520 DATA “« ТАКОЙ ПОЧЕРК ИМЕЮТ ЛЮДИ
» ”
525 DATA “« ЛИШЕННЫЕ ЧУВСТВА ОТВЕТСТ- » ”
530 DATA “« ВЕННОСТИ, НЕДИСЦИПЛИНИРО- » ”
535 DATA “« ВАННЫЕ, ГРУБЫЕ.НО МЫ УВЕ- » ”
540 DATA “« РЕНЫ: ВАС ЭТО НЕ КАСАЕТСЯ. » ”
545 CUR 18,17:PRINT “ОЧЕНЬ МАЛЕНЬКИЕ”:
CUR 20,12:PRINT" МАЛЕНЬКИЕ"
550 CUR 21,7:PRINT “СРЕДНИЕ”:С Ш 21,2:РЯШТ"БОЛЬШИЕ"
555А$ -INKEYS :IF А$ -" 1 " THEN:BEEP. 1,1 :SUM-SUM+3:GOTO 580
560 IF A$-"2" THEN:BEEP.l ,1 :SUM-SUM+7:GOTO 580
565 IF A$-"3" THEN:BEEP. 1,1 :SUM-SUM+17:GOTO 580
570 IF A$-"4" THEN:BEEP. 1,1 :SUM-SUM20:GOTO 580
575 GOTO 555
580 CUR 10,20:PRINT “2. « НАКЛОН БУКВ » ”
585 CUR 18,17:PRINT “ЛЕВЫЙ НАКЛОН ”:CUR 15,12:
PRINT “ЛЕГКИЙ НАКЛОН ВЛЕВО”
590 CUR 18,7:PRINT “ПРАВЫЙ HAIOIOH”:CUR 15,2:
PRINT “РЕЗКИЙ ПРАВЫЙ НАКЛОН”
595 A$ -INKEY$:IF A$-" 1" THEN:BEEP. 1,1 :SUM-SUM+2:GOTO 620
600 IF A$-"2" THEN:BEEP. 1,1 :SUM-SUM+5:GOTO 620
605 IF A$-"3" THEN:BEEP. 1,1 :SUM-SUM+14:GOTO 620
610 IF A$-"4" THEN:BEEP. 1,1 :SUM-SUM+6:GOTO 620
615 GOTO 595
620 CUR 7,20:PRINT"3. «НАПРАВЛЕНИЕ ПОЧЕРК » " :
CUR15,17:PRINT “РЯДЫ ПОЛЗУТ BBEPX”:CUR15,12:
PRINT “ РЯДЫ ПРЯМЫЕ
625 CUR 15,7:PRINT “РЯДЫ ПОЛЗУТ BHH3”:CUR 15,2:PR1NT “
630A$-1NKEY$:IF A$ -"1" THEN:BEEP. 1,1 :SUM-SUM+16:GOTO 650
635 IF A$-"2" THEN:BEEP .1,1 :SUM-SUM+12:GOTO 650
640 IF A$-"3" THEN:BEEP .1,1 :SUM-SUM+1 :GOTO 650
645 GOTO 630
650 CUR 7,20:PRINT" 4 .« СИЛА ДАВЛЕНИЯ » “:CUR15,17:
PRINT” ЛЕГКАЯ “:CUR15,12:PRINT” СРЕДНЯЯ “
655 CUR 15,7:PRINT “ ОЧЕНЬ СИЛЬНАЯ ”
660A$-4NKEY$ :IFA$-"r’THEN:BEEP.l ,1 :SUM-SUM+8:GOTO 680
665 IF A$-"2" THEN:BEEP.l ,1 :SUM-SUM+15:GOTO 680
670 IF A$-"3” THEN:BEEP .1,1 :SUM-SUM+21 :GOTO 680
675 GOTO 660
680 CUR 7,20:PRINT"5. « ХАРАКТЕР НАПИСАНИЯ СЛОВ » ':
CUR 11,17:PRINT “СКЛОННОСТЬ К СОЕДИНЕНИЮ СЛОВ”:
CUR 11,16:PRINT"H БУКВ"
685 CUR11,12:PRINT “СКЛОННОСТЬ К РАССОЕДИНЕНИЮ”:
CUR 11,11 :PRINT “БУКВ ОДНА ОТ ОДНОЙ”:
CUR15,7:PRINT “ СМЕШАННЫЙ СТИЛЬ”
690А$ -INKEY$:IF А$ -"1" THEN:BEEP. 1,1 :SUM-SUM+11 :GOTO 710
695 IF A$-”2" THEN:BEEP.l, 1 :SUM-SUM+18:GOTO 710
700 IF A$-"3" THEN:BEEP.l, 1 :SUM-SUM+15:GOTO 710
705 GOTO 690
710 CUR 7,20:PRINT"
6. « ОБЩАЯ ОЦЕНКА »
“:
CUR11,17:PRINT "ПОЧЕРК СТАРАТЕЛЬНЫЙ,
“:CUR11,16
715 PRINT “БУКВЫ НАПИСАНЫ АККУРАТНО”:
CUR 11,12:PRINT “ПОЧЕРК НЕРВНЫЙ, НЕКОТОРЫЕ ”:
CUR11,11 :PRINT “СЛОВА ТРУДНО ПРОЧИТАТЬ”
720 CUR 11,7:PRINT “ПОЧЕРК НЕБРЕЖНЫЙ, НЕЧЕТКИЙ”
725A$4NKEY :1FA - ’1"THEN:BEEP. 1,1 :SUNKSUM+13.GOTO745
730 IF A$-"2" THEN:BEEP. 1,1 :SUM-SUM+9:GOTO 745
735 IF A$-”3" THEN:BEEP.l ,1 :SUM-SUM+4:GOTO 745
740 GOTO 725
745 HOME:COLOR6,0,0:PLOTO,0,1 :LINE255,255,BF
750 COLORO:PLOT 10,10:LINE 245,245,BF:
SCREEN 3,255,255,255,255,255,255,255,255
755 COLOR7:PLOT 65,200:LINE 2,3,BS:PRINT “ЗАКЛЮЧЕНИЕ”
760 COLOR15:PRlNTAT7,15;"НАПИШИТЕ ВАШЕ ИМЯ (20 БУКВ)':
CUR7,14:INPUT 1$
765 IF LEN(I$) >20 THEN:PRINTAT7,14;"
“:GOTO 760
770 PRINTAT3,12;"ВЫВОД НА ПРИНТЕР ИЛИ НА ЭКРАН (1 /0)":
CUR3.11:INPUT N:IF N-0 THEN GOTO 780
775 PRINTAT6,9;"KAKOft ГРАФИЧЕСКИЙ РЕЖИМ (0-7)":
CUR6,8:INPUTN1
780 COLORO:PLOT11,11:LINE244,199,BF:COLOR3:PLOT55,170:
LINE1,2,В8:РШШ"'ПОДВЕРГНУТЫЙ(ТАЯ) ОПРОСУ:":Х-5:У-13
790 COLOR10:PLOT65,150:UNE1,2,BS:PRINT I$:COLOR15
800 IF SUM >-38 AND SUM <-51 THEN RESTORE 330:N2-4
810 IF SUM >-52 AND SUM <-63 THEN RESTORE 350:N2-3
820 IF SUM >-64 AND SUM <-75 THEN RESTORE 370:N2-7
830 IF SUM >-76 AND SUM <-87 THEN RESTORE 410:N2-4
840 IF SUM >-88 AND SUM <-98 THEN RESTORE 435:N2-5
850 IF SUM >-99 AND SUM < -l 00 THEN RESTORE 465:N2-9
860 IF SUM >-101 AND SUM <-l 21 THEN RESTORE 515:N2-5
870 FORI-lTON2:READL$:CURX,Y:Y-Y-l :PRINTL$:NEXTI
880 IF N-0 THEN 895
885IFNI < 0 Л ?N1 > 7 THENN1-2
890 SCREEN 7,N1
895 CURIO,2:PRINT ПОВТОРИМ ТЕСТ? (Y/N) ':CUR10,1 :INPUTI$:
IF I$-'Y" THEN SUM-0:GOSUB 280:GOTO 295
896 CLS:COLOR7
900 REM *** КОНЕЦ ***
Программа написана для ПК “Вектор-ОбЦ”
13
предыдущая страница 14 Радиолюбитель 1993-03 читать онлайн следующая страница 16 Радиолюбитель 1993-03 читать онлайн Домой Выключить/включить текст