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