1 poke53280,3:poke53281,3:print"[147][151][205][213][211][212][197][210][213][206][199]":print"[201]dee und [208]rogramm: [158][202][212][210]":print"[151][214]ertrieb: [194]-[211]oft":printtab(10)"[205]ike [215]itschi und [205]aik [200]olstein"tab(50)"[200]enningstr. 13":printtab(10)"21337 [204]ueneburg":print"[199]eschrieben 1996 im militaerischen [215]ahn"
2 print"[197]inmal "chr$(34)"[211][208][193][195][197]"chr$(34)", und dann geht's los![145]"
3 gosub38:ifa$<>" "then3
4 print"[147][215]orum es geht:[146]":print"[212]ja, jetzt bist [196]u alt genug; die [205]uste-":print"[145]rung ist faellig!":print"[193]usser einer aerztlichen [213]ntersuchung":print"musst [196]u auch noch einen [201]ntelligenztest":print"[145]ueber [196]ich ergehen lassen.":print"[193]ber keine [193]ngst. [196]as hoert sich viel"
5 print"schlimmer an, als es ist.":print"[198]uelle einfach diesen [198]ragebogen aus,":print"waehrend [196]eine gesundheitlichen [197]rgeb-":print"nisse ausgewertet werden.":print"[196]anach legst [196]u ihn [200]auptmann [213]npax auf":print"den [211]chreibtisch."
6 print"[196]ruecke jetzt "chr$(34)"[211][208][193][195][197]"chr$(34)", um den [198]ragebogen":print"[145]auszufuellen."
7 gosub38:ifa$<>" "then7
8 gosub40:print"1. [198]rage: [215]elche [198]arbe hat der gruene":printtab(10)"[210]ucksack?":printtab(10)"(1) orange":printtab(10)"(2) gruen":printtab(10)"(3) violett"
9 gosub38:ifa$="1"ora$="3"thengosub42:goto12
10 ifa$="2"thengosub43:goto12
11 goto9
12 gosub40:print"2. [198]rage: [215]as ist das? [211]ie haengt an der":print"[145]"tab(50)"[215]and, macht "chr$(34)"[212]ick-[212]ack"chr$(34)", und":printtab(10)"wenn sie 'runterfaellt, ist":printtab(10)"die [213]hr kaputt.":printtab(10)"(1) [210]egal":printtab(10)"(2) [211]piegel":printtab(10)"(3) [213]hr"
13 gosub38:ifa$="1"ora$="2"thengosub42:goto16
14 ifa$="3"thengosub43:goto16
15 goto13
16 gosub40:print"3. [198]rage: [202]etzt wird's schon etwas":printtab(10)"schwieriger! [215]ieviele [194]eine":printtab(10)"hat eine [203]atze?":printtab(10)"(1) drei":printtab(10)"(2) vier":printtab(10)"(3) fuenf"
24 gosub40:print"5. [198]rage: [215]ie lange geht ein einstuendi-":print"[145]"tab(50)"ger [198]ilm (letzte [198]rage)?":printtab(10)"(1) 15 [205]inuten":printtab(10)"(2) 30 [205]inuten":printtab(10)"(3) 60 [205]inuten"
25 gosub38:ifa$="1"ora$="2"thengosub42:goto28
26 ifa$="3"thengosub43:goto28
27 goto25
28 ifp<1then31
29 ifp<5then33
30 goto34
31 gosub41:print"[196]u hast genau null [208]unkte erreicht, gut!":print"[145][211]olche [205]aenner wie [196]ich koennen wir bei":print"der [194]undeswehr gebrauchen! [201]n etwa drei":print"[205]onaten werden wir [196]ir den [197]inberufungs-":print"[145]bescheid zuschicken, bis dahin wuenschen"
33 gosub41:print"[196]er [212]est ist fuer uns unbefriedigend":print"ausgefallen. [205]it"p"[208]unkten koennen wir":print"[196]ich leider nur in die [212]3-[203]ategorie ein-":print"[145]ordnen. [215]ir schlagen vor, dass [196]u [196]ir":print"lieber eine [218]ivildienststelle suchst.":goto36
34 gosub41:print"[206]ach der [193]uswertung [196]eines [212]ests sind":print"wir zu dem [211]chluss gekommen, dass wir":print"keinerlei [214]erwendung fuer dich fuer den":print"[203]riegsdienst an der [215]affe haben. [196]ie [201]n-":print"[145]telligenz spielt dabei eine [210]olle. [196]a,"
35 print"nimm hier [196]eine [193]usmusterungspapiere mit":print"[145]und komm nie wieder!":goto36