home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_07_1985_Transactor_Publishing.d64 / c64 bbs link (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  110 lines
  1. 0 rem the transactor volume 6 issue 02        page 50
  2. 1 rem c64 bbs link
  3. 2 rem a simple database for your bbs numbers
  4. 3 rem the program "sort64" must be in memory at $c100
  5. 4 rem if x=0 then x=1 : load "sort64",8,1
  6. 5 dim n$(500):goto200
  7. 6 save"@0:64 bbs link",8:verify"64 bbs link",8:stop
  8. 10 hi=int(n/256):lo=n-hi*256:return
  9. 20 n=rc:gosub10:print#15,"p"chr$(2+96)chr$(lo)chr$(hi)chr$(ps)
  10. 25 return
  11. 30 input#15,a,z$,c,d:print:printwt$;a;yl$;" ";z$;gy$;c;" ";d:return
  12. 40 print:printtab(11)gy$"insert master disk"
  13. 41 geta$:ifa$=""goto41
  14. 42 return
  15. 50 poke53265,peek(53265)and239:return
  16. 60 poke53265,peek(53265)or16:return
  17. 200 open15,8,15:printchr$(14)
  18. 205 cl$=chr$(147):wt$=chr$(5):gy$=chr$(155):cy$=chr$(159):cu$=chr$(145)
  19. 210 rt$=chr$(13):yl$=chr$(158)
  20. 215 poke53281,0:poke53280,6
  21. 220 printcl$:printtab(14)gy$" 64 bbs link":fora=1to40:printyl$"-";:next:print
  22. 225 printtab(16)wt$;cu$;"bob hayes":fora=1to40:print"-";:next:print
  23. 230 x=7
  24. 240 printtab(x)wt$"1> "gy$"create file"
  25. 250 printtab(x)wt$"2> "gy$"enter new record"
  26. 260 printtab(x)wt$"3> "gy$"modify existing record"
  27. 280 printtab(x)wt$"4> "gy$"print list"wt$
  28. 290 print:printtab(x);:poke19,64:input"select:";s$:print:poke19,0
  29. 300 s=val(s$):ifs>5ors<1goto290
  30. 310 on s goto 320,400,600,700
  31. 320 printcl$;cr$;:poke19,64:input"approx size: ";sz:print:poke19,0
  32. 325 gosub40
  33. 330 open2,8,2,"0:data,l,"+chr$(77)
  34. 335 rc=sz:ps=1:gosub20
  35. 336 print#2,"last";rt$:close2
  36. 340 open2,8,2,"@0:point,p,w":x=1:print#2,x;rt$:close2
  37. 350 run
  38. 400 printcl$:gosub30
  39. 405 print:printwt$"name/bbs = 20 chars":print"phone # = 12 chars"
  40. 410 print"handle/name = 20 chars":print"password = 20 chars"
  41. 420 print:poke19,64:printcy$"name/bbs:"wt$;:input x$:print:poke19,0:rem white
  42. 425 ifx$<>"*"thenb$=x$
  43. 430 poke19,64:printcy$"phone # :"wt$;:input x$:print:poke19,0:rem cyan/white
  44. 435 ifx$<>"*"thenp$=x$
  45. 440 poke19,64:printcy$"handle  :"wt$;:input x$:print:poke19,0
  46. 445 ifx$<>"*"thenh$=x$
  47. 450 poke19,64:printcy$"password:"wt$;:input x$:print::poke19,0
  48. 452 ifx$<>"*"thenc$=x$
  49. 455 print:print:input"sure (y/n/q)";a$:ifa$="q"thenrun
  50. 460 ifa$="n"goto400
  51. 465 ifqq=0thenqq=1:gosub40
  52. 466 gosub50
  53. 470 open2,8,2,"point":input#2,k:close2
  54. 480 if r <> 0 then k=r
  55. 485 open2,8,2,"data"
  56. 490 rc=k
  57. 500 ps=1:gosub20:print#2,left$(b$,20);rt$
  58. 510 ps=22:gosub20:print#2,left$(p$,12);rt$
  59. 520 ps=35:gosub20:print#2,left$(h$,20);rt$
  60. 530 ps=56:gosub20:print#2,left$(c$,20);rt$
  61. 540 close2
  62. 550 if r <> 0 then gosub60:run
  63. 560 k=k+1:open2,8,2,"@0:point,p,w":print#2,k;rt$:close2:gosub60
  64. 570 goto400
  65. 600 printcl$;yl$"entering a  *  will leave data same":print
  66. 605 ch=0:printwt$;:input"input the entry # for changes";ch
  67. 610 ifch=0thenrun
  68. 620 r=ch:rc=ch:qa=1:open2,8,2,"data":gosub820:close2:goto400
  69. 700 printcl$"enter printer type:":print
  70. 710 printgy$"a) 1525/mps 801,  b) 1526/mps 802"
  71. 720 print:input"type";a$:ifa$<>"a"anda$<>"b"goto700
  72. 725 printcl$;wt$:input"<u>pper/<l>owercase";c$:ifc$<>"u"andc$<>"l"goto725
  73. 730 ifa$="a"andc$="l"then open4,4:print#4,chr$(17):goto750
  74. 732 ifa$="b"andc$="l"thenopen4,4,7:print#4,chr$(17):goto750
  75. 734 open4,4
  76. 750 print#4,"   name/bbs             ";:rem 3 spaces/14 spaces
  77. 760 print#4," phone number  ";:rem 2 spaces
  78. 770 print#4,"handle               ";:rem 15 spaces
  79. 780 print#4,"password            ";rt$:rem 12 spaces
  80. 782 fora=1to80:print#4,"-";:next
  81. 785 open2,8,2,"point":input#2,k:close2
  82. 790 open2,8,2,"data"
  83. 800 fora=1tok-1
  84. 810 rc=a
  85. 820 ps=1:gosub20:input#2,b$
  86. 825 ps=22:gosub20:input#2,p$
  87. 830 ps=35:gosub20:input#2,h$
  88. 835 ps=56:gosub20:input#2,c$
  89. 836 ifqa=1thenqa=0:return
  90. 840 rem
  91. 845 iflen(b$)<20thenb$=b$+".":goto845
  92. 850 iflen(p$)<12thenp$=p$+" ":goto850
  93. 855 iflen(h$)<20thenh$=h$+" ":goto855
  94. 860 iflen(c$)<20thenc$=c$+" ":goto860
  95. 861 rem
  96. 862 rem
  97. 863 ifa<10thenn$(a)=str$(a)+"  "+b$+".."+p$+" "+h$+" "+c$:goto870
  98. 865 n$(a)=str$(a)+" "+b$+".."+p$+" "+h$+" "+c$
  99. 870 next:close2
  100. 875 rem
  101. 880 srt=12*4096+256
  102. 890 sys(srt),n$,1,k-1,4,23,a
  103. 900 fora=1tok-1:ifmid$(n$(a),5,1)="@"goto902
  104. 901 print#4,n$(a)
  105. 902 geta$:ifa$=""goto906
  106. 904 geta$:ifa$=""goto904
  107. 906 next
  108. 910 print#4:close4:run
  109. 920 rem *** delete lines 890- for listing 2 ***
  110.