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