; SIEX.ACT››; Super-IRG example, using›; SILIB.ACT››; By Bill Kendrick›; kendrick@zippy.sonoma.edu›; http://zippy.sonoma.edu/kendrick/nbs/››; 11/27/1997››INCLUDE "SILIB.ACT"›››Byte Array Buf(3072)›Card CHSet›Card DL=560›Byte I›Byte KEY=764›››Proc CIO=$E456(Byte areg,xreg)›››Card Func Burst(Byte chan,mode,›                Card addr,buflen)›  Type IOCB=[Byte id,num,cmd,stat›             Card badr,padr,blen›             Byte a1,a2,a3,a4,a5,a6]››  IOCB Pointer iptr››  chan==&$07›  iptr=$340+(chan LSH 4)›  iptr.cmd=mode›  iptr.blen=buflen›  iptr.badr=addr›  CIO(0,chan LSH 4)›Return(iptr.blen)›››Card Func BGet(Byte chan Card addr,len)›  Card temp››  temp=Burst(chan,7,addr,len)›Return(temp)›››Proc Main()›  Graphics(0)›  For I=6 To 28 Do›    Poke(DL+I,4)›  Od››  CHSet=((Buf/1024)+1)*1024››  Close(1)›  Open(1,"D:ATARI.SIF",4,0)›  BGet(1,CHSet,2048)›  Close(1)››  PrintE("Testing Ôåóôéîç 1²3´5¶7¸")›  PrintE("Testing Ôåóôéîç 1²3´5¶7¸")››  PrintE(" |  ")›  PrintE(" | 
 
 IS C€€L!")›  PrintE(" | |  ")››  SIOn(CHSet)››  KEY=255›  Do›  Until KEY<255 Od›  KEY=255››  SIOff()›  Graphics(0)›Return››