
 Т APV File rewriter v 0.01F Т Provides a method of loading and saving APV files from BBC BASIC Т (C) Jon Ripley 2006( :2 Т Allocate memory< :F с = ░ + 6 * 1024^2P Р_APVLoad("Win32api.apv")Z Р_APVInfod Р_APVSave("Win33api.apv")n Юx :┌ Т Load APV file▄ щ Р_APVLoad(file$)	√ Й in%═ :╙ in% = ▌file$Є :2Ў header$   = Ґ #in%+Ґ #in%+Ґ #in%+Ґ #in%+Ґ #in%х vMajor    =  #in%р vMinor    =  #in%э vRevision =  #in%Ф :П nSubs  = є_DWORD(in%)З nFuncs = є_DWORD(in%)nConst = є_DWORD(in%)nTypes = є_DWORD(in%)nEnums = є_DWORD(in%)":R,ч DeclN$(nSubs+nFuncs), DeclP$(nSubs+nFuncs), ConstN$(nConst), ConstD$(nConst)D6ч TypeN$(nTypes), TypeD$(nTypes), EnumN$(nEnums), EnumD$(nEnums)@:-JР_STRARY(DeclN$(),  0, nSubs+nFuncs, in%)-TР_STRARY(DeclP$(),  1, nSubs+nFuncs, in%)'^Р_STRARY(TypeN$(),  1, nTypes, in%)'hР_STRARY(TypeD$(),  1, nTypes, in%)'rР_STRARY(ConstN$(), 1, nConst, in%)'|Р_STRARY(ConstD$(), 1, nConst, in%)'├Р_STRARY(EnumN$(),  1, nEnums, in%)'░Р_STRARY(EnumD$(),  1, nEnums, in%) :	єы#in%ўА╦:"бТ Display APV file informationлщ Р_APVInfoжЯ "Header:  "header$1ЮЯ "Version: ";vMajor;".";vMinor;"r";vRevisionЙЯ "Subs:    ";nSubsТЯ "Funcs:   ";nFuncsЧЯ "Const:   ";nConstЯ "Types:   ";nTypesЯ "Enums:   ";nEnumsА&:0Т Save as APV file:щ Р_APVSave(file$)
DЙ out%N:Xout% = ўfile$b:lу#out%,header$;vу#out%,vMajor─у#out%,vMinor┼у#out%,vRevision■:·Р_wDWORD(nSubs,  out%)╗Р_wDWORD(nFuncs, out%)╡Р_wDWORD(nConst, out%)╪Р_wDWORD(nTypes, out%)фР_wDWORD(nEnums, out%)п:/зР_wSTRARY(DeclN$(),  0, nSubs+nFuncs, out%)/ДР_wSTRARY(DeclP$(),  1, nSubs+nFuncs, out%))НР_wSTRARY(TypeN$(),  1, nTypes, out%))ЬР_wSTRARY(TypeD$(),  1, nTypes, out%))Р_wSTRARY(ConstN$(), 1, nConst, out%))Р_wSTRARY(ConstD$(), 1, nConst, out%))Р_wSTRARY(EnumN$(),  1, nEnums, out%)) Р_wSTRARY(EnumD$(),  1, nEnums, out%)*:
4ы#out%>АH:RТ Read DWORD from file;\щ є_DWORD(in%)= #in%+( #in%<<8)+( #in%<<16)+( #in%<<24)f:pТ Write DWORD to filezщ Р_wDWORD(num, out%)└у#out%, num ─ 255▌у#out%, num>>8 ─ 255≤у#out%, num>>16 ─ 255╒у#out%, num>>24 ─ 255╛АІ:$юТ Read VB string array from file)йщ Р_STRARY(arr$(), start%, end%, in%)тЙ txt$, len%,i%чЦ i%=start% ╦ end%Хlen% =  #in%+( #in%<<8)РЦ j%=1 ╦ len%Эarr$(i%)+=Ґ #in%ММА$:#.Т Write VB string array to file*8щ Р_wSTRARY(arr$(), start%, end%, in%)BЙ txt$, i%LЦ i%=start% ╦ end%Vу#out%,╘arr$(i%) ─ 255`у#out%,╘arr$(i%)>>8 ─ 255jЦ j%=1 ╦ len%tу#out%,arr$(i%);~М┬М▓А ЪЪ