MY PROGRAMS
Wiz2Wiz_v1.2
PROGRAM
BIN_PROG_1
PFILE:BROS2HOD.BAS
=
E
=
E
=
d*INIT
n 0A$(0)*255
} A$(0)=""
!"COM:L,&H1A"s#1
*MM:P:*0
i(80,52)-(230,52)
i(80,52)-(85,47)
i(80,56)-(230,56)
i(230,56)-(225,61)
i(225,61)-(225,56)
i(85,47)-(85,52)
Q89,4:`"Wizard"
Q195,6:`"Wizard"
Q103,0:`"Wiz2Wiz"
i(0,12)-(238,12)
i(0,14)-(238,14)
i(0,0)-(238,10),X,BF
$Q133,2:`"(c) Matthew Brown, 2001"
"Q135,3:`"mat-brown@lineone.net"
i(131,18)-(234,42),B
i(129,16)-(236,44),B
Q0,2:`" 1. Write"
`" 2. Send"
`" 3. Recieve"
`" 4. Read"
i(2,20)-(50,62),B
i(0,18)-(52,64),B
i(0,16)-(127,16)
B$=(1)
V(B$)=49T+*WTE
V(B$)=50T+x*SD
V(B$)=51T+[*RVE
V(B$)=52T+P*VIEW
V(B$)=27TZ
+ :*MM
,*WTE:P
-Q105,0:`"Write..."
.`
/i(0,0)-(238,10),X,BF
0i(0,12)-(238,12)
2i(0,14)-(238,14)
aA$(0)
+ :*MM
*SD
P
Q106,0:`"Send..."
i(0,0)-(238,10),X,BF
i(0,12)-(238,12)
i(0,14)-(238,14)
`
8`"Make sure that the other person is set to 'Recieve'"
4`"Press any key to begin sending. [ESC] to cancel"
SD$=(1)
V(SD$)=27T+ :*MM
*2
`"Sending."
Q0,4:`"Sending .."
Q0,4:`"Sending ..."
Q0,4:`"Sending ...."
Q0,4:`"Sending ....."
Q0,4:`"Sending ......"
Q0,4:`"Sending ......."
`#1,A$(0)
`"Sent!"
& + :*MM
*RVE:P
Q99,0:`"Recieve..."
i(0,0)-(238,10),X,BF
i(0,12)-(238,12)
i(0,14)-(238,14)
`
6`"Press any key to begin recieving. [ESC] to cancel"
RE$=(1)
V(RE$)=27T+ :*MM
*2
`"Receiving Message ."
a#1,A$(0)
Q0,3:`"Recieving Message .."
Q0,3:`"Recieving Message ..."
!Q0,3:`"Recieving Message ...."
"Q0,3:`"Recieving Message ....."
#Q0,3:`"Recieving Message ......"
$Q0,3:`"Recieving Message ......."
`"Recieved!"
+ :*MM
*VIEW:P
Q106,0:`"Read..."
i(0,0)-(238,10),X,BF
i(0,12)-(238,12)
i(0,14)-(238,14)
`
`A$(0)
R$=(1)
+ :*MM
u1Z