Worklog for Apocalypse

Worklog 1

Latest download and .decls

(Posted 2005-04-04)

www.imakegames.com/B3DHLP.dll

; Userlib
.lib "kernel32.dll"
GlobalSize%(hMem%)

.lib "B3DHLP.dll"
AVIBltFrameToImage% (AVIObject%, pBits%, pBBImage%, FramePtr%):"AVIBLTFRAMETOIMAGE"
AVIBltFrameToTex% (AVIObject%, pBits%, pBBTex%, FramePtr):"AVIBLTFRAMETOTEX"
AVIClose% (AVIObject%):"AVICLOSE"
AVICloseLib% ():"AVICLOSELIB"
AVIGetFrame% (AVIObject%, Pos%):"AVIGETFRAME"
AVIGetFrameRate% (AVIObject%):"AVIGETFRAMERATE"
AVIGetHeight% (AVIObject%):"AVIGETHEIGHT"
AVIGetImageSize% (AVIObject%):"AVIGETIMAGESIZE"
AVIGetTotalFrames% (AVIObject%):"AVIGETTOTALFRAMES"
AVIGetWidth% (AVIObject%):"AVIGETWIDTH"
AVIOpen% (Filename$):"AVIOPEN"
AVIOpenLib ():"AVIOPENLIB"
BankToDIB% (pBank%, width%, height%, bitcount%):"BANKTODIB"
BankToImage% (pBank%,pBBImage%,FramePtr%):"BANKTOIMAGE"
BltDIBToImage% (pDIB%, pBBImage%, FramePtr%):"BLTDIBTOIMAGE"
CheckTimer% (hTimer%):"CHECKTIMER"
DebugOut% (OutStr$):"DEBUGOUT"
Deg2Rad# (Degrees#):"DEG2RAD"
DestroyTimer% (hTimer%):"DESTROYTIMER"
DirExists% (DirName$):"DIREXISTS"
DiskSpaceFree% (Drive$):"DISKSPACEFREE"
DiskSpaceTotal% (Drive$):"DISKSPACETOTAL"
Distance# (x1#, y1#, x2#, y2#):"DISTANCE"
FileExists% (Filename$):"FILEEXISTS"
FreePointer% (pMem%):"FREEPOINTER"
FreeRAM% ():"FREERAM"
GetDIBdc% (pDIB%):"GETDIBDC"
GetDIBlpBits% (pDIB%):"GETDIBLPBITS"
Hex2Dec% (HexVal$):"HEX2DEC"
ImageBrightness% (pBBImage%, FramePtr%, Change%):"IMAGEBRIGHTNESS"
ImageToBank% (pBBImage%,FramePtr%,pBank%):"IMAGETOBANK"
ImageToDIB% (pBBImage%, FramePtr%):"IMAGETODIB"
LoadBank% (pBank%, Filename$):"LOADBANK"
MakeTimer% (IntPerSec$):"MAKETIMER"
Now$ ():"NOW"
OriginAngle# (x#,y#):"ORIGINANGLE"
Rad2Deg# (Radians#):"RAD2DEG"
ReadBankByte% (pBank%, Index%):"READBANKBYTE"
ReadBankInt% (pBank%, Index%):"READBANKINT"
ReadBankShort% (pBank%, Index%):"READBANKSHORT"
ReleaseDIB% (pDIB%):"RELEASEDIB"
ReleaseDLL% ():"RELEASEDLL"
ResetBit% (dwVal%, BitPos%):"RESETBIT"
SaveBank% (pBank%, Filename$):"SAVEBANK"
SetBit% (dwVal%, BitPos%):"SETBIT"
TestBit% (dwVal%, BitPos%):"TESTBIT"
TimeServerSet% (Host$):"TIMESERVERSET"
TimeServerGet$ (Host$):"TIMESERVERGET"
TotalRAM% ():"TOTALRAM"
WriteBankByte% (pBank%, Index%, inVal%):"WRITEBANKBYTE"
WriteBankInt% (pBank%, Index%, inVal%):"WRITEBANKINT"
WriteBankShort% (pBank%, Index%, inVal%):"WRITEBANKSHORT"

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Some Fast Math Routines

(Posted 2005-03-29)

Here are some routines I added mainly because they are optimized for speed plus they've helped me in the past in making enemy AI...

Graphics 640,480,0,2

Print Distance (0,0,10,10)
Print OriginAngle(10,10)
Print Rad2Deg (OriginAngle(10,10))
Print Deg2Rad(315)

OriginAngle...
This function will return the angle from origin 0,0 to X,Y
Useful to figure out in which direction a set of coordinates
is from another. By taking 2 sets of coordinates and normalizing them
(ie: subtract X2-X1, Y2-Y1) will let you find the angle of any coordinate (X1,Y1)
to any other coordinate. (X2,Y2)

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Hex2Dec Converter

(Posted 2005-03-29)

Pretty straight forward and very FAST!

Graphics 640,480,0,2

Print Hex2Dec ("eFFFFFFF")

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Internet Time Function #2

(Posted 2005-03-29)

This function just returns the time as a string...

Graphics 640,480,0,2

Print TimeServerGet("time-a.nist.gov")

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Internet Time Function

(Posted 2005-03-22)

Here is a function to set your time from an internet clock...

Graphics 640,480,0,2

If TimeServerSet("time-a.nist.gov") = 1 Then
	Print "Time Set"
Else
	Print "Unable to connect to server."
EndIf

While Not KeyHit(1)
	
	
Wend

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Internal Changes

(Posted 2005-03-12)

I've made some internal changes to try and address some users having trouble passing string data to certain functions. Also I have temporarily removed the FmtStr$ function until I get it working properly...

Latest Download
www.imakegames.com/B3DHLP.dll

Latest .decls

; Userlib
.lib "kernel32.dll"
GlobalSize%(hMem%)

.lib "B3DHLP.dll"
AVIBltFrameToImage% (AVIObject%, pBits%, pBBImage%, FramePtr%):"AVIBLTFRAMETOIMAGE"
AVIBltFrameToTex% (AVIObject%, pBits%, pBBTex%, FramePtr):"AVIBLTFRAMETOTEX"
AVIClose% (AVIObject%):"AVICLOSE"
AVICloseLib% ():"AVICLOSELIB"
AVIGetFrame% (AVIObject%, Pos%):"AVIGETFRAME"
AVIGetFrameRate% (AVIObject%):"AVIGETFRAMERATE"
AVIGetHeight% (AVIObject%):"AVIGETHEIGHT"
AVIGetImageSize% (AVIObject%):"AVIGETIMAGESIZE"
AVIGetTotalFrames% (AVIObject%):"AVIGETTOTALFRAMES"
AVIGetWidth% (AVIObject%):"AVIGETWIDTH"
AVIOpen% (Filename$):"AVIOPEN"
AVIOpenLib ():"AVIOPENLIB"
BankToDIB% (pBank%, width%, height%, bitcount%):"BANKTODIB"
BankToImage% (pBank%,pBBImage%,FramePtr%):"BANKTOIMAGE"
BltDIBToImage% (pDIB%, pBBImage%, FramePtr%):"BLTDIBTOIMAGE"
CheckTimer% (hTimer%):"CHECKTIMER"
DebugOut% (OutStr$):"DEBUGOUT"
Deg2Rad# (Degrees#):"DEG2RAD"
DestroyTimer% (hTimer%):"DESTROYTIMER"
DirExists% (DirName$):"DIREXISTS"
DiskSpaceFree% (Drive$):"DISKSPACEFREE"
DiskSpaceTotal% (Drive$):"DISKSPACETOTAL"
Distance# (x1#, y1#, x2#, y2#):"DISTANCE"
FileExists% (Filename$):"FILEEXISTS"
FreePointer% (pMem%):"FREEPOINTER"
FreeRAM% ():"FREERAM"
GetDIBdc% (pDIB%):"GETDIBDC"
GetDIBlpBits% (pDIB%):"GETDIBLPBITS"
Hex2Dec% (HexVal$):"HEX2DEC"
ImageToBank% (pBBImage%,FramePtr%,pBank%):"IMAGETOBANK"
ImageToDIB% (pBBImage%, FramePtr%):"IMAGETODIB"
LoadBank% (pBank%, Filename$):"LOADBANK"
MakeTimer% (IntPerSec$):"MAKETIMER"
Now$ ():"NOW"
OriginAngle# (x#,y#):"ORIGINANGLE"
Rad2Deg# (Radians#):"RAD2DEG"
ReadBankByte% (pBank%, Index%):"READBANKBYTE"
ReadBankInt% (pBank%, Index%):"READBANKINT"
ReadBankShort% (pBank%, Index%):"READBANKSHORT"
ReleaseDIB% (pDIB%):"RELEASEDIB"
ReleaseDLL% ():"RELEASEDLL"
ResetBit% (dwVal%, BitPos%):"RESETBIT"
SaveBank% (pBank%, Filename$):"SAVEBANK"
SetBit% (dwVal%, BitPos%):"SETBIT"
TestBit% (dwVal%, BitPos%):"TESTBIT"
TimeServerSet% (Host$):"TIMESERVERSET"
TimeServerGet$ (Host$):"TIMESERVERGET"
TotalRAM% ():"TOTALRAM"
WriteBankByte% (pBank%, Index%, inVal%):"WRITEBANKBYTE"
WriteBankInt% (pBank%, Index%, inVal%):"WRITEBANKINT"
WriteBankShort% (pBank%, Index%, inVal%):"WRITEBANKSHORT"

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Six New Functions

(Posted 2005-03-10)

Read and Write to Banks as if they were arrays of bytes/Shorts or Integers!...

Graphics 640,480,0,2

;Get System RAM and Free RAM
Print FreeRAM()
Print TotalRAM()

iBank=CreateBank (40)

;Read and Write from a Bank as if it were an array of Bytes/Shorts/Integers
;WriteBankByte	-> ReadBankByte
;WriteBankShort -> ReadBankShort
;WriteBankInt   -> ReadBankInt

For Counter = 0 To 9
	;Function Returns the value that was set in bank
	Print WriteBankInt (iBank,Counter,Counter)
Next

For Counter = 0 To 9
	;Function Returns the value read from bank
	Print ReadBankInt(iBank, Counter)
Next

;NOTE: Bank functions will return zero if index exceeds bank memory

While Not KeyHit(1)
	
Wend

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Play an AVI on a Cube

(Posted 2005-03-09)

The latest feature is the ability to Blt AVI frames to a Texture. With that you can play an AVI on a spinning cube!

Graphics3D 640,480, 0, 2

;Initialize AVI library
AVIOpenLib

;Open AVI and get handle to AVI object
hAVI = AVIOpen("trek.avi")

;These functions give info about AVI
w=AVIGetWidth (hAVI)
h=AVIGetHeight (hAVI)
ims=AVIGetImageSize (hAVI)
tf=AVIGetTotalFrames (hAVI)
fps=AVIGetFrameRate (hAVI)

;Max Total frames at 300 to keep memory usage low
If tf>300 Then tf=300

;Create Holder Image
im=CreateTexture(320,240,0, tf)
	
;Load All frames to bbImage
For Counter = 1 To tf
	
	;Grab Frame and get a pointer to pixels
	pBits = AVIGetFrame (hAVI,Counter)
	If AVIBltFrameToTex(hAVI,pBits,im,Counter-1)=h Then
		;Success
		FreePointer pBits
	EndIf
	
Next 

hAVI = AVIClose(hAVI)
AVICloseLib 

;*****************************
; 		  MAIN LOOP
;*****************************
;Set up Double Buffering
SetBuffer BackBuffer()	

camera=CreateCamera() 

light=CreateLight() 
RotateEntity light,90,0,0 

cube=CreateCube() 
PositionEntity cube,0,0,5 

;Initialize Loop Vars
CurFrame=0
DrawTmr = MakeTimer (fps)
 
;LoopIT
While Not KeyHit(1)
pitch#=0 
yaw#=0 
roll#=0
	
	If CheckTimer(DrawTmr)=1 Then
		CurFrame=CurFrame+1
		If CurFrame=tf Then CurFrame = 0
		
		; Texture cube with texture 
		EntityTexture cube,im,CurFrame
	
		pitch#=pitch#+1
		yaw#=yaw#+1
		roll#=roll#+1
		TurnEntity cube,pitch#,yaw#,roll# 
	End If
	
	RenderWorld
	Flip 

Wend

DestroyTimer DrawTmr
ReleaseDLL

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Tweaks and Fixes

(Posted 2005-03-09)

Tweaked the DLL to be more efficient in what/where and when DirectX objects are allocated/deallocated. Clocked AVIBltFrameToImage at 4.7ms.

Need to work on some proper Docs now.

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

New AVI Demo

(Posted 2005-03-08)

I cleaned up my demo code. This one shows how to load all the frames of a short AVI clip into a multi-frame image, then play them back at speed.

Graphics 640,480, 0, 2

;Initialize AVI library
AVIOpenLib

;Open AVI and get handle to AVI object
hAVI = AVIOpen("trek.avi")

;These functions give info about AVI
w=AVIGetWidth (hAVI)
h=AVIGetHeight (hAVI)
ims=AVIGetImageSize (hAVI)
tf=AVIGetTotalFrames (hAVI)
fps=AVIGetFrameRate (hAVI)

;Max Total frames at 300 to keep memory usage low
If tf>300 Then tf=300

;Create Holder Image
im=CreateImage(320,240, tf)
	
;Load All frames to bbImage
For Counter = 1 To tf
	
	;Grab Frame and get a pointer to pixels
	pBits = AVIGetFrame (hAVI,Counter)
	If AVIBltFrameToImage (hAVI,pBits,im,Counter-1)=h Then
		;Success
		FreePointer pBits
	EndIf
	
Next 

hAVI = AVIClose(hAVI)
AVICloseLib 

;*****************************
; 		  MAIN LOOP
;*****************************
;Set up Double Buffering
SetBuffer BackBuffer()	

;Initialize Loop Vars
CurFrame=0
DrawTmr = MakeTimer (fps)

;LoopIT
While Not KeyHit(1)

	Cls 
		
	DrawBlock  im,160,120,CurFrame
	
	If CheckTimer(DrawTmr)=1 Then
		CurFrame=CurFrame+1
		If CurFrame=tf Then CurFrame = 0
	End If
	
	Flip 1

Wend

DestroyTimer DrawTmr
ReleaseDLL

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

New AVI Functions

(Posted 2005-03-08)

I have created several new functions for reading AVI frame information and copying the frames to a BBImage. Check out the demo source here and .decls at the bottom.

Graphics 640,480,0,2

;Initialize AVI library
AVIOpenLib

;Create Holder Image
im=CreateImage(320,240)

;Open AVI and get handle to AVI object
;Substitute an AVI you have on your system
hAVI = AVIOpen("baby.avi")

;Grab 1st Frame and get a pointer to pixels
pBits = AVIGetFrame (hAVI,1)

;These functions give info about AVI
w=AVIGetWidth (hAVI)
h=AVIGetHeight (hAVI)
ims=AVIGetImageSize (hAVI)
tf=AVIGetTotalFrames (hAVI)
fps=AVIGetFrameRate (hAVI)

tmrAVI = MakeTimer(fps) 

If AVIBltFrameToImage (hAVI,pBits,im,0)=h Then
	;Success
EndIf
	
;Next Frame
nf=1
	
SetBuffer BackBuffer()	
	
While Not KeyHit(1)

	DrawImage  im,160,120,0

	If CheckTimer(tmrAVI) = 1 Then
		;Increment to next AVI frame
		nf=nf+1
		If nf>tf Then nf=1

		;Get next AVI frame
		pBits = AVIGetFrame (hAVI,nf)
	
		If AVIBltFrameToImage (hAVI,pBits,im,0)=h Then
			;Free memory pointer
			FreePointer pbits		
		EndIf

	EndIf
	
	Flip

Wend

DestroyTimer tmrAVI

hAVI = AVIClose(hAVI)

AVICloseLib

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Still More Functions

(Posted 2005-03-06)

Several new functions deal with taking info stored in a Bank or Image and creating a DIB (Device Independent Bitmap). With a DIB you can then work directly with the pixel data via a memory pointer, or Blt the data using the DIB's DC...

Graphics 640,480,0,2

im=CreateImage (320,240)

SizeNeeded = ImageToBank (im,0,0)	;Pass zero for bank to return size needed

bk = CreateBank(SizeNeeded)

hDIB = BankToDIB(bk,320,240,32)
hDIB2 = ImageToDIB(im,0)

DIBdc = GetDIBdc (hDIB)
pBits = GetDIBlpBits(hdib)

While Not KeyHit(1)

Wend

ReleaseDIB hDIB

YAAAWWWNN!! 2am. Time for some sleep.. :)

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Success Accessing DX Surface Object

(Posted 2005-03-05)

I have been successful in my attempts to access Blitz's DX7 surface object for images. I have added new functions...

ImageToBank to allow the transfer of image data from a Blitz image to a memory bank...

BankToImage does the reverse...

Graphics 640,480,0,2

im=CreateImage (320,240)

SizeNeeded = ImageToBank (im,0,0)	;Pass zero for bank to return size needed

bk = CreateBank(SizeNeeded)

If ImageToBank(im,0,bk)=1 Then
    Print "Image Data Transferred to Bank"
EndIf

If BankToImage(bk,im,0)=1 Then
    Print "Image Data Transferred from Bank"
EndIf


While Not KeyHit(1)

Wend

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

New Functions

(Posted 2005-03-05)

I have added a few new functions to B3DHLP.DLL...

DebugOut - Outputs a string to a debugger like WinDbg

Timer Functions - These functions allow you to create timed blocks of code that only execute every so many times/second
--------------------------------------------------------

CreateTimer
CheckTimer
DestroyTimer

Graphics 640,480,0,2

hTimer = MakeTimer  (5)

While Not KeyHit(1)
	
     If CheckTimer (hTimer) =1 Then
	Print "This Block Executes at 5 Times/Sec"	
     EndIf

Wend

DestroyTimer hTimer

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler

Beta Release

(Posted 2005-03-02)

I've started work on a helper DLL for Blitz3D and was wondering if anyone would be interested in trying it out and maybe making some suggestions as to added functions. I intend to release the DLL as freeware when I am done. All I would ask is that I am listed in the credits somewhere if you use it.

Download the DLL here...

http://www.imakegames.com/B3DHLP.dll

Here are the functions I've done so far...
---------------------------------------------
FmtStr$ - allows you to format a number like "#,###.00"
(This function suffers from Blitz's lack of extended precision)
DebugOut% - displays text to the debugger if one is in use (ie: WinDbg)

DiskSpaceFree - Returns free Space of HD in megabytes
DiskSpaceTotal - Returns total space of HD in megabytes

SetBit - Allows setting an individual bit of a variable
ResetBit - Allows resetting an individial bit of a variable
TestBit - Returns whether a bit is on or off in a variable

MakeTimer - Creates a timer which turns True at so many intervals/sec
CheckTimer - Checks a particular timer to see if it's interval has passed
DestroyTimer - Frees the memory used by the timer

FileExists% - Check to see if a file exists
DirExists% - Check to see if a directory exists

SaveBank - Allows you to save the entire contents of a Bank at once
LoadBank - Allows you to load an entire Bank's contents from a file.
ImageToBank - Copies the pixel data from an Image to a Bank
BankToImage - Copies the data from a bank to an Image
BankToDIB - Converts the data in a Bank to a DIB (Device Independent Bitmap)
ReleaseDIB - Free memory used by DIB
GetDIBDC% - Returns the device context of a DIB (Can be used for Blitting operations)
GetDIBlpBits% - Returns a memory pointer to the pixel data of a DIB

Here are the .decls...

; Userlib
.lib "B3DHLP.dll"
AVIBltFrameToImage% (AVIObject%, pBits%, pBBImage%, FramePtr%):"AVIBLTFRAMETOIMAGE"
AVIBltFrameToTex% (AVIObject%, pBits%, pBBTex%, FramePtr):"AVIBLTFRAMETOTEX"
AVIClose% (AVIObject%):"AVICLOSE"
AVICloseLib% ():"AVICLOSELIB"
AVIGetFrame% (AVIObject%, Pos%):"AVIGETFRAME"
AVIGetFrameRate% (AVIObject%):"AVIGETFRAMERATE"
AVIGetHeight% (AVIObject%):"AVIGETHEIGHT"
AVIGetImageSize% (AVIObject%):"AVIGETIMAGESIZE"
AVIGetTotalFrames% (AVIObject%):"AVIGETTOTALFRAMES"
AVIGetWidth% (AVIObject%):"AVIGETWIDTH"
AVIOpen% (Filename$):"AVIOPEN"
AVIOpenLib ():"AVIOPENLIB"
BankToDIB% (pBank%, width%, height%, bitcount%):"BANKTODIB"
BankToImage% (pBank%,pBBImage%,FramePtr%):"BANKTOIMAGE"
BltDIBToImage% (pDIB%, pBBImage%, FramePtr%):"BLTDIBTOIMAGE"
CheckTimer% (hTimer%):"CHECKTIMER"
DebugOut% (OutStr$):"DEBUGOUT"
DestroyTimer% (hTimer%):"DESTROYTIMER"
DirExists% (DirName$):"DIREXISTS"
DiskSpaceFree% (Drive$):"DISKSPACEFREE"
DiskSpaceTotal% (Drive$):"DISKSPACETOTAL"
FileExists% (Filename$):"FILEEXISTS"
FmtStr$ (InVal$ , pFmt$):"FMTSTR"
FreePointer% (pMem%):"FREEPOINTER"
FreeRAM% ():"FREERAM"
GetDIBdc% (pDIB%):"GETDIBDC"
GetDIBlpBits% (pDIB%):"GETDIBLPBITS"
ImageToBank% (pBBImage%,FramePtr%,pBank%):"IMAGETOBANK"
ImageToDIB% (pBBImage%, FramePtr%):"IMAGETODIB"
LoadBank% (pBank%, Filename$):"LOADBANK"
MakeTimer% (IntPerSec$):"MAKETIMER"
Now$ ():"NOW"
ReadBankByte% (pBank%, Index%):"READBANKBYTE"
ReadBankInt% (pBank%, Index%):"READBANKINT"
ReadBankShort% (pBank%, Index%):"READBANKSHORT"
ReleaseDIB% (pDIB%):"RELEASEDIB"
ReleaseDLL% ():"RELEASEDLL"
ResetBit% (dwVal%, BitPos%):"RESETBIT"
SaveBank% (pBank%, Filename$):"SAVEBANK"
SetBit% (dwVal%, BitPos%):"SETBIT"
TestBit% (dwVal%, BitPos%):"TESTBIT"
TotalRAM% ():"TOTALRAM"
WriteBankByte% (pBank%, Index%, inVal%):"WRITEBANKBYTE"
WriteBankInt% (pBank%, Index%, inVal%):"WRITEBANKINT"
WriteBankShort% (pBank%, Index%, inVal%):"WRITEBANKSHORT"

-------------------------
Apocalypse

Desktop: TRS-80 Model 3 with 48k and Cassette Recorder
Laptop: TRS-80 Model 100 with Acoustic Coupler