; Prof. EDITOR.BB
AppTitle "Prof. EDITOR"
Graphics 640, 480
SetBuffer BackBuffer()
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; FONTS

Font1 = LoadFont("Times New Roman",20,0,0,0)
Font2 = LoadFont("Arial",20,0,0,0)
Font3 = LoadFont("Andy",20,0,0,0)
Font4 = LoadFont("Batang",20,0,0,0)
Font5 = LoadFont("Bauhaus 93",20,0,0,0)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

SetFont font3
Locate 170, 0
Print "Willkommen zum Prof. EDITOR!"
Locate 20, 20            
Print "DEN Alternativen Schreibeditor zu WordPad oder den normalen EDITOR!!!"
Print ""
Print ""
Print ""
Print "1 - Times New Roman"
Print "2 - Arial"
Print "3 - Andy"
Print "4 - Batang"
Print "5 - Bauhaus 93"
Print ""

Font = Input$("Welchen Font willst du verwenden?: ")

Print ""

 If Font = 1 Then SetFont Font1
 If Font = 2 Then SetFont Font2
 If Font = 3 Then SetFont Font3
 If Font = 4 Then SetFont Font4
 If Font = 5 Then SetFont Font5


For I=1 To 10
Input
Next