1 ' SIOX - by Gary Weber, 14-JUN-2009
2 ' This loader creates SIOX.CO. To install this TSR,
3 ' run SIOX.CO from your main menu.  Once installed
4 ' you can switch between SIO1, SIO2, and RS-232 ports:
5 '  GRPH-1 to flip to SIO1 (you'll hear one beep)
6 '  GRPH-2 to flip to SIO2 (you'll hear two beeps)
7 '  GRPH-3 to flip to RS232 (you'll hear three beeps)
8 '  ESC-BS to unload (four beeps confirms unloading)
9 '
10 DATA 21,EA,F2,22,D2,F9,21,5F,F3,CD,62,14,0E,FF,06,FF,05,C2,E1,F2,0D,C2,DF,F2,C9,F5,C5,3A,55,FE,FE,41,CA,45,F3,DB,A0,47,3A,57,FE
20 DATA E6,04,CA,50,F3,3A,5C,FE,FE,04,CA,35,F3,FE,02,CA,23,F3,FE,01,C2,50,F3,78,E6,C0,FE,80,CA,50,F3,78,E6,3F,F6,80,0E,01,C3,53,F3
30 DATA 78,E6,C0,FE,40,CA,50,F3,78,E6,3F,F6,40,0E,02,C3,53,F3,78,E6,C0,FE,C0,CA,50,F3,78,F6,C0,0E,03,C3,53,F3,21,DB,7F,22,D2,F9,0E
40 DATA 04,C3,55,F3,C1,F1,C9,D3,90,3E,07,E7,0D,C2,57,F3,C3,50,F3,53,49,4F,58,20,6C,6F,61,64,65,64,20,2D,20,45,53,43,2D,42,53,20,74
50 DATA 6F,20,75,6E,6C,6F,61,64,0D,0A,00
60 CLEAR 256, 62161 
70 FOR X=62161 TO 62335 
80 READ H$:GOSUB 100:POKE X,H:NEXT X
90 BSAVE "SIOX.CO",62161,175,62161 :STOP
100 H=0:H1$=LEFT$(H$,1):GOSUB 120 
110 H=H*16:H1$=RIGHT$(H$,1)
120 H1=ASC(H1$):H=H+H1+32*(H1>95)+7*(H1>63)-48:RETURN