Graphics 1024,768
AppTitle "DexterOne Football - Demo"
Color 255, 255, 0
SetBuffer BackBuffer()
bild1 = LoadImage("cow.bmp")
bild2 = LoadImage("Werbung.bmp")
bild3 = LoadImage("Fussball.bmp")
bild4 = LoadImage("Datas.bmp")
bild5 = LoadImage("fussball2.bmp")
DrawImage bild4, 100, 100
Spruch$ = "It´s Football comming home It´s comming Home..."
For I=1 To Len(Spruch$)
  Write Mid$(Spruch$, I, 1)
  Delay 200
Next
Print "Bitte drücke eine Taste um Fortzufahren!!!"
WaitKey
Print "Hi ich bin es DexterOne 1.0 Football !!!"
Print "Ich rede mit dir über Fussball !!!"
Name$ = Input("Bitte tippe deinen Namen ein: ")
Print "Hi " + Name$ + " !!!"
Print "Mensch du bist doch der Freund von Yannik meinem Programmierer."
Print "Hab gehört du bist HSV Fan."
.Marke1
Color 0, 255, 0
WAHL$ = Input$("Bitte tippe für ja = 1 ein. Für nein = 2: ")
Select WAHL$
Case 1 DrawImage bild3, 100, 100 : Print "Ich hab´s gewusst. Du bist FAN vom HSV !!!"
Case 2 Print "Schade dann bist du Falsch hier !!! Ich schmeiß dich raus." : Goto End
Default Goto Marke1
End Select
Color 255, 0, 0
Print "Also wenn du es bist bist du doch auch ManchasterUnited Fan."
Print "1 - Christiano Ronaldo"
Print "2 - Ronaldinho"
Print "3 - Ronaldo"
.Marke2
SPASS$ = Input$("Wer von den Spielern spielt bei ManU? Tippe die Nummer ein: ")
Select SPASS$
Case 1 DrawImage bild5, 100, 100 : Print "RICHTIG !!!"
Case 2 Print "FALSCH"
Case 3 Print "BIST DU VON SINNEN ???"
Default Print "Nochmal ?" : Goto Marke2
End Select
WaitKey
Color 255, 0, 0
DrawImage bild2, 100, 100
Print "Schade wir sind schon am Ende. Aber für 3 Euro aufwärts kannst du meine "
Print "Vollversion kaufen. DexterOne 1.0, DexterOne 1.0 Football oder DexterOne 1.1"
Print "Ich hab auch eine Schwester: Sofie deine Virtuelle Freundin."
Print "DexterOne powered by P@tSys"
Print "Ciao !!!"
.End
WaitKey
End