fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

4aletes

Uploader:	ytwinky
Datum/Zeit:	12.09.2010 21:10:00

'Ich konnt's nicht lassen..

'nicht böse sein, WestBeam ;-))

'Gruß

'ytwinky

#define Auf ,

Const Esc=!"\027", Schwarz=0, Weiss=7, hell=8, Gelb=6

Var Key="", Datei="" 'Let FB decide what it is: in this case they are strings..

Cls

'Locate 0, 0 is done by cls..

Print !"         - Westbeam's Assembler - \n\n\n[1] Interpret\n[2] Compile\n[3] Quit\nSelect:"

Locate HiWord(Width), 1

Print "Made by Westbeam aka aletes under the terms of the WTF-Public license.";

'print is 'slow', so why use it? The screen has been cleared before..

Locate 3, 1

'Color hell+Gelb 'You decide..

Input ">> Your Source code:", Datei

Locate 7, 8

Do

    Key=InKey()

    Sleep 2

    Select Case Key

        Case "1"

            Color Weiss Auf Schwarz

            Cls

            Shell "./interpreter " &datei

            Key="3"

        Case "2"

            Color Weiss Auf Schwarz

            Cls

            Shell "./compiler " &datei

            Key="3"

        Case Esc 'provide an 'emergency exit' via Esc-Key not only Ctrl-C

            Key="3"

    End Select

Loop Until Key="3"

Color Weiss Auf Schwarz

Cls

End

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.