200 GOSUB 10098



300 COLOR 4
310 LOCATE 2, 35
320 PRINT "ML-Modem"
330 COLOR 7
340 LOCATE 3, 30
350 PRINT "VERBINDUNGSMODUS:"
360 LOCATE 5, 20
370 PRINT "Verbindungsaufbau Start    (1)"
380 LOCATE 6, 20
390 PRINT "Optionen                   (2)"
400 LOCATE 7, 20
410 PRINT "Ende                       (3)"
420 LOCATE 9, 20
425 COLOR 17
430 PRINT "Bitte eine Option w„hlen!"
435 COLOR 7
450 'LOCATE 22, 3
460 'PRINT "Inputzeile"
470 wahl$ = INKEY$
480 IF wahl$ = "" THEN 470

490 IF wahl$ = "1" THEN GOSUB verbinden
'500 IF wahl$ = "2" THEN GOSUB optionen

511 IF wahl$ = "3" THEN END
520 GOTO 470







600 verbinden:
610 CLS
620 GOSUB 10098
630 LOCATE 2, 3
640 COLOR 2
650 PRINT "VERBINDEN"
651 zeile = 9
660 LOCATE zeile, 3
661 GOSUB zeile
670 COLOR 7
680 PRINT "Bitte lokalen Host-namen eingeben"
690 LOCATE 22, 3
700 INPUT "lokal\name>", name$
701 LOCATE 22, 3
702 PRINT "                                                        "
704 LOCATE zeile, 3
705 PRINT "Bitte eingeben master oder slave 1 oder 2"
706 LOCATE 22, 3
707 INPUT "lokal\m-s>", ein$
708 IF ein$ = "1" THEN mode = 1
709 IF ein$ <> "1" THEN mode = 2
710 GOSUB zeile
711 LOCATE zeile, 3
712 GOSUB zeile
720 PRINT "Verbinden von "; name$; " mit remote host als "; : IF mode = 1 THEN PRINT "master" ELSE PRINT "slave"
730 LOCATE 3, 3
740 PRINT name$
750 LOCATE 4, 3
751 PRINT "mode: "; mode
753 GOSUB einzeile
                   
760 OPEN "COM1:300,N,8,1,CD0,CS0,DS0,OP0,RS,TB2048,RB2048" FOR RANDOM AS #1
770 IF mode = 1 THEN GOSUB conmaster ELSE GOSUB conslave
780 LOCATE zeile, 3
790 PRINT "Verbindung ende "; warum$
791 DO
792 LOOP WHILE INKEY$ = ""

800 RUN





1000 conmaster:
1010 SLEEP 2
1020 PRINT #1, "HI"
1021 LOCATE zeile, 3
1022 PRINT name$; ">HI"
1023 GOSUB zeile
1030 INPUT #1, meldung$
1031 LOCATE zeile, 3
1032 PRINT "slave>"; meldung$
1033 GOSUB zeile
1040 IF meldung$ <> "HI" THEN warum$ = "Fehler beim Verbindungsaufbau!": RETURN
1050 PRINT #1, name$
1051 LOCATE zeile, 3
1052 GOSUB zeile
1053 PRINT name$; ">"; name$
1060 INPUT #1, remname$
1061 LOCATE zeile, 3
1062 PRINT "slave>"; remname$
1070 LOCATE zeile, 3: PRINT "Verbunden mit "; remname$; "."
1071 GOSUB zeile
1078 LOCATE 22, 3
1079 PRINT "                                                "
1080 LOCATE 22, 3
1090 PRINT name$; ">";
1100 INPUT "", senden$
1101 IF senden$ = "# end" THEN GOTO mende:
1110 LOCATE zeile, 3
1120 PRINT name$; ">"; senden$
1121 PRINT #1, senden$
1130 GOSUB zeile
1140 INPUT #1, meldung$
1150 LOCATE zeile, 3
1160 PRINT remname$; ">"; meldung$
1170 GOSUB zeile
1171 IF meldung$ = "DISCON" THEN GOTO discon
1180 GOTO 1078

         
RETURN

3000 conslave:
3010 INPUT #1, meldung$
3011 LOCATE zeile, 3
3012 PRINT "master>"; meldung$
3013 GOSUB zeile
3020 IF meldung$ <> "HI" THEN warum$ = "Fehler beim Verbindungsaufbau!": RETURN
3021 SLEEP 1
3030 PRINT #1, "HI"
3031 LOCATE zeile, 3
3032 PRINT name$; ">HI"
3033 GOSUB zeile
3040 INPUT #1, remname$
3041 LOCATE zeile, 3
3042 PRINT "master>"; remname$
3043 GOSUB zeile
3050 SLEEP 1
3060 PRINT #1, name$
3061 LOCATE zeile, 3
3062 PRINT name$; ">"; name$
3063 GOSUB zeile
3070 LOCATE zeile, 3: PRINT "Verbunden mit "; remname$; "."
3080 GOSUB zeile
3090 INPUT #1, meldung$
3100 LOCATE zeile, 3
3110 PRINT remname$; ">"; meldung$
3120 GOSUB zeile
3121 IF meldung$ = "DISCON" THEN GOTO discon
3122 LOCATE 22, 3
3129 PRINT "                                           "
3130 LOCATE 22, 3
3140 PRINT name$; ">";
3150 INPUT "", senden$
3160 LOCATE zeile, 3
3170 PRINT name$; ">"; senden$
3180 GOSUB zeile
3190 IF senden$ = "# end" THEN GOTO mende
3200 PRINT #1, senden$;

GOTO 3090


RETURN


5000 mende:
5010 LOCATE zeile, 3
5020 PRINT name$; ">DISCON"
5030 GOSUB zeile
5040 PRINT #1, "DISCON"
5050 INPUT #1, meldung$
5051 LOCATE zeile, 3
5052 GOSUB zeile
5053 PRINT remname$; ">"; meldung$
5060 IF meldung$ <> "OK" THEN warum$ = "Fehler beim trennen der VB.": RETURN
5070 warum$ = "Erfolgreich getrennt!"
5071 BEEP
5080 RETURN

6000 discon:
6010 LOCATE zeile, 3
6020 PRINT name$; ">OK"
6030 PRINT #1, "OK"
6040 warum$ = "Erfolgreich getrennt auf Wu. von " + remname$
6041 BEEP
6050 RETURN

10098 REM Sub Rahmen ### Baut Rahmen auf ###################################
10099 CLS
10100 PRINT CHR$(201);
10110  FOR rahmenwaage = 1 TO 78
10120    PRINT CHR$(205);
10130  NEXT rahmenwaage
10140 PRINT CHR$(187)
10150  FOR nachuntEN = 1 TO 21
10160    PRINT CHR$(186);
10170     FOR leer = 1 TO 78
10180      PRINT CHR$(32);
10190     NEXT leer
10200     PRINT CHR$(186)
10210  NEXT nachuntEN
10220 PRINT CHR$(200);
10230  FOR Rahmenwaageunten = 1 TO 78
10240    PRINT CHR$(205);
10250  NEXT Rahmenwaageunten
10260 PRINT CHR$(188)
10269 LOCATE 21, 1
10270 PRINT CHR$(204);
10280  FOR waage = 1 TO 78
10290  PRINT CHR$(205);
10300  NEXT waage
10310 PRINT CHR$(185)
10320 LOCATE 1, 18
10330 PRINT CHR$(203)
10340 FOR rn = 2 TO 6
10350 LOCATE rn, 18
10360 PRINT CHR$(186)
10370 NEXT rn
10380 LOCATE 7, 18
10390 PRINT CHR$(188)
10400 FOR rn2 = 17 TO 2 STEP -1
10401 LOCATE 7, rn2
10410 PRINT CHR$(205)
10420 NEXT rn2
10430 LOCATE 7, 1
10440 PRINT CHR$(204)
10530 RETURN

10600 zeile:
10610 zeile = zeile + 1
10620 IF zeile > 20 THEN GOTO delscreen
10621 RETURN
10622 delscreen:
10623 FOR del = 9 TO 20
10624 LOCATE del, 3
10625 PRINT "                                                       "
10626 NEXT del
10627 zeile = 9
10630 RETURN

10700 einzeile:
10710 LOCATE 22, 3
10720 PRINT "                                                  "
10730 RETURN