40 ON ERROR GOTO 270 50 STRSIZ 80 60 INPUT "ENTER THE TERMINAL NUMBER YOU WANT TO GIVE A MESSAGE TO:";TRMNUM 70 IF TRMNUM#INT(TRMNUM) OR TRMNUM<1 OR TRMNUM>12 THEN 60 75 INPUT "DO YOU WANT TO HAVE A CONVERSATION WITH THEM? ";ZZ$ 76 IF ZZ$[1,1]="Y" THEN INPUT "WHAT TERMINAL ARE YOU? ";ZZ 80 TRMNUM$=STR(TRMNUM):FILE$="TRM:TTY"+TRMNUM$ 90 OPEN#1,FILE$,OUTPUT:?#1;:CLOSE#1 100 OPEN#1,FILE$,OUTPUT 105 ?#1 CHR(7);CHR(7);CHR(7) 106 IF ZZ$[1,1]="Y" THEN ?#1"PLEASE RUN 'MESSAGE' PROGRAM TO TERMINAL";ZZ 110 CLOSE#1 200 ?"TYPE IN EACH LINE OF YOUR MESSAGE (XXX TO STOP)":? 210 INPUT LINE MESSAGE$ 220 IF MESSAGE$="XXX" THEN 1000 230 OPEN#1,FILE$,OUTPUT 240 ?#1 MESSAGE$ 250 CLOSE#1 260 GOTO 210 270 PRINT CHR(7):RESUME 1000 ?:?"MESSAGE COMPLETE":?:?