home *** CD-ROM | disk | FTP | other *** search
/ B Soft 4 / B-Soft_4_19xx_Maik__Mike_de_Side_A.d64 / musterung (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  46 lines
  1. 0 rem schummeln gilt nicht!
  2. 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"
  3. 2 print"[197]inmal "chr$(34)"[211][208][193][195][197]"chr$(34)", und dann geht's los![145]"
  4. 3 gosub38:ifa$<>" "then3
  5. 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"
  6. 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."
  7. 6 print"[196]ruecke jetzt "chr$(34)"[211][208][193][195][197]"chr$(34)", um den [198]ragebogen":print"[145]auszufuellen."
  8. 7 gosub38:ifa$<>" "then7
  9. 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"
  10. 9 gosub38:ifa$="1"ora$="3"thengosub42:goto12
  11. 10 ifa$="2"thengosub43:goto12
  12. 11 goto9
  13. 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"
  14. 13 gosub38:ifa$="1"ora$="2"thengosub42:goto16
  15. 14 ifa$="3"thengosub43:goto16
  16. 15 goto13
  17. 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"
  18. 17 gosub38:ifa$="1"ora$="3"thengosub42:goto20
  19. 18 ifa$="2"thengosub43:goto20
  20. 19 goto17
  21. 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"
  22. 21 gosub38:ifa$="2"ora$="3"thengosub42:goto24
  23. 22 ifa$="1"thengosub43:goto24
  24. 23 goto21
  25. 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"
  26. 25 gosub38:ifa$="1"ora$="2"thengosub42:goto28
  27. 26 ifa$="3"thengosub43:goto28
  28. 27 goto25
  29. 28 ifp<1then31
  30. 29 ifp<5then33
  31. 30 goto34
  32. 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. 32 print"[145]wir [196]ir frohes [211]chaffen.":goto36
  34. 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
  35. 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,"
  36. 35 print"nimm hier [196]eine [193]usmusterungspapiere mit":print"[145]und komm nie wieder!":goto36
  37. 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]!"
  38. 37 forx=0to15:poke53280,x:nextx:goto37
  39. 38 geta$:ifa$=""then38
  40. 39 return
  41. 40 print"[147][196]er [198]ragebogen[146]":return
  42. 41 print"[147][196]as [212]estergebnis[146]":return
  43. 42 printtab(10)"[206]oe!":gosub44:return
  44. 43 printtab(10)"[202]awohl!":p=p+1:gosub44:return
  45. 44 forx=1to500:nextx:return
  46.