0 REM SCHUMMELN GILT NICHT!
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"
17 GOSUB38:IFA$="1"ORA$="3"THENGOSUB42:GOTO20
18 IFA$="2"THENGOSUB43:GOTO20
19 GOTO17
20 GOSUB40:PRINT"4. [198]RAGE: [218]WEI [198]RAGEN NOCH. [215]IE LANGE":PRINTTAB(10)"DAUERTE DER [196]REISSIGJAEHRIGE":PRINTTAB(10)"[203]RIEG?":PRINTTAB(10)"(1) 30 [202]AHRE":PRINTTAB(10)"(2) 40 [202]AHRE":PRINTTAB(10)"(3) 50 [202]AHRE"
21 GOSUB38:IFA$="2"ORA$="3"THENGOSUB42:GOTO24
22 IFA$="1"THENGOSUB43:GOTO24
23 GOTO21
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"
32 PRINT"[145]WIR [196]IR FROHES [211]CHAFFEN.":GOTO36
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
36 PRINT"([212]ASTE)":GOSUB38:PRINT"[194][213][206][196][197][211][215][197][200][210][160]- [197][201][206][197][160][211][212][193][210][203][197][160][212][210][213][208][208][197]!"
37 FORX=0TO15:POKE53280,X:NEXTX:GOTO37
38 GETA$:IFA$=""THEN38
39 RETURN
40 PRINT"[147][196]ER [198]RAGEBOGEN[146]":RETURN
41 PRINT"[147][196]AS [212]ESTERGEBNIS[146]":RETURN
42 PRINTTAB(10)"[206]OE!":GOSUB44:RETURN
43 PRINTTAB(10)"[202]AWOHL!":P=P+1:GOSUB44:RETURN
44 FORX=1TO500:NEXTX:RETURN