Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Expected End-of-Line, found 'end' in 'end if'
| Uploader: |  Key_Frogger |
| Datum/Zeit: | 22.09.2009 15:27:17 |
screen 18,32
Dim choose As String
Print "Which way do you will use left (a) or right (d):"
Print ""
choose = ""
Do
choose = Inkey
Loop Until choose <> ""
If Lcase(choose) = "a" Then for i as integer = 270 to 220 step -10
dim as any ptr buffer
buffer=imagecreate(82,182)
bload "NG_L1.bmp", buffer
put (i,300), buffer
sleep 50
end if