You are hereUse the Source!
Use the Source!
Here is a list of all Source Code posted to the Emporium:
-
lolcode.bi
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
'LOLcode for FreeBASIC version 1.02 'Not to be cornfuzzled with LOLcode version 1.0 'This supports somewhere between LOLcode version 1 and LOLcode version 1.2 'Copyright (c) 2007 Ebben Feagan (sir_mud) 'Licenced under the terms of the GNU General Public License 'General Section #define CAN_HAS #include once #define STDIO "lolcode.bi" #define HAI Declare Sub main(): main(): Sub main() #define KTHXBYE End Sub 'ends the program #define BTW Rem 'The real way to make a comment #define BRB(x) Sleep x #define CANDLEJACK(x,y,z) Mid(x,y,z) #define EPIC_FAIL End #macro HALP(x) Print "DO N
-
fme.bas
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
var curfile = command() if curfile = "" then print "FreeBASIC Macro Expander Deluxe Version 1" print "Usage: fme [module]" print "[module] is the name of your file without extension." print "fme will automatically compile your file with -g and -r" print "then print the contents with macros expanded." print "fbc must be in your path or the local dir for this to work." print "Look for:" print " [Macro Expansion: your macro expanded here ]" print end 42 end if var basfile = curfile & ".bas" var asmfile = curfile & ".asm" var outstr = "" shell "fbc -g -r " & basfile
-
Archive: Calendar Printing Utility (think GNU cal)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
'This code is Copyright (C) 2006 HMCsoft and Ebben Feagan 'Modified 1/13/11 to work with FreeBASIC 0.21b 'Added leap year function from http://www.freebasic.net/forum/viewtopic.php?t=17166 'to replace faulty leap year logic #Include "vbcompat.bi" Declare Sub uses() Declare Function checkLeapYear(y As Integer) As Integer Type dateholder serial As Double thismonth As Integer thisday As Integer thisyear As Integer thiswkday As Integer End Type Dim n As UByte Dim wkday(7) As String Dim mnth(6,7) As UByte Dim monthdays(12) As UByte Dim today As dateholder Dim firstday
