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