'= , = , = ; = , =, = , = ,= , =, = '(c) 2006 by ytwinky, MD #Define SIX 1+5 #Define NINE 8+1 Const Esc=!"\27" Var DeepThought="", y="" Print "Sprachauswahl/Language selection" Print "Deutsch" Print "English" Print "Bitte Auswahl eingeben/Please enter choice:"; Do y=UCase(Input(1)) Loop Until Instr("DE" &Esc, y) Select Case y Case "D" Print y: Restore Deutsch Case "E" Print y: Restore English Case Esc Print !"\nBenutzer flieht/User ESCapes"; GetKey End Case Else Print !"\nHuch, was war das/Ooops, what was this?" GetKey End End Select Cls Read y:Print y;SIX Read y:Print y;NINE Read y:Print y; Input "";DeepThought Read y:Print y;" ";DeepThought Read y:Print "Deep Thought " &y &" " &(SIX*NINE) If Val(DeepThought)=SIX*NINE Then Read y:Print y:Read y Else Read y:Read y:Print y End If Read y:Print y Print "Tested with FB 0.183b using FBEdit"; GetKey End Deutsch: Data "SECHS ist", "NEUN ist", "Was ist das Ergebnis, wenn man SECHS mit NEUN malnimmt" Data "Eingabe war", "meint, es ist", "Eingabe war richtig, trotzdem:" Data "Eingabe war falsch", "Achtung bei Macros.." English: Data "SIX is", "NINE is", "What do you get when you multiply SIX by NINE" Data "Input was", "thinks it is", "Input was right, nevertheless:" Data "Input was wrong", "Beware of macros.."