0 'TTY.100 VER 1.0  Robert Curtis [70160,170]  11-SEP-83
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 'Sends BAUDOT at 60 WPM
10 CLEAR 1000
20 DIM I$(100):DEFINT A-Z
30 I$(13)="000010":I$(32)="000100"
31 I$(64)="011011":I$(37)="011111"
32 I$(48)="001101":I$(49)="011101"
33 I$(50)="011001":I$(51)="010000":I$(52)="001010":I$(53)="000001"
34 I$(54)="010101":I$(55)="011100":I$(56)="001100":I$(57)="000011"
35 I$(33)="010110":I$(34)="010001":I$(35)="000101":I$(36)="010010":I$(38)="001011"
36 I$(39)="011010":I$(40)="011110":I$(41)="001001":I$(44)="000110":I$(45)="011000":I$(46)="000111":I$(47)="010111"
37 I$(10)="001000":I$(58)="001110":I$(59)="011110":I$(63)="010011"
41 I$(65)="011000":I$(66)="010011":I$(67)="001110":I$(68)="010010"
42 I$(69)="010000":I$(70)="010110":I$(71)="001011":I$(72)="000101"
43 I$(73)="001100":I$(74)="011010":I$(75)="011110":I$(76)="001001"
44 I$(77)="000111":I$(78)="000110":I$(79)="000011":I$(80)="001101"
45 I$(81)="011101":I$(82)="001010":I$(83)="010100":I$(84)="000001"
46 I$(85)="011100":I$(86)="001111":I$(87)="011001":I$(88)="010111"
47 I$(89)="010101":I$(90)="010001"
98 FG=0
99 K=6:L=4*K:IF L=K THEN L=L+1
100 LINEINPUT Z$:MOTOR ON:FOR I=1TOL:NEXT I
101 Z$=Z$+CHR$(13)+CHR$(10):FOR I=1 TO LEN(Z$):IF MID$(Z$,I,1)="*" THEN 6000
102 IF ASC(MID$(Z$,I,1))<65 AND FG=0 THEN GOSUB 3000
103 IF ASC(MID$(Z$,I,1))>=65 AND FG=1 THEN GOSUB 000
104 IF ASC(MID$(Z$,I,1))=32 THEN FG=0
105 NEXT I:IF I-1<LEN(Z$) THEN FOR I=I TO LEN(Z$):GOTO 102
106 IF Z$="" THEN 100
107 FOR I=1 TO LEN(Z$)
108 A$=I$(ASC(MID$(Z$,I,1)))
110 PRINT MID$(Z$,I,1);
130 FOR J=1 TO 6
140 ON VAL(MID$(A$,J,1))+1 GOSUB 1000,2000
165 FOR JJ=1 TO K:NEXTJJ
167 NEXT J
170 MOTOR ON
175 FOR J=1 TO L:NEXT J
180 NEXT I
190 PRINT
200 GOTO 100
1000 MOTOR OFF:RETURN
2000 MOTOR ON:RETURN
3000 Z$=LEFT$(Z$,I-1)+"@"+MID$(Z$,I,1)+RIGHT$(Z$,LEN(Z$)-I):I=I+1:FG=1:RETURN
4000 Z$=LEFT$(Z$,I-1)+"%"+MID$(Z$,I,1)+RIGHT$(Z$,EN(Z$)-I):I=I+1:FG=0:RETURN
6000 ON VAL(MID$(Z$,I+1,1)) GOTO 6010,6020,6030,6040,6050,6060,6070,6080,6090
6010 Z$="RYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRYRY"+CHR$(13)+CHR$(10)+"THE QUICK BROWN FOX JUMPED OVER THE LAZY DOG'S TAIL. 01234567890"
6011 GOTO 101
6020 Z$="DE K2RLW K2RLW, HACKENSACK NJ--ABOUT 6 MILES WEST OF THE"+CHR$(13)+CHR$(10)+"GEORGE WASHINGTON BRIDGE, IN BERGEN COUNTY."
6021 GOTO 101
7000 'use *1 or *2 to send these mssages.
7010 'add your own messages....