Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß) 1 O.12;TAB(512);P."NENNE DEINEN NAMEN : ",;I$(TOP) 2 O.12;GOS.3000;GOS.4000 3 A=H.(EF0B)-32;F.X=ATOA+288STEP32;PO.X,192;N.X 4 F.X=A+8TOA+296STEP32;PO.X,159;N.X 5 F.X=A+1TOA+7;PO.X,158;N.X 6 F.X=A+257TOA+263;PO.X,226;N.X 7 G.2000 8 A=H.(EF0D) 9 G.100 10 PO.A,N;RET. 11 PO.A+1,N;RET. 12 PO.A+3,N;RET. 13 PO.A+4,N;RET. 14 PO.A+32,N;RET. 15 PO.A+33,N;RET. 16 PO.A+34,N;RET. 17 PO.A+35,N;RET. 18 PO.A+36,N;RET. 19 PO.A+64,N;RET. 20 PO.A+65,N;RET. 21 PO.A+66,N;RET. 22 PO.A+67,N;RET. 23 PO.A+68,N;RET. 24 PO.A+96,N;RET. 25 PO.A+97,N;RET. 26 PO.A+98,N;RET. 27 PO.A+99,N;RET. 28 PO.A+100,N;RET. 29 PO.A+128,N;RET. 30 PO.A+129,N;RET. 31 PO.A+130,N;RET. 32 PO.A+131,N;RET. 33 PO.A+132,N;RET. 34 PO.A+160,N;RET. 35 PO.A+161,N;RET. 36 PO.A+162,N;RET. 37 PO.A+163,N;RET. 38 PO.A+164,N;RET. 39 PO.A+192,N;RET. 40 PO.A+193,N;RET. 41 PO.A+194,N;RET. 42 PO.A+195,N;RET. 43 PO.A+196,N;RET. 44 PO.A+2,N;RET. 50 K=H.(3F00);PO.K,231;PO.K+1,4;PO.K+2,50;PO.K+3,255;PO.K+4,62 51 PO.K+5,201 100 REM 1 105 T=0 110 GOS.13;GOS.18;GOS.23;GOS.28;GOS.33;GOS.38;GOS.43 120 GOS.20;GOS.16;GOS.12 125 GOS.500 130 REM 2 140 GOS.19;GOS.14;GOS.11;GOS.44;GOS.12;GOS.18;GOS.23;GOS.27 150 GOS.31;GOS.35;GOS.39;GOS.40;GOS.41;GOS.42;GOS.43 158 GOS.500 159 REM 3 160 GOS.14;GOS.11;GOS.44;GOS.12;GOS.18;GOS.23;GOS.27;GOS.33 170 GOS.38;GOS.42;GOS.41;GOS.40;GOS.34 184 GOS.500 185 REM 4 190 GOS.13;GOS.17;GOS.21;GOS.25;GOS.29;GOS.34;GOS.35;GOS.36 200 GOS.37;GOS.38;GOS.32;GOS.37;GOS.42 214 GOS.500 215 REM 5 216 PO.H.(EF10),N;PO.H.(EF2D),N 220 GOS.10;GOS.11;GOS.44;GOS.13;GOS.19;GOS.20;GOS.21;GOS.22 230 GOS.23;GOS.28;GOS.33;GOS.38;GOS.43;GOS.42;GOS.41;GOS.40 240 GOS.39;GOS.34 260 GOS.500 265 REM 6 270 GOS.11;GOS.44;GOS.12;GOS.14 280 GOS.19;GOS.24;GOS.25;GOS.26;GOS.27;GOS.29;GOS.33;GOS.34 290 GOS.38;GOS.40;GOS.41;GOS.42 295 GOS.500 299 REM 7 300 GOS.10;GOS.11;GOS.44;GOS.12;GOS.13;GOS.14;GOS.18;GOS.23 310 GOS.28;GOS.33;GOS.38;GOS.43 320 GOS.500 325 REM 8 330 GOS.11;GOS.44;GOS.12;GOS.14;GOS.18;GOS.19;GOS.23;GOS.25 340 GOS.26;GOS.27;GOS.29;GOS.33;GOS.34;GOS.38;GOS.40;GOS.41 350 GOS.42 360 GOS.500 365 REM 9 370 GOS.10;GOS.11;GOS.44;GOS.12;GOS.13;GOS.14;GOS.18;GOS.19 380 GOS.20;GOS.21;GOS.22;GOS.23;GOS.28;GOS.33;GOS.38;GOS.43 390 GOS.42;GOS.41;GOS.40;GOS.39 404 GOS.500 405 REM 0 410 GOS.11;GOS.44;GOS.12;GOS.14;GOS.18;GOS.19;GOS.23;GOS.24 420 GOS.28;GOS.29;GOS.33;GOS.34;GOS.38;GOS.40;GOS.41;GOS.42 425 T=10 430 GOS.500 440 H=185 444 F.X=H.(EC20)TOH.(EC3F) 445 PO.X,H;PO.X+32,H;PO.X+64,H;PO.X+96,H;PO.X+128,H 446 PO.X+32,198 448 PO.X+96,198 449 PO.X+128,198 451 N.X 455 O.12 473 G=G+1 475 IFO='N'PO.G,45;F.W=1TO99;PO.H.(EDA7),255;PO.H.(EDA7),78;N.W 476 IFO='J'PO.G,43;F.W=1TO99;PO.H.(EDB8),255;PO.H.(EDB8),74;N.W 477 IFO='W'PO.G,184;F.W=1TO50;PO.H.(EDDAF),255;PO.H.(EDAF),87;N.W 478 IFO=0PO.G,207 479 F.D=1TO3 480 F.C=H.(ECFE)TOG+1STEP-1 481 PO.C,255;N.C 482 F.C=H.(ECFE)TOG+1STEP-1;PO.C,32;N.C 483 N.D 484 K=K+5;IFK=915G.6000 485 GOS.K 490 G.8 499 ST. 500 A=H.(EF0D) 502 N=RND(255)+15 505 C.H.(F130);O=PE.(4);PO.H.(ECDB),O 507 IFO#0G.510 508 F.X=H.(ECC0)TOH.(ECDF);PO.X,226;N.X 510 F.X=ATOA+4;PO.X,32;N.X 520 F.X=A+32TOA+36;PO.X,32;N.X 530 F.X=A+64TOA+68;PO.X,32;N.X 540 F.X=A+96TOA+100;PO.X,32;N.X 550 F.X=A+128TOA+132;PO.X,32;N.X 560 F.X=A+160TOA+164;PO.X,32;N.X 570 F.X=A+192TOA+196;PO.X,32;N.X 571 IFO='J'Z=Z+2;G.440 572 IFO='W'Z=Z+1;G.440 575 IFO#0PO.H.(3EFF),0;G.440 577 IFT=10T=0;Z=Z+2;G.440 580 RET. 600 PO.27,H.(3F);PO.28,H.(EC) 601 PO.29,H.(E0) 602 PO.30,H.(EC) 603 PO.H.(3EF0),H.(E7);PO.H.(3EF1),H.(B) 604 PO.H.(3EF2),H.(C9) 605 C.H.(3EF0) 640 RET. 650 F.X=H.(EC00)TOH.(EC1F) 660 PO.X,238;N.X 670 F.X=H.(ED00)TOH.(ED1F);PO.X,238;N.X 672 F.X=H.(ECC0)TOH.(ECDF);PO.X,226;N.X 673 RET. 675 REM WAAGETELLER LINKS 680 A=H.(EE45) 690 PO.A+2,157;PO.A+33,153;PO.A+35,155;PO.A+65,152;PO.A+67,156 700 PO.A+96,153;PO.A+100,155;F.X=A+97TOA+99;PO.X,226;N.X 710 PO.A+128,171;PO.A+130,45;PO.A+132,172;PO.A+161,150 720 PO.A+162,160;PO.A+163,147 730 RET. 745 REM WABA 760 PO.A-30,168 770 F.X=A-29TOA-14 780 PO.X,160;N.X 790 PO.A-13,169 791 PO.A-22,162 795 RET. 800 PR."ES AERGERT MICH,WENN LEUTE,DIE " 801 PR."GENAUSO INTELLIGENT SIND WIE " 803 PR."ICH ,MEHR ERREICHEN." 804 RET. 805 PR."ES IST MIR SEHR WICHTIG,DASS " 806 PR."ANDERE MENSCHEN MEINE LEISTUNG " 807 PR."ANERKENNEN.";RET. 810 PR."ICH SEHE MIR AUCH FERNSEHSEN-" 811 PR."DUNGEN AN,DIE MICH WENIGER " 812 PR."INTERESSIEREN,ABER VON DENEN ICH ETWAS LERNEN KANN" 813 RET. 815 PR."ICH BEMUEHE MICH ,WENIGER AUS-" 816 PR."GEPRAEGTE FAEHIGKEITEN DURCH" 817 PR."TRAINING ZU VERBESSERN." 818 RET. 820 PR."ES REIZT MICH SCHWIERIGE PROBLEME ZU LOESEN." 822 RET. 825 PR."GESELLSCHAFTSSPIELE MACHEN MIR" 826 PR."SPASS,WEIL ICH IMMER VERSUCHE" 827 PR."ZU GEWINNEN";RET. 830 PR."ICH STECKE MIR IMMER EIN " 831 PR."BESTIMMTES ZIEL,DAS ICH ERREI-" 832 PR."CHEN WILL.";RET. 835 PR."ICH ARBEITE OFT IN MEINER FREI- ZEIT.";RET. 836 PR."ICH WUERDE GERNE WISSEN WIE ICH" 837 PR."MEINE LEISTUNGEN VERBESSERN KANN.";RET. 840 PR."IN DER SCHULE BIN ICH MIT " 841 PR."MEINEN LEISTUNGEN NIE SO RECHT" 842 PR."ZUFRIEDEN." 843 RET. 845 PR."ICH BIN KEIN GUTER VERLIERER." 846 RET. 850 PR."ICH VERGLEICHE MEINE LEISTUNGEN" 851 PR."GERN MIT DENEN ANDERER LEUTE." 854 RET. 855 PR."FUER EINE TAETIGKEIT,DIE WENIG" 856 PR."ANERKENNUNG FINDET,KOENNTE ICH" 857 PR."MICH NICHT BEGEISTERN." 859 RET. 860 PR."KRITIK NEHME ICH MIR SEHR ZU" 861 PR."HERZEN." 864 RET. 865 PR."ICH BIN UNZUFRIEDEN MIT MEINEN" 866 PR."FAEHIGKEITEN UND MEINEM WISSEN." 869 RET. 870 PR."ICH WAERE IN DER SCHULE GERNE" 871 PR."KLASSENBESTER GEWESEN." 874 RET. 875 PR."ICH HALTE MENSCHEN DIE NICHTS" 876 PR."LEISTEN,FUER WENIGER WERTVOLL." 879 RET. 880 PR."DIE BERUFLICHE KARRIERE IST MIR" 881 PR."WICHTIGER ALS VIELES ANDERE" 882 RET. 885 PR."ICH HAETTE LIEBER EINE ETWAS" 886 PR."EINFACHERE ARBEIT MIT GUTER" 887 PR."ENTWICKLUNGSCHANCE,ALS EINEN" 888 PR."RUHIGEN SCHREIBTISCHPOSTEN.";RET. 890 PR."ICH WAERE GERNE ANFUEHRER EINER" 891 PR."GRUPPE.";RET. 895 PR."EIN MENSCH DER IM LEBEN VIEL" 896 PR."ERREICHT HAT,IST MIR VON VORN-" 897 PR."HEREIN SYMPATHISCH.";RET. 900 PR."ICH MOECHTE MEHR ERREICHEN ALS" 901 PR."MEINE ELTERN.";RET. 905 PR."ALS SPORTLER WUERDE ICH NICHT" 906 PR."AN WETTKAEMPFEN TEILNEHMEN,BEI" 907 PR."DENEN VON VORNHEREIN FESTSTEHT," 908 PR.",DASS ICH WAHRSCHEINLICH NUR" 909 PR."LETZTER WERDEN KANN";RET. 910 PR."ALS VORGESETZTER WUERDE ICH " 911 PR."MICH BEMUEHEN,AUF ALLEN " 912 PR."GEBIETEN BESSER ZU SEIN ALS" 913 PR."MEINE MITARBEITER." 914 RET. 915 PR."NUR WENN ICH EINE GUTE " 916 PR."LEISTUNG VOLLBRACHT HABE,BIN " 917 PR."ICH ZUFRIEDEN MIT MIR" 918 RET. 920 G.6000 999 ST. 2000 GOS.600 2002 Z=0 2003 G=H.(ECE1) 2005 GOS.650 2010 GOS.680 2020 GOS.760 2030 A=H.(EE56) 2040 GOS.690 2045 PO.A+130,43 2050 GOS.500 2060 G.8 3000 TAB(320);PR."STIMMEN SIE DIESER MEINUNG ZU??" 3005 TAB(32) 3010 PR." NEIN WEISS NICHT JA" 3015 PR." N W J" 3020 TAB(416) 3030 PR."ZEIT LAEUFT SEC." 3050 RET. 3100 PR."HAUPTPROGRAMM ENDET 440" 4000 U=H.(3F00) 4005 K=795 4010 PO.U,H.(E7) 4020 PO.U+1,H.(04) 4030 PO.U+2,H.(32) 4040 PO.U+3,H.(FF) 4050 PO.U+4,H.(3E) 4060 PO.U+5,H.(C9) 4070 RET. 6000 O.12 6001 @(1)=195 6002 @(2)=197 6003 @(3)=@(2) 6004 @(4)=198 6005 @(5)=199 6006 PO.27,0;PO.28,H.(EC);PO.29,0;PO.30,H.(F0) 6007 PO.H.(3EF0),H.(E7);PO.H.(3EF1),H.(B);PO.H.(3EF2),H.(C9) 6008 C.H.(3EF0) 6009 O.12 6010 PR." AUSWERTUNG" 6020 PR." " 6030 TAB(64);PR."DIESER TEST UNTERSUCHTE DEINEN" 6040 PR."EHRGEIZ";O.13 6045 P.;P.;P."Stark" 6046 TAB(23);P."46" 6050 TAB(4*32);PR."GUT" 6055 TAB(3*32);PR."NORM" 6060 TAB(4*32);PR."KLEIN" 6065 TAB(26);PR."Dein" 6070 TAB(24);PR."EHRGEIZ" 6080 PO.H.(ECE4),153;PO.H.(ECE5),155 6100 F.W=H.(EEA5)TOH.(EEA9) 6110 PO.W,@(1) 6120 PO.W+32,@(1);PO.W+64,@(1);PO.W+96,@(1);PO.W+128,@(1);N.W 6130 F.W=H.(EE25)TOH.(EE2C) 6140 PO.W,@(2);PO.W+32,@(2);PO.W+64,@(2);PO.W+96,@(2);N.W 6150 F.W=H.(EEAA)TOH.(EF2A)STEP32 6160 PO.W,@(3);PO.W+1,@(3);PO.W+2,@(3) 6170 N.W 6180 F.W=H.(EDE5)TOH.(EDEF) 6190 PO.W,@(4);PO.W+32,@(4);PO.W+64,@(4);N.W 6200 F.W=H.(EDED)TOH.(EF2D)STEP32 6210 PO.W,@(4);PO.W+1,@(4);PO.W+2,@(4);N.W 6220 F.W=H.(ED85)TOH.(ED92) 6230 PO.W,@(5);PO.W+32,@(5);PO.W+64,@(5);N.W 6240 F.W=H.(EDF0)TOH.(EF30)STEP32 6250 PO.W,@(5);PO.W+1,@(5);PO.W+2,@(5);N.W 6300 IFZ>=39@(11)=H.(EF3B)-12*32 6310 F.X=1TO20 6395 F.@(6)=H.(EF3B)TO@(11)STEP-32;PO.@(6),32;N.@(6) 6400 F.C=H.(EF3B)TO@(11)STEP-32;PO.C,199;N.C 6410 N.X 6450 PR."COMPUTER AN ",;O$(TOP);O.13 6460 PR."DEIN EHRGEIZKOEFFIZIENT BETRAEGT",Z
