| |
DL1MDY > CASIO 06.07.98 00:28l 78 Lines 2189 Bytes #999 (999) @ ALLE
BID : 578DB0ZKA01I
Read: DG1HUA DG2NBN GUEST
Subj: TRDOSPC.PRG
Path: DB0MAK<DB0ERF<DB0MW<DB0AIS<DB0ZDF<DB0GV<DB0CZ<DB0KFB<DB0ZKA
Sent: 980705/2127z @:DB0ZKA.#BAY.DEU.EU [Augsburg JN58ki] BCM1.39tb
From: DL1MDY @ DB0ZKA.#BAY.DEU.EU (Pius)
To: CASIO @ ALLE
X-Info: No login password
X-BID: 578DB0ZKA01I
10 REM Kommunikation PB1000 - PC/XT unter GW - Q / BASIC
20 CLS : CLEAR
30 ON ERROR GOTO 540
40 PRINT "********************* PB 1000 <--> PC Kommunikation ******************"
50 PRINT : PRINT " WICHTIG : Aufruf von DOS --> 'qbasic/c:1000'"
60 PRINT : PRINT " Folgende Parameter-Einstellung im PB 1000 ist notwendig : 7,N,8,1,N,N,N,B,N "
70 PRINT " Empf{nger mu~ kurz vor Sender gestartet werden ! "
80 PRINT : PRINT
90 PRINT TAB(20); " 1: Senden "
100 PRINT TAB(20); " 2: Empfang "
110 PRINT TAB(20); " 3: Directory "
120 PRINT TAB(20); " 4: Ende "
130 PRINT : PRINT
140 PRINT TAB(20); " "; : INPUT " entsprechende Nummer eingeben :", A
150 ON A GOTO 190, 370, 610, 170
160 GOTO 140
170 CLS
180 END
190 'Senden
200 PRINT : PRINT : PRINT
210 PRINT " "; : INPUT " Datei-Name :", SQ$
220 OPEN SQ$ FOR INPUT AS #2
230 CLS
240 OPEN "com1:9600,N,8,1,DS0,CD0,ASC" FOR OUTPUT AS #1
250 PRINT : PRINT : PRINT
260 PRINT TAB(21); " Taste -> Sende - Start !"
270 IF INKEY$ = "" THEN 270
280 CLS : BEEP
290 LINE INPUT #2, A$
300 PRINT #1, A$
310 PRINT A$
320 IF EOF(2) = 0 THEN 270
330 A$ = CHR$(13)
340 PRINT #1, A$
350 CLOSE
360 GOTO 20
370 'Empfang
380 PRINT : PRINT : PRINT
390 PRINT " "; : INPUT " Datei - Name :", SQ$
400 CLS
410 OPEN SQ$ FOR OUTPUT AS #1
420 PRINT : PRINT : PRINT
430 PRINT TAB(21); " Taste -> Empfang - Start !"
440 IF INKEY$ = "" THEN 440
450 CLS : BEEP
460 OPEN "com1:9600,N,8,1,DS0,CD0,ASC" FOR INPUT AS #2
470 LINE INPUT #2, A$
480 IF LEN(A$) = 2 THEN 520
490 PRINT #1, A$
500 PRINT A$
510 GOTO 470
520 CLOSE : PRINT
530 GOTO 20
540 'Error
550 CLS : BEEP
560 PRINT TAB(33); "F E H L E R !": PRINT : PRINT
570 PRINT TAB(28); "ERROR "; ERR; "in Zeile "; ERL
580 IF ERR = 53 THEN PRINT : PRINT : PRINT : PRINT TAB(25); " Datei nicht gespeichert !"
590 IF INKEY$ = "" THEN 590
600 GOTO 20
610 ' Inhalt
620 CLS
630 PRINT : PRINT
640 PRINT TAB(23); " Inhalt des Standartlaufwerks :"
650 PRINT : PRINT : PRINT
660 FILES
670 IF INKEY$ = "" THEN 670 ELSE 20
Read previous mail | Read next mail
| |
