home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh26a.d64 / miniterm (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  48 lines
  1. 10 REM ********************************
  2. 20 REM *     MINITERM                 *
  3. 30 REM *                              *
  4. 40 REM *     EIN PROGRAMM ZUM         *
  5. 50 REM *     AUSPROBIEREN VON         *
  6. 60 REM *         MAILBOXEN            *
  7. 70 REM *                              *
  8. 80 REM ********************************
  9. 85 :
  10. 90 REM EINGABE DER PARAMETER
  11. 95 :
  12. 100 INPUT"DATENBITS (8/7) 8[157][157][157][157] ";DB
  13. 110 INPUT"PARITY (N/E/O) N[157][157][157][157] ";PA$
  14. 120 INPUT"STOP-BITS (1/2) 1[157][157][157][157] "; SB
  15. 125 :
  16. 130 REM PARAMETER SETZEN
  17. 135 :
  18. 140 SR=6+(SB-1)*2^7+ABS(DB-8)*2^5
  19. 150 BR=ABS(PA$<>"N")*2^5+ABS(PA$<>"O"ANDPA$<>"N")*2^6
  20. 155 :
  21. 160 REM KANAL OEFFNEN
  22. 165 :
  23. 170 OPEN 2,2,3,CHR$(SR)+CHR$(BR)
  24. 175 GOSUB 1000
  25. 180 GET#2,A$:PRINT"[147]ONLINE ..."
  26. 485 :
  27. 490 REM SENDEN UND EMPFANGEN DER DATEN
  28. 495 :
  29. 500 GET B$:IFB$<>""THEN PRINT#2,CHR$(T%(ASC(B$+CHR$(0))));
  30. 510 GET#2,C$
  31. 520 PRINT CHR$(F%(ASC(C$+CHR$(0))));
  32. 530 GOTO 500
  33. 985 :
  34. 990 : REM STANDARD-ASCII HERSTELLEN
  35. 995 :
  36. 1000 DIM F%(255),T%(255)
  37. 1010 FORJ=32TO64:T%(J)=J:NEXT
  38. 1020 T%(13)=13:T%(20)=8
  39. 1030 FORJ=65TO90:K=J+32:T%(J)=K:NEXT
  40. 1040 FORJ=91TO95:T%(J)=J:NEXT
  41. 1050 FORJ=193TO218:K=J-128:T%(J)=K:NEXT
  42. 1055 T%(24)=24:T%(19)=19:T%(3)=3
  43. 1060 T%(17)=17:T%(146)=16:T%(133)=16
  44. 1070 FORJ=0TO255:K=T%(J)
  45. 1080 IFK<>0THEN F%(K)=J:F%(K+128)=J
  46. 1090 NEXT
  47. 1110 RETURN
  48.