:$: "FAHR" - A. BERNDT,:9(: MENA2:Y< : : ,,::F , :"************************"P , :"* *"΀Z , :"* FAHRKARTENAUTOMAT *"d , :"* *"n, :"* DRESDEN HAUPTBAHNHOF *"Cx, :"* *"j, :"************************",:"Ŀ": ,:"";: :"STOP";: :"":,,:"":ȁ:,,:: I : ZI$(I),KM$(I):I, ,,':,,:  , ,,':,,:9,,,':,,:O, ,,':,,:);"FAHRTZIEL";);"FAHRTZIELKENNZAHL":);"BERLIN";););"COTTBUS";);͂);"ERFURT";););"LEIPZIG";););"NEUBRANDENBURG";);");"ROSTOCK";);R:" GEBEN SIE DIE FAHRTZIELKENNZAHL EIN!";_"K$$()l,K(K$)6 K K @,,,'J:" DRESDEN HBF NACH"҃T" ";ZI$(K);" ";KM$(K);"KM"ڃ^:h:NORMAL/ERMAESSIGUNGr:| , ,,': ,,: .:" EINTASTEN:"f::" 1=NORMALFAHRKARTE";);"2=RENTNERFAHRKARTE":" 3=ARBEITERRCK-";);"4=SCHLERFAHRKARTE"" FAHRKARTE",:E$$()ۄE(E$): EE ,,,':: , E ,,,N/"RENTNERFAHRKARTE"Z:" GILT NUR MIT GLTIGEM AUSWEIS";cN"ARBEITERRCKFAHRKARTE":" BITTE IM ANTRAG ENTWERTEN!";:H̅"SCHLER/STUDENT"&:" GILT NUR MIT GLTIGEM ANTRAG";0:::HIN-/RCK-/HIN&RCKFAHT%D:6N, ,,':KX:" EINTASTEN:"db::" 1=HINFAHRT"|l:" 2=RCKFAHRT"v:" 3=HIN & RCKFAHRT" ,:H$$()H(H$)І H H ꆞ , ,,'::, H ,," HINFAHRT":0" RCKFAHRT":H:J" HIN&RCKFAHRT":HR:m:ANZAHL DER PERSONENu:, ,,': E J:\:" EINTASTEN:"χ ::" 1=EIN ERWACHSENER":" 2=EIN KIND" ,:J$$()*J(J$): J J  *4 J J@P:>J p`H ,,,':,:"KINDERKARTE"hR:\:D-/P-/EIL-/EX-ZUGf:p , ,,':z:" EINTASTEN:"܈::" 1=PERSONENZUG";);"2=EILZUG" :" 3=SCHNELLZUG";);"4=EXPRESSZUG",:Z$$()7Z(Z$): ZZ M,,,':,f Z ,,,x"P-ZUG":"EILZUG":"D-ZUG":"EXPRESSZUG"Ɖ,:"2.KLASSE"Ή::BERECHNUNG: ZZ: Z Z1: : Z1ZA$KM$(K)4$(A$), Z1ZZ1H.F? (A$)\8 E FFtB E E FFLF(FJ)Z1V F Y@: : Y@ ` E H Y?PˊjAF(F)t A FFA: : AAY: t~FFH:: FAHRKARTENAUSGABE":@ ,: "####.## M";F;[ , ,,': ,,: ,:" B I T T E Z A H L E N "; ,,,::,: "NOCH EINE FAHRKARTE? (N)"΋ ""׋X$ X$""X$"N" X$"n" :,,:: ( "MENUE.BAS":i BERLIN,180,COTTBUS,120,ERFURT BER LEIPZIG,237,LEIPZIG,120 NEUBRANDENBURG,320,ROSTOCK BER BERLIN,437NUE.BAS":i BERLIN,180,COTTBUS,120,ERFURT BER LEIPZIG,237,LEIPZIG,120 NEUBRANDENBURG,32