home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 26
/
64er_Magazin_Sonderheft_26_19xx_Markt__Technik_de_Side_A.d64
/
miniterm
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
48 lines
10 rem ********************************
20 rem * miniterm *
30 rem * *
40 rem * ein programm zum *
50 rem * ausprobieren von *
60 rem * mailboxen *
70 rem * *
80 rem ********************************
85 :
90 rem eingabe der parameter
95 :
100 input"datenbits (8/7) 8[157][157][157][157] ";db
110 input"parity (n/e/o) n[157][157][157][157] ";pa$
120 input"stop-bits (1/2) 1[157][157][157][157] "; sb
125 :
130 rem parameter setzen
135 :
140 sr=6+(sb-1)*2^7+abs(db-8)*2^5
150 br=abs(pa$<>"n")*2^5+abs(pa$<>"o"andpa$<>"n")*2^6
155 :
160 rem kanal oeffnen
165 :
170 open 2,2,3,chr$(sr)+chr$(br)
175 gosub 1000
180 get#2,a$:print"[147]online ..."
485 :
490 rem senden und empfangen der daten
495 :
500 get b$:ifb$<>""then print#2,chr$(t%(asc(b$+chr$(0))));
510 get#2,c$
520 print chr$(f%(asc(c$+chr$(0))));
530 goto 500
985 :
990 : rem standard-ascii herstellen
995 :
1000 dim f%(255),t%(255)
1010 forj=32to64:t%(j)=j:next
1020 t%(13)=13:t%(20)=8
1030 forj=65to90:k=j+32:t%(j)=k:next
1040 forj=91to95:t%(j)=j:next
1050 forj=193to218:k=j-128:t%(j)=k:next
1055 t%(24)=24:t%(19)=19:t%(3)=3
1060 t%(17)=17:t%(146)=16:t%(133)=16
1070 forj=0to255:k=t%(j)
1080 ifk<>0then f%(k)=j:f%(k+128)=j
1090 next
1110 return