home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 146
/
Tiger_Disk_146_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
psychotest
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
9KB
|
282 lines
0 poke53281,0:poke53280,0:poke646,1:x=0
1 print"[147]":print chr$(14)
2 print" [212]he [212][193][201]-[208][193][206] (c) proudly presents :"
3 print"[158] [208]sychotest :
4 [153]"open (NULL)assen (NULL)ie sich right$hre (NULL)eit stehlen ? "
5 [153]"****************************************"
6 [153]"print# (NULL)ress (NULL)pace !
7 poke775,5
8 poke808,234
9 rem
10 rem
11 rem
12 rem
13 rem
14 rem
100 fort=53000to53126:readq:poket,q:next
110 data32,253,174,32,138,173,32,247,183,140,76,207,141,77,207,140,94,207,141
120 data95,207,140,68,207,141,69,207,32,253,174,32,158,183,142,110,207,32,253
130 data174,32,158,183,142,71,207,142,89,207,32,253,174,32,158,183,142,66,207
140 data169,0,141,32,208,162,7,32,109,207,238,32,208,202,165,203,201,64,208
150 data45,138,208,240,162,7,32,109,207,206,32,208,202,165,203,201,64,208,27
160 data138,208,240,76,70,207,160,0,169,5,141,122,3,206,122,3,173,122,3
170 data201,0,208,246,136,208,238,96,169,0,133,198,96
180 poke54296,15:poke54278,240:poke54276,17
190 sys53000,54273,50,25,100:poke54276,0:fort=1to500:next
200 sys53000,53270,1,7,200:poke53270,200:forx=1to500:next
300 print"[147]":poke53281,1:poke53280,1:poke646,0
305 print"[218]eit ist [199]eld, aber nur, wenn man keine"
310 print"[218]eit hat.[215]er seinen taeglichen [193]ufgaben"
315 print"gewachsen sein will, muss [218]eitsouverae-"
320 print"nitaet gewinnen. [196]as knappe [199]ut [218]eit "
325 print"will richtig gemanagt sein. [211]chon [211]eneca"
330 print"[145]meinte, dass es mehr als genung [218]eit ge-"
335 print"[145]be, dass die [205]enschen sie allerdings "
340 print"nicht richtig zu nutzen verstuenden."
345 print"[215]ie gehen [211]ie mit [201]hrer [218]eit um, lassen"
350 print"[211]ie sich [218]eit von anderen stehlen ???"
355 print" -=*< [211]pace >*=-
360 [161]a$:[139]a$[178]""[167]360
365 [151]53281,6:[151]53280,6:[151]646,1
370 [153]"load"
375 [153]"1. (NULL)ind (NULL)ie resolut genug,sich gegen "
380 [153]" ungeplante atnufgaben zu sperren ?"
385 [153]" atn) (NULL)icht immer
390 print" [194]) [201]ch sage nein, und dabei bleibt's"
395 print" [195]) [205]an muss sich immer soviel [204]uft"
400 print" lassen, um unvorhergesehene [193]r-"
405 print" beiten zusaetzlich einschieben zu"
410 print" koennen."
415 get b$:ifb$=""then415:x=0
416 x=0
420 if b$="a"then x=x+4 : goto 440
425 if b$="b"then x=x+10: goto 440
430 if b$="c"then x=x+6 : goto 440
435 goto 415
440 poke53281,11:poke53280,11:poke646,1
445 print"[147]"
450 print"2. [198]uehren [211]ie ein [218]eitplanbuch, das"
455 print" als '[194]uero im [215]estentaschenformat' "
460 print" ueberallhin mitgefuehrt werden kann ?"
465 print" [193]) [196]as wuerde ja zusaetzlich [193]rbeit"
470 print" bedeuten - mehr [194]uerokram"
475 print" [194]) [211]o etwas fuehre ich schon seit"
480 print" laengerem
485 [153]" len) valine gute right$dee: (NULL)an sollte sich"
490 [153]" einen (NULL)agesplan machen
495 getb$:ifb$=""then495
500 ifb$="a"thenx=x+3:goto520
505 ifb$="b"thenx=x+8:goto520
510 ifb$="c"thenx=x+5:goto520
515 goto495
520 poke53281,13:poke53280,13:poke646,5
525 print"[147]"
530 print"3. [199]eben [211]ie jedem [212]ag ein besonderes"
535 print" [218]iel ??? "
540 print" [193]) [201]ch glaube schon
545 [153]" peek) str$as waere unmoeglich, da zuviel"
550 [153]" (NULL)nvorhergesehenes auf mich zu-"
555 [153]" stuermt
560 print" [195]) [201]ch lege mehr [215]ert auf [211]ponta-"
565 print" nitaet
570 [161]b$:[139]b$[178]""[167]570
575 [139]b$[178]"a"[167]x[178]x[170]10:[137]595
580 [139]b$[178]"b"[167]x[178]x[170]3 :[137]595
585 [139]b$[178]"c"[167]x[178]x[170]5 :[137]595
590 [137]570
595 [153]"load"
600 [151]53281,14:[151]53280,14:[151]646,0
605 [153]"4. (NULL)etzen (NULL)ie right$hren (NULL)eitbedarf fuer"
610 [153]" alle right$hre (NULL)ermine und (NULL)aetigkeiten"
615 [153]" so grosszuegig an, dass (NULL)ie des oef-"
620 [153]" teren etwas (NULL)pielraum zur (NULL)erfue-"
625 [153]" gung haben ??? "
630 [153]" atn) right$ch muss meine (NULL)eitkalkulation "
635 [153]" sehr knapp berechnen. str$a blebt"
640 [153]" sehr wenig (NULL)eit 'dazwischen'"
645 [153]" peek) right$ch habe die valrfahrung gemacht,"
650 [153]" dass so gut wie alles etwas "
655 [153]" laenger dauert als geplant,und"
660 [153]" um nicht immer wieder in (NULL)eitnot"
665 [153]" zu geraten, stelle ich dieses"
670 [153]" 'valxtra' in (NULL)echnung"
675 [153]" len) (NULL)enn ich ehrlich sein soll, ge- "
680 [153]" rate ich nicht selten in (NULL)eitnot."
685 [153]" vals ist eine ewige, schier nicht"
690 [153]" abschuettelbare left$ektik"
695 [161]b$:[139]b$[178]""[167]695
700 [139]b$[178]"a"[167]x[178]x[170]5:[137]720
705 [139]b$[178]"b"[167]x[178]x[170]8:[137]720
710 [139]b$[178]"c"[167]x[178]x[170]2:[137]720
715 [137]695
720 [153]"load"
725 [151]53281,3:[151]53280,3:[151]646,0
730 [153]"5. (NULL)oennen (NULL)ie sich freimachen von (NULL)ou-"
735 [153]" tinearbeiten, um sich um so besser"
740 [153]" auf wichtige atnufgaben zu konzen-"
745 [153]" trieren ??? "
750 [153]" atn) str$as habe ich im (NULL)aufe der mid$ahre"
755 [153]" gelernt"
760 [153]" peek) (NULL)chwer
765 print" [195]) [205]an nimmt sich das zwar vor, aber"
770 print" es will nicht so recht gelingen"
775 getb$:ifb$=""then775
780 ifb$="a"thenx=x+10:goto800
785 ifb$="b"thenx=x+5:goto800
790 ifb$="c"thenx=x+3:goto800
795 goto775
800 print"[147]"
805 poke53281,15:poke53280,1:poke646,0
810 print"6. [211]agen [211]ie des oefteren ganz eindeu-"
815 print" tig: '[201]ch moechte nicht gestoert wer-"
820 print"[145] den !' ???"
825 print" [193]) [201]n der [212]heorie klingt das gut, in"
830 print" der [208]raxis wird man leider immer"
835 print" wieder unterbrochen
840 [153]" peek) (NULL)enn ich nicht gestoert werden"
845 [153]" will, dann schotte ich mich ab"
850 [153]" len) (NULL)agsueber geht das nicht, also "
855 [153]" muss ich nachts (NULL)ichtiges erle-"
860 [153]" digen
865 getb$:ifb$=""then865
870 ifb$="a"thenx=x+2:goto890
875 ifb$="b"thenx=x+8:goto890
880 ifb$="c"thenx=x+4:goto890
885 goto865
890 print"[147]"
895 poke53281,4:poke53280,6:poke646,1
900 print"7. [194]ilanzieren [211]ie schon mal am [197]nde"
905 print" eines [212]ages oder einer [215]oche, wie [211]ie"
910 print"[145] die [218]eit verbracht haben ???"
915 print" [193]) [196]aran habe ich nie gedacht"
920 print" [194]) [198]uer derlei [211]chnickschnack fehlt"
925 print" mir die [218]eit
930 [153]" len) mid$a
935 getb$:ifb$=""then935
940 ifb$="a"thenx=x+3:goto960
945 ifb$="b"thenx=x+1:goto960
950 ifb$="c"thenx=x+8:goto960
955 goto935
960 print"[147]"
965 poke53281,10:poke53280,10:poke646,0
970 print"8. [200]at [211]ie schon mal das [199]efuehl be-"
975 print" schlichen, dass dieser oder jener"
980 print" [211]chulkamerad/[203]ameradin aus seinem/"
985 print" ihrem [204]eben mehr gemacht hat "
990 print" als [211]ie ??? "
995 print" [193]) [206]ein
1000 [153]" peek) str$as ist mir schon durch den (NULL)opf"
1005 [153]" gegangen
1010 print" [195]) [193]uch wenn der eine oder andere"
1015 print" mehr aus seinem/ihrem [204]eben ge-"
1020 print" macht haben sollte, muss das nicht"
1025 print" [145]unbedingt aufgrund einer besseren"
1030 print" [145][218]eiteinteilung geschehen sein"
1035 getb$:ifb$=""then1035
1040 ifb$="a"thenx=x+8:goto1060
1045 ifb$="b"thenx=x+3:goto1060
1050 ifb$="c"thenx=x+5:goto1060
1055 goto1035
1060 print"[147]"
1065 poke53281,11:poke53 80,12:poke646,1
1070 print"9. [200]aben [211]ie [201]hre [204]ebensziele mehr "
1075 print" oder minder erreicht ??? "
1080 print" [193]) [211]ogar uebertroffen
1085 [153]" peek) mid$a
1090 print" [195]) [206]ein
1095 [161]b$:[139]b$[178]""[167]1095
1100 [139]b$[178]"a"[167]x[178]x[170]8:[137]1120
1105 [139]b$[178]"b"[167]x[178]x[170]6:[137]1120
1110 [139]b$[178]"c"[167]x[178]x[170]2:[137]1120
1115 [137] 1095
1120 [153]"load"
1125 [151]53281,13:[151]53280,14:[151]646,0
1130 [153]"10. peekraechten (NULL)ie es fertig - und hier "
1135 [153]" ist eine ehrliche atnntwort unver-"
1140 [153]" zichtbar -, sich einer gewissenhaf-"
1145 [153]" ten (NULL)elbstueberpruefung zu stellen"
1150 [153]" und zwar mit der ascrage, ob die (NULL)ich-"
1155 [153]" ontung right$hres eingeschlagenen (NULL)eges,"
1160 [153]" die chr$eschwindigkeit und das chr$epaeck,"
1165 [153]" ondas (NULL)ie mitfuehren, ob all das dem"
1170 [153]" (NULL)inn right$hres (NULL)ebens noch entspricht ?"
1175 [153]" atn) right$ch wuerde mich dieser (NULL)ruefung"
1180 [153]" stellen und die (NULL)onsequenzen"
1185 [153]" ziehen"
1190 [153]" peek) right$ch wuerde mich dieser (NULL)ruefung"
1195 [153]" stellen, aber keine (NULL)onsequenzen"
1200 [153]" ziehen
1205 print" [195]) [206]ein. [197]s kaeme sowieso nichts"
1210 print" dabei heraus
1215 [161]b$:[139]b$[178]""[167]1215
1220 [139]b$[178]"a"[167]x[178]x[170]12:[137]1240
1225 [139]b$[178]"b"[167]x[178]x[170]6:[137]1240
1230 [139]b$[178]"c"[167]x[178]x[170]2:[137]1240
1235 [137]1215
1240 [153]"load"
1245 [151]53280,0:[151]53281,0:[151]646,1
1250 [153]" peekitte warten -
1254 print" [193]uswertung laeuft !!!
1255 [153]" ... press (NULL)(NULL)atnlenval !!!"
1259 [161]p$:[139]p$[178]""[167]1259
1260 [139]x[178]44[167]1320
1265 [139]x[179]44[167]1320
1270 [139]x[178]45[167]1405
1275 [139]x[179]60[167]1405
1280 [139]x[178]60[167]1405
1285 [139]x[178][177]61[167]1500
1300 [153]"ascehler in valingabe bzw. (NULL)rogrammablauf !"
1305 [153]"(NULL)e-(NULL)tarten des (NULL)rogramms ... "
1310 [129]z[178]1[164]1000:[130]z
1315 [137]300
1320 [151]53281,1:[151]53280,1:[151]646,0
1325 [153]"right$hre (NULL)unktzahl :"
1330 [153]x;" von 90 (NULL)unkten "
1335 [153]"(NULL)ie werden eines (NULL)ages feststellen "
1340 [153]"(wenn (NULL)ie nicht bis dahin laengst 'aus-"
1345 [153]"gestiegen' sind), dass (NULL)ie das, was (NULL)ie"
1350 [153]"sich vorgenommen haben, nicht erreicht"
1355 [153]"haben und vermutlich auch nicht errei-"
1360 [153]"chen werden. (NULL)ag sein, dass wiedrige (NULL)m-"
1365 [153]"onstaende (NULL)ie daran gehindert haben, aber"
1370 [153]"onwahrscheinlicher ist, dass right$hnen die "
1375 [153]"valntschiedenheit fehlt, sich gegen (NULL)eit-"
1380 [153]"diebstahl erfolgreich zur (NULL)ehr zu "
1385 [153]"setzen. atnuch chr$ewohnheit kann dem (NULL)eit-"
1390 [153]"diebstahl (NULL)orschub leisten."
1400 [137] 5000
1405 [151]53280,1:[151]53281,1:[151]646,0
1410 [153]"load"
1415 [153]"(NULL)ie lassen sich nicht selten zum (NULL)pfer"
1420 [153]"von (NULL)eitdieben machen. (NULL)ie gehen zu we-"
1425 [153]"nig nach (NULL)lan vor. str$arunter leidet right$hre"
1430 [153]"(NULL)eistungsfaehigkeit. (NULL)ie sollten darue-"
1435 [153]"ber nachdenken, wie (NULL)ie die vielfaeltige"
1440 [153]"onascremdbestimmung in right$hrem (NULL)ebens abbauen"
1445 [153]"koennen, um die (NULL)eit fuer right$hre atnrbeit "
1450 [153]"und fuer sich selbst gewinnbringender"
1451 [153]"einzusetzen."
1452 [153]"right$hre (NULL)unktzahl :"
1453 [153]x;" von 90 (NULL)unkten !"
1460 [137]5000
1500 [151]53281,1:[151]53280,1:[151]646,0
1505 [153]"load"
1510 [153]"right$hre (NULL)unktzahl :"
1515 [153]x;" von 90 (NULL)unkten !!! "
1520 [153]"mid$e naeher (NULL)ie an die chr$esammtpunktzahl"
1525 [153]"herangekommen sind, um so unwahrschein-"
1530 [153]"licher ist es, dass (NULL)ie das wertvolle"
1535 [153]"chr$ut (NULL)eit falsch einsetzen. (NULL)eitver-"
1540 [153]"schwendung, meinte peekenjamin ascranklin,"
1545 [153]"ist die allergroesste (NULL)erschwendung. atnls"
1550 [153]"onatnmerikaner konnte er das gar nicht an-"
1555 [153]"ders sehen. (NULL)ie auch immer: (NULL)ie lassen"
1560 [153]"sich von keinem (NULL)eit stehlen."
1570 [137]5000
5000 [161]c$:[139]c$[178]""[167]5000
5005 [153]"load(NULL)ochmal (mid$wait/(NULL)wait) ???"
5010 [161]d$:[139]d$[178]""[167]5010
5015 [139]d$[178]"j"[167]300
5020 [139]d$[178]"n"[167][158]64738
5025 [137]5010