home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 September / 1985-09.d64 / tinyterm (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.7 KB  |  63 lines
  1. 5 poke198,0:print"[147]"
  2. 10 open2,2,3,chr$(38)+chr$(224)
  3. 20 z1=56577:z2=56579:poke53281,1:z3=10:fora=54272to54295:pokea,0:next
  4. 30 pokez1,98:print"[147]"
  5. 40 print""spc(z3)"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":printspc(z3) "[144]       tinyterm"
  6. 50 printspc(z3)"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":gosub230
  7. 60 id$(1)="name":id$(2)="id":id$(3)="pass word"
  8. 70 goto300
  9. 80 printchr$(147)+chr$(14)+"[207]n [204]ine":printchr$(187);
  10. 90 get#2,a$:ifa$=""then130
  11. 100 ifi%(asc(a$))=13thenprint"[157] "
  12. 110 printchr$(157);chr$(i%(asc(a$)));chr$(187);:ifi%(asc(a$))=34thenpoke212,0
  13. 120 goto90
  14. 130 geta$:ifa$=""then90
  15. 140 ifa$=chr$(137)thens=1:goto180
  16. 150 ifa$=chr$(138)thens=2:goto180
  17. 160 ifa$=chr$(139)thens=3:goto180
  18. 170 print#2,chr$(o%(asc(a$)));:goto90
  19. 180 forx=1tolen(id$(s))
  20. 190 t$=mid$(id$(s),x,1)
  21. 200 print#2,chr$(o%(asc(t$)));
  22. 210 next:printchr$(13):print#2,chr$(13)
  23. 220 goto90
  24. 230 dimi%(255),o%(255)
  25. 240 forz=32to64:o%(z)=z:next:o%(13)=13:o%(20)=8:o%(160)=32
  26. 250 forz=65to90:y=z+32:o%(z)=y:next:forz=91to95:o%(z)=z:next
  27. 260 forz=193to218:y=z-128:o%(z)=y:next
  28. 270 o%(133)=3:o%(134)=19:o%(135)=17:o%(136)=16
  29. 280 forz=0to255:y=o%(z):ify<>0theni%(y)=z
  30. 290 next:return
  31. 300 printchr$(147)+chr$(14)
  32. 310 p$(1)="2126987875":p$(2)="9146683664":p$(3)="2125197653"
  33. 320 forx=1to3:printx;+"-"+p$(x):next
  34. 330 print" 4 -[205]anual [197]ntry"
  35. 340 print:print" [211]election ?"
  36. 350 getb$:ifb$=""orb$<"1"orb$>"4"then350
  37. 360 ifb$="1"then ph$=p$(1)
  38. 370 ifb$="2"thenph$=p$(2)
  39. 380 ifb$="3"thenph$=p$(3)
  40. 390 ifb$="4"then410
  41. 400 goto430
  42. 410 print:print"[197]nter [208]hone [206]umber":inputph$
  43. 420 iflen(ph$)<7then410
  44. 430 pokez2,100
  45. 440 print:print"[196]ialing...":pokez1,32:forx=1to1000:nextx
  46. 450 forpn=1tolen(ph$)
  47. 460 nn=val(mid$(ph$,pn,1))
  48. 470 gosub540:nextpn
  49. 480 fordl=1to300:pokez2,6:pokez1,100:ifpeek(z1)=45then570
  50. 490 ifpeek(z1)<>125thenprint" [166]":goto510
  51. 500 print"  [146]"
  52. 510 nextdl
  53. 520 pokez1,0
  54. 530 print:print"no connection for nr. ":print""ph$:goto600
  55. 540 printnn;:ifnn=0thennn=10
  56. 550 forx=1tonn:pokez1,0:forxx=1to45:nextxx:pokez1,32:forxx=1to24:nextxx:nextx
  57. 560 fordl=1to200:nextdl:return
  58. 570 forx=1to3:forrr=1to20:c(x)=peek(z1):next:next
  59. 580 ifc(1)+c(2)+c(3)=135then610
  60. 590 print"nr. ";ph$" busy-"
  61. 600 forx=1to300:pokez2,32:pokez1,0  :next:goto430
  62. 610 poke54273,50:poke54296,15:poke54277,25:poke54276,32:poke54276,33:goto80
  63.