Sorry your browser is not supported!

type Byte4Data
	Value1
	Value2
	Value3
	Value4
endtype

File$="MyFile.txt"

byte1=16
byte2=56
byte3=4
byte4=254

int=ByteToInteger(byte1,byte2,byte3,byte4)

FileID=OpenToWrite(File$)
	WriteInteger(FileID,int)
CloseFile(FileID)


myByte as Byte4Data
FileID=OpenToRead(File$)
	int=ReadInteger(FileID)
	myByte=IntegerToByte(int)
CloseFile(FileID)

message(str(myByte.Value1))
message(str(myByte.Value2))
message(str(myByte.Value3))
message(str(myByte.Value4))

end

function ByteToInteger(Byte1,Byte2,Byte3,Byte4)
	Int=Byte1
	Int=Int*256+Byte2
	Int=Int*256+Byte3
	Int=Int*256+Byte4
endfunction int

function IntegerToByte(Int)
	Byte as Byte4Data
	Byte.Value1 = (int >> 24) && 255
	Byte.Value2 = (int >> 16) && 255
	Byte.Value3 = (int >> 8) && 255
	Byte.Value4 = int && 255
endfunction Byte

type GetList_t struct {
	Email      string
	GetReceipt bool
	GetVersion bool
}

var getFile = "./media/accGet.csv"

func SaveUser(g []structs.GetList_t, info structs.GetList_t) []structs.GetList_t {

	s := info.Email + "," + strconv.FormatBool(info.GetReceipt) + "," + strconv.FormatBool(info.GetVersion) + "\n"

	f, err := os.OpenFile(getFile, os.O_APPEND|os.O_WRONLY, 0666)
	if err != nil {
		log.Printf("No file %s found %v", getFile, err)
		panic(err)
	}
	defer f.Close()
	if _, err = f.WriteString(s); err != nil {
		log.Printf("Could not write to file %s, %v", getFile, err)
		panic(err)
	}
	g = append(g, info)
	fmt.Printf("%s appended with: %s", getFile, s)
	return g
}

#constant false		= 0
#constant true		= 1

type getList_t
	email		as string
	getReceipt	as integer
	getVersion	as integer
endType

main()

function main()
	getList as getList_t[]
	loadUser(getList)
	printUsers(getList)
endFunction

function loadUser(g ref as getList_t[])

	getFile as string
	getFile = "accGet.csv"

	gt as getList_t
	t as string

	if getFileExists(getFile)
		openToRead(1, getFile)
		repeat
			t = ReadLine(1)
			tokens = countStringTokens(t, ",")
			gt.email = getStringToken(t, ",", 1)
			gt.getReceipt = boolConvert(getStringToken(t, ",", 2))
			gt.getVersion = boolConvert(getStringToken(t, ",", 3))
			g.insert(gt)
		until FileEOF(1)
		closeFile(1)
	else
		print("error loading file")
		sync()
		sleep(1000)
	endif

endFunction

function boolConvert(s as string)

	ret as integer

	select s
	case "true"
		ret = true
	endCase
	case "false"
		ret = false
	endCase
	endSelect

endFunction ret

function printUsers(g as getList_t[])

	for i = 0 to g.length
		print(g[i].email + " | " + str(g[i].getReceipt) + " | " + str(g[i].getVersion))
		sync()
		sleep(500)
	next i
	
endFunction

mail01@mail.com,true,false
mail02@mail.com,true,true
mail03@mail.com,false,true

Type S3M_Header
	title           as string
	sig1            as integer
	songType        as integer
	orderCount      as integer
	instumentCount  as integer
	patternPtrCount as integer
	flags           as integer
	version         as integer
	sampleType      as integer
	sig2            as string
	globVolume      as integer
	speed           as integer
	tempo           as integer
	mstrVolume      as integer
	clickRmvl       as integer
	defaultPan      as integer
	ptrSpecial      as integer
	channelSettings as integer[32]
	orderList       as integer[]
	ptrInstruments  as integer[]
	ptrPatterns     as integer[]
EndType


header as S3M_Header
header = S3M_GetHeader("file.s3m")


function S3M_GetHeader(file$)
	header as S3M_Header
	
	m = createMemblockFromFile(file$)

	header.title           = getMemblockString(m, 0, 28)
	header.sig1            = getMemblockByte(m, 28)
	header.songType        = getMemblockByte(m, 29)
	header.orderCount      = getMemblockShort(m, 32)
	header.instumentCount  = getMemblockShort(m, 34)
	header.patternPtrCount = getMemblockShort(m, 36)
	header.flags           = getMemblockShort(m, 38)
	header.version         = getMemblockShort(m, 40)
	header.sampleType      = getMemblockShort(m, 42)
	header.sig2            = getMemblockString(m, 44, 4)
	header.globVolume      = getMemblockbyte(m, 48)
	header.speed           = getMemblockbyte(m, 49)
	header.tempo           = getMemblockbyte(m, 50)
	header.mstrVolume      = getMemblockbyte(m, 51)
	header.clickRmvl       = getMemblockbyte(m, 52)
	header.defaultPan      = getMemblockbyte(m, 53)
	header.ptrSpecial      = getMemblockShort(m, 61)

	for i = 0 to 31
		header.channelSettings[i] = getMemblockByte(m, 63+i)
	next i

	header.orderList.length      = header.orderCount
	header.ptrInstruments.length = header.instumentCount
	header.ptrPatterns.length    = header.patternPtrCount

	for i = 0 to header.orderCount-1
		header.orderList[i] = getMemblockByte(m, 95+i)
	next i

	pos = 95+header.orderCount
	for i = 0 to header.instumentCount-1
		header.ptrInstruments[i] = getMemblockByte(m, pos+i)
	next i

	pos = 95+header.orderCount+header.instumentCount
	for i = 0 to header.patternPtrCount-1
		header.ptrPatterns[i] = getMemblockByte(m, pos+i)
	next i
	
endfunction header