home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh3x
/
sh31.d64
/
rs232-kommunikat
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
34 lines
10 REM RS232 KOMMUNIKATIONSPROGRAMM
20 REM GESCHRIEBEN VON M. MUELLER 88
30 REM -------------------------------
40 REM (C) 1988 BY 64'ER
50 :
60 PRINT CHR$(147);"MOMENT..."
100 OPEN 2,2,0,CHR$(6)+CHR$(0)
110 DIM S(255):REM ARRAY FUER UMWANDLUNG C-64 ZEICHENSATZ ->ASCII
120 FOR I=0 TO 64: S(I)=I:NEXT:REM STEUER-, INTERPUNKTIONSZEICHEN U. ZAHLEN
130 FOR I=65 TO 90: S(I)=I+32:NEXT:REM C-64KLEINBUCHSTABEN NACH ASCII
140 FOR I=91 TO 192:S(I)=I:NEXT:REM SONNSTIGE ZEICHEN
150 FOR I=193 TO 218:S(I)=I-128:NEXT:REM C64GROSSBUCHSTABEN NACH ASCII
160 FOR I=219 TO 255:S(I)=I:NEXT:REM SONSTIGE ZEICHEN
170 S(20)=8:REM CODE FUER DEL NACH ASCII CODE FUER BS
200 :
210 DIM A(255):REM ARRAY FUER UMWANDLUNG ASCII ZEICHENSATZ->C 64
220 FOR I=0 TO 64:A(I)=I:NEXT
230 FOR I=65 TO 90:A(I)=I+128:NEXT:REM ASCII GROSSBUCHSTABEN NACH C 64
240 FOR I=91 TO 96:A(I)=I:NEXT:REM WIE ZEILE 140
250 FOR I=97 TO 122:A(I)=I-32:NEXT:REM ASCII KLEINBUCHSTABEN ->C 64CLOSE
260 FOR I=123 TO 255:A(I)=I:NEXT
270 A(8)=20:REM ASCII CODE FUER BS NACH C 64 CODE FUER DEL
280 :
290 PRINT CHR$(147);:GOSUB 900
300 :
310 GET A$:IF A$="" THEN 400
320 PRINT#2,CHR$(S(ASC(A$)));:PRINT A$;:GOSUB 900
330 IF A$=CHR$(13) THEN PRINT#2,CHR$(10);:REM WENN CR, DANN NOCH LF SENDEN
340 GOTO 310
400 GET#2,A$:IF A$="" THEN 310
410 PRINT CHR$(A(ASC(A$)));:GOSUB 900:GOTO 400
900 POKE 212,0:REM ANFUEHRUNGSZEICHENMODUS AUS
910 RETURN