home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / tdd termprog (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  67 lines
  1. 0 rem the transactor volume 6 issue 02  page 36
  2. 100 close 2:open 2,2,0,chr$(96+1)+chr$(0)
  3. 110 rem c-64 only:poke 53280,0:poke 53281,0:print""
  4. 120 print "[147]tdd term 60 wpm baudot":print "rx[146] ";
  5. 130 poke 665,236:poke 666,87:d=37136:rem if c-64 then d=56577
  6. 140 ls=-1
  7. 150 lf$=chr$(10)
  8. 160 cr$=chr$(13)
  9. 170 l$="e"+lf$+"a siu"+cr$+"drjnfcktzlwhypqobg*mxv*"
  10. 180 f$="3"+lf$+"- '87"+cr$+"$4',!:(5')2#6019?&*./;*"
  11. 190 l1$="cyniamztfkor\lxvwjepg^s]uq"
  12. 200 f1$="mdtidzqorddlc\]vwsajpugfxn^dddyd"
  13. 210 get#2,c$:if c$="" then 270
  14. 220 c=asc(c$):if c<1 or c>31 then 210
  15. 230 if ls then c$=mid$(l$,c,1)
  16. 240 if not ls then c$=mid$(f$,c,1)
  17. 250 if c$<>"*" then print c$;:goto 270
  18. 260 ls=(c=31)
  19. 270 get a$:if a$="" then 210
  20. 280 if a$="[133]" then poke d,96:goto 300
  21. 290 goto 210
  22. 300 print "tx[146] ";
  23. 310 get x$:if x$="" then 310
  24. 320 if x$=chr$(34) then x$=chr$(39)
  25. 330 ifx$="[133]"thenprint" ga ";:print#2,"dzcd";:goto 350
  26. 340 goto 360
  27. 350 print"rx[146] ";:gosub680:poked,100:goto 210
  28. 360 if x$="[134]" then m1$="ryryryryryryryryryryry ":goto 520
  29. 370 if x$="[135]" then m1$="listing for j smith springfield il pse  ":goto 520
  30. 380 if x$="[136]" then m1$="thank you and good evening ":goto 520
  31. 390 print x$;
  32. 400 if x$=cr$ then print#2,"h";:goto 310
  33. 410 if x$=lf$ then print#2,"b";:goto 310
  34. 420 if x$=chr$(32) then print#2,"d";:goto 310
  35. 430 x=asc(x$)
  36. 440 if x<33 then goto 310
  37. 450 if x<65 then x=x-32:goto 470
  38. 460 goto 480
  39. 470 x$=chr$(91)+mid$(f1$,x,1):print#2,x$+chr$(95);:goto 310
  40. 480 if x>95 then goto 310
  41. 490 x=x-64:x$=mid$(l1$,x,1)
  42. 500 print#2,x$;
  43. 510 goto 310
  44. 520 for s=1 to len(m1$)
  45. 530 x$=mid$(m1$,s,1)
  46. 540 print x$;
  47. 550 if x$=cr$ then print#2,"h";:goto 660
  48. 560 if x$=lf$ then print#2,"b";:goto 660
  49. 570 if x$=chr$(32) then print#2,"d";:goto 660
  50. 580 x=asc(x$)
  51. 590 if x<33 then print#2,"d"
  52. 600 if x<65 then x=x-32:goto 620
  53. 610 goto 630
  54. 620 x$=chr$(91)+mid$(f1$,x,1):print#2,x$+chr$(95);:goto 660
  55. 630 if x>95 then print#2,"d";
  56. 640 x=x-64:x$=mid$(l1$,x,1)
  57. 650 print#2,x$;
  58. 660 next s
  59. 670 goto 310
  60. 680 for x=1to1300:next:return
  61. 690 rem copyright (c)
  62. 700 rem 1984 by
  63. 710 rem jim grubbs
  64. 720 rem po box 3042
  65. 730 rem springfield
  66. 740 rem ill 62708
  67.