| |
DL3VIC > CASIO 05.12.95 22:20l 172 Lines 5810 Bytes #-10691 (0) @ DL
BID : 05C509DB0BOX
Read: DF5CH DG1MLK DG2MJW DG3MKB DJ3TF DK9KG DG8RCN DL3MFO GUEST DD3IA
Subj: CASIO <-> PC
Path: DB0AAB<DB0PV<DB0MAK<DB0HOT<DB0LPZ<DB0BOX
Sent: 951205/1944z @:DB0BOX.#BAY.DEU.EU [Nuernberg JN59NJ OP:DC3YC] $:05C509DB0
de DL3VIC @ DB0BOX.#BAY.DEU.EU (Chris)
to CASIO @ DL
Hard- und Software fuer (fast) alle CASIO-Datenbanken.....
DB DB
9 25 Klinkenstecker
STEREO / 2.5mm
2 3 RXD )ÄÄÄÂÄÄÄÄÄÄ¿ Ú¿
ÚÁ¿ ÀÄÄÄ´³ ÚÄÄÄÄÄÄ¿ ÚÄ¿
³ ³4k7 BC547³ÃÄÄÄÄÄÄ´ 56k ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³
ÀÂÙ ÚÄ<Ä´³ ÀÄÄÄÄÄÄÙ ÃÄ´
6 6 DSR )ÄÄÄ´ ³ ÀÙ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³
³ ³ ÚÄÄÄÄÄÄ¿ ³ ÃÄ´
1 8 DCD )ÄÄÄÅÄÄÄÄÄÄÄÄ´ 2k2 ÃÄÄÄÂÄÄÄÄÄÂÄÄÄÄÙ ÚÄÄÄÄÄÄÄ´ ³
³ ³ ÀÄÄÄÄÄÄÙ ³ ³ ³ ³ ³
4 20 DTR )ÄÄÄÙ ³ Ú¿ ³ ÚÁ¿ ³ ÚÄÁÄÁÄ¿
ÚÄÄÄÄÄÄ¿ ³ ³ÃÄÄÄÄÙ ÃÄ´ Z-Diode ³ ³ ³
3 2 TXD )Ä´ 4k7 ÃÄÄÄÄÄÄÄÄ´³BC547 ³ ³ 4V7 ³ ³ ³
ÀÄÄÄÄÄÄÙ ³ ³ÃÄ>ÄÄ¿ ÀÂÙ ³ ³ ³
³ ÀÙ ³ ³ ³ ³ ³
5 7 GND )ÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÙ ÀÄÄÄÄÄÙ
'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.
'SF-4600 tested by DL3VIC
' 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 "CASIO: Prüfen der COMM-Parameter 2400,8N1!"
PRINT
PRINT "CASIO: Auswahl von [TEL], [CALENDAR], [MEMO] oder [SCHEDULE]."
PRINT
PRINT " Funktion wählen: <S>ichern CASIO -> PC"
PRINT " <L>aden PC -> CASIO"
PRINT " <E>nde"
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 " * Daten in den CASIO laden (PC -> CASIO) *"
PRINT " *********************************************"
PRINT
PRINT "Der öffentliche und der geschützte Speicherbereich des CASIO werden"
PRINT "getrennt beschrieben, d.h. zwei Dateien und zwei Ladevorgänge."
PRINT
PRINT "! Prüfen...welcher Bereich am CASIO gewählt ist.
PRINT "! Prüfen...der zu ladenden Datei."
PRINT
PRINT "CASIO: Auswahl von [TEL], [CALENDAR], [MEMO] oder [SCHEDULE]."
PRINT " <FUNC>"
PRINT " <4> (DATA COMM)"
PRINT " <2> (RECEIVE)"
PRINT
INPUT "PC: Eingabe des Dateinamens ", FICH$
PRINT
PRINT "Mit <ESC> am PC wird die Übertragung beendet."
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 "Angehalten!"
IF REC$ = CHR$(33) THEN PRINT "Angehalten!"
IF RIGHT$(P$, 11) = ":000000FF01" THEN PRINT "Laden von "; FICH$; " beendet."
PRINT
PRINT "Mit Taste weiter..."
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 " * Daten vom CASIOI sichern (CASIO -> PC) *"
PRINT " *********************************************"
PRINT
PRINT "Der öffentliche und der geschützte Speicherbereich des CASIO werden"
PRINT "getrennt gelesen, d.h. zwei Dateien und zwei Sicherungsvorgänge."
PRINT
PRINT "! Prüfen...welcher Bereich am CASIO gewählt ist.
PRINT "! Prüfen...der zu sichernden Datei."
PRINT
INPUT "PC: Eingabe des Dateinamens ", FICH$
PRINT
PRINT "CASIO: Auswahl von [TEL], [CALENDAR], [MEMO] oder [SCHEDULE]."
PRINT " <FUNC>"
PRINT " <4> (DATA COMM)"
PRINT " <1> (SEND)"
PRINT " <3> (ALL DATA)"
PRINT " <SET>"
OPEN "com1:2400,n,8,1,op60000,cs0" FOR RANDOM AS #1
OPEN FICH$ FOR OUTPUT AS #2
PRINT
PRINT "Mit <ESC> am PC wird die Übertragung beendet."
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 "Angehalten!"
IF REC$ = CHR$(33) THEN PRINT "Angehalten!"
IF L$ = ":000000FF01" THEN PRINT "Sicherung in "; FICH$; " beendet!"
PRINT
PRINT "Mit Taste weiter..."
DO
IF INKEY$ <> "" THEN EXIT DO
LOOP
GOTO MENU
Read previous mail | Read next mail
| |
