| |
F6CTW > CASIO 10.08.95 09:54l 227 Lines 7214 Bytes #-10809 (0) @ WW
BID : 62189_F6KBF
Read: DG5CH DF5CH DG2MJW DG3MKB DJ3TF OK1XHC GUEST
Subj: CASIO DIARIES: DATA COMMUNICATIONS TO PC
Path: DB0AAB<DB0MWS<DB0RBS<DB0AIS<DB0GV<DB0GE<F6KVE<F6KIF<F6ABJ<F6PTT<
F6KBF
Sent: 950809/2020Z @:F6KBF.FRPA.FRA.EU #:62189 [M-Laffitte] FBB5.15c $:62189_F6
From: F6CTW@F6KBF.FRPA.FRA.EU
To : CASIO@WW
73's and thank you for reading this message,
I have written a programm in QBASIC, which is delivered with MS-DOS 5.0,
that could be useful to CASIO digital diaries owners (SF series: SF-7000,
SF-7500, SF-7600SP, SF-8000, SF-8300, SF-8350, SF-9000, SF-9300, SF-9000,
SF-9500, SF-9600 and SF-9700).
It allows you to perform data communication between your SF unit and your
Personal Computer: storing the SF unit's memory into the PC and then
loading it again into the SF unit.
It uses a transistor-based interface described by ON1LPG, built in
the DB-25 or even DB-9 serial connector case.
Both the programm listing the and shematic diagramm are following.
In case of difficulties or if you enjoyed it, please let me know.
73's de Rene F6CTW@F6KBF.FRPA.FRA.EU
----------------------------------------------------------------------------
D
D B
B 2
9 5 MICRO JACK
STEREO
2.5 MM
2 RXD 3 oÄÄÄÂÄÄÄÄÄÄ¿ Ú¿
ÚÁ¿ ÀÄÄÄ´³ ÚÄÄÄÄÄÄ¿ ÚÄ¿
4.7K³ ³ BC547³ÃÄÄ´ 56K ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³
ÀÂÙ ÚÄ<Ä´³ ÀÄÄÄÄÄÄÙ ÃÄ´
6 DSR 6 oÄÄÄ´ ³ ÀÙ ÚÄÄÄÄÄÄÄÄÄÄÄÄ´ ³
³ ³ ÚÄÄÄÄÄÄ¿ ³ ÃÄ´
1 DCD 8 oÄÄÄÅÄÄÄÄÄÄÄÄ´ 2.2K ÃÄÄÂÄÄÄÄÄÂÄÄÄÄÙ ÚÄÄÄÄÄÄÄ´ ³
³ ³ ÀÄÄÄÄÄÄÙ ³ ³ ³ ³ ³
4 DTR 20 oÄÄÄÙ ³ Ú¿ ³ ÚÁ¿ ³ ÚÄÁÄÁÄ¿
ÚÄÄÄÄÄÄ¿ ³ ³ÃÄÄÄÙ ÃÄ´ ZENER ³ ³ ³
3 TXD 2 oÄ´ 4.7K ÃÄÄÄÄÄÄÄÄ´³BC547 ³ ³ 4.7V ³ ³ ³
ÀÄÄÄÄÄÄÙ ³ ³ÃÄ>Ä¿ ÀÂÙ ³ ³ ³
³ ÀÙ ³ ³ ³ ³ ³
5 GND 7 oÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÙ ÀÄÄÄÄÄÙ
----------------------------------------------------------------------------
'THIS PROGRAMM IS SUITABLE FOR THE CASIO SF UNITS:
'SF-7000, SF-7500, SF-7600SP, SF-8000, SF-8300, SF-8350, SF-9000, SF-9300,
'SF-9500, SF-9600 OR SF-9700.
' SET com1: or com2: AT LINES 63 AND 130 DEPENDING ON YOUR PC CONFIGURATION.
CLS
MENU:
PRINT "******************************************************************************"
PRINT "* CASIOCOM: DATA COMMUNICATIONS BETWEEN SF UNIT CASIO AND PERSONAL COMPUTER *"
PRINT "* WRITTEN BY RENE CAMUS, F6CTW, ON 95/07/27 *"
PRINT "******************************************************************************"
PRINT
PRINT "FIRST CHECK AND IF NECESSARY SET THE HARDWARE PARAMETERS ON THE SF UNIT:"
PRINT
PRINT "PRESS: <TEL>, <BUSINESS CARD>, <MEMO> OR <SCHEDULE>."
PRINT
PRINT "PRESS: <FUNCTION>,"
PRINT " <4> (DATA COMMUNICATION),"
PRINT " <4> (HARDWARE PARAMETERS),"
PRINT " BY MEANS OF ARROW KEYS:"
PRINT " PARITY EVEN ODD <NONE>"
PRINT " BIT LENGTH 7bits <8bits>"
PRINT " BPS 1200 <2400> 4800 9600"
PRINT " <SET>."
PRINT
PRINT "THEN SELECT A FUNCTION:"
PRINT
PRINT "<S>TORE THE CASIO (CASIO TO PC),"
PRINT "<L>OAD THE CASIO (PC TO CASIO),"
PRINT "<E>ND."
DO
FONC$ = INKEY$
IF UCASE$(FONC$) = "L" THEN GOTO EMIS
IF UCASE$(FONC$) = "S" THEN GOTO RECE
IF UCASE$(FONC$) = "E" THEN END
LOOP
EMIS:
CLS
PRINT " *********************************************"
PRINT " * LOADING THE CASIO (PC TO CASIO) *"
PRINT " *********************************************"
PRINT
PRINT
PRINT "THE OPEN AND THE SECRET MEMORY AREAS OF THE SF UNIT ARE SEPARATELY PERFORMED:"
PRINT "TWO SEPARATE FILES, TWO LOADINGS TO PERFORM."
PRINT
PRINT " ---> CHECK WHICH MEMORY AREA THE SF UNIT IS SET IN,"
PRINT
PRINT " ---> CHECK THE NAME OF THE FILE TO LOAD."
PRINT
PRINT
PRINT "ON THE SF UNIT, PRESS <TEL>, <BUSINESS CARD>, <MEMO> OR <SCHEDULE>."
PRINT "THEN PRESS:"
PRINT
PRINT " <FUNCTION>,"
PRINT " <4> (DATA COMMUNICATION),"
PRINT " <2> (RECEIVE)."
PRINT
INPUT "ON THE PC, ENTER THE FILE NAME: ", FICH$
PRINT
PRINT "TYPE <ESCAPE> ON THE PC TO STOP THE TRANSMISSION."
PRINT
OPEN "com1:2400,n,8,1,cs0" FOR RANDOM AS #1
OPEN FICH$ FOR INPUT AS #2
DO
KEY$ = INKEY$
IF KEY$ = CHR$(27) THEN PRINT #1, CHR$(33); : EXIT DO
EM$ = INPUT$(1, #2)
COLOR 14: PRINT EM$;
PRINT #1, EM$;
A$ = B$: B$ = C$: C$ = D$: D$ = E$: E$ = F$: F$ = G$: G$ = H$: H$ = I$
I$ = J$: J$ = K$: K$ = L$: L$ = M$: M$ = N$: N$ = O$: O$ = EM$
P$ = A$ + B$ + C$ + D$ + E$ + F$ + G$ + H$ + I$ + J$ + K$ + L$ + M$ + N$ + O$
IF RIGHT$(P$, 2) = CHR$(13) + CHR$(10) THEN GOSUB ACK
IF LEFT$(P$, 9) = ":02000002" THEN GOSUB ACK
IF RIGHT$(P$, 11) = ":00000001FF" THEN GOSUB ACK
IF RIGHT$(P$, 11) = ":008000017F" THEN GOSUB ACK
IF RIGHT$(P$, 11) = ":000000FF01" THEN EXIT DO
IF REC$ = CHR$(33) THEN EXIT DO
LOOP
CLOSE
PRINT
PRINT
COLOR 15
IF KEY$ = CHR$(27) THEN PRINT "STOPPED!"
IF REC$ = CHR$(33) THEN PRINT "STOPPED!"
IF RIGHT$(P$, 11) = ":000000FF01" THEN PRINT "LOADING OF "; FICH$; " COMPLETED!"
PRINT
PRINT "PRESS A KEY"
DO
IF INKEY$ <> "" THEN EXIT DO
LOOP
GOTO MENU
ACK:
IF LOC(1) THEN
REC$ = INPUT$(1, #1)
IF REC$ = CHR$(17) THEN RETURN
IF REC$ = CHR$(33) THEN RETURN
IF REC$ = CHR$(35) THEN RETURN
END IF
GOTO ACK
RETURN
RECE:
CLS
PRINT " *********************************************"
PRINT " * STORING THE CASIO (CASIO TO PC) *"
PRINT " *********************************************"
PRINT
PRINT
PRINT "THE OPEN AND THE SECRET MEMORY AREAS OF THE SF UNIT ARE SEPARATELY PERFORMED:"
PRINT "TWO SEPARATE FILES, TWO STORAGES TO PERFORM."
PRINT
PRINT " ---> CHECK WHICH MEMORY AREA THE SF UNIT IS SET IN,"
PRINT
PRINT " ---> CHECK THE NAME OF THE FILE TO STORE IN.";
PRINT
PRINT
INPUT "ON THE PC, ENTER THE FILE NAME: ", FICH$
PRINT
PRINT "ON THE SF UNIT, PRESS <TEL>, <BUSINESS CARD>, <MEMO> OR <SCHEDULE>."
PRINT "THEN PRESS:"
PRINT
PRINT " <FUNCTION>,"
PRINT " <4> (DATA COMMUNICATION),"
PRINT " <1> (SEND),"
PRINT " <3> (ALL DATA ITEMS),"
PRINT " <SET>."
OPEN "com1:2400,n,8,1,op60000,cs0" FOR RANDOM AS #1
OPEN FICH$ FOR OUTPUT AS #2
PRINT
PRINT "TYPE <ESCAPE> ON THE PC TO STOP THE TRANSMISSION."
PRINT
DO
KEY$ = INKEY$
IF KEY$ = CHR$(27) THEN PRINT #1, CHR$(33); : EXIT DO
IF LOC(1) THEN
REC$ = INPUT$(1, #1)
COLOR 2: PRINT REC$;
IF REC$ = CHR$(33) THEN PRINT #1, CHR$(35); : EXIT DO
PRINT #2, REC$;
A$ = B$: B$ = C$: C$ = D$: D$ = E$: E$ = F$: F$ = G$: G$ = H$: H$ = I$
I$ = J$: J$ = K$: K$ = REC$
L$ = A$ + B$ + C$ + D$ + E$ + F$ + G$ + H$ + I$ + J$ + K$
IF RIGHT$(L$, 2) = CHR$(13) + CHR$(10) THEN PRINT #1, CHR$(17);
IF L$ = ":00000001FF" THEN PRINT #1, CHR$(35);
IF L$ = ":008000017F" THEN PRINT #1, CHR$(35);
IF L$ = ":000000FF01" THEN EXIT DO
END IF
LOOP
CLOSE
PRINT
PRINT
COLOR 15
IF KEY$ = CHR$(27) THEN PRINT "STOPPED!"
IF REC$ = CHR$(33) THEN PRINT "STOPPED!"
IF L$ = ":000000FF01" THEN PRINT "STORAGE TOWARDS "; FICH$; " COMPLETED!"
PRINT
PRINT "PRESS A KEY"
DO
IF INKEY$ <> "" THEN EXIT DO
LOOP
GOTO MENU
Read previous mail | Read next mail
| |
