Screenshot 1 Screenshot 2
1000 2fe9 0000 b ... EHRGEIZ 1
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