home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #6 / Commodore_Disk_User_Vol.1_6_1988_-.d64 / bblist (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  77 lines
  1. 10 rem***********************
  2. 20 rem
  3. 30 rem bulletin board print
  4. 40 rem
  5. 50 rem***********************
  6. 60 rem
  7. 170 rem
  8. 180 poke 53272,(peek(53272)and241)or6
  9. 200 dim i$(100),j$(100),k$(100)
  10. 205 n=0
  11. 210 read i$(n):if i$(n)="****" then goto 300
  12. 220 read j$(n),k$(n):n=n+1:goto 210
  13. 300 print "[147]"
  14. 310 print "        [194]ulletin boards"
  15. 320 print:print "      [208]ress space to scan entries"
  16. 325 n=0
  17. 330 get x$:if x$<>" " then goto 330
  18. 335 if i$(n)="****" then 400
  19. 340 print "[147]"
  20. 350 print "[194]oard name:        ";i$(n)
  21. 360 print:print "[208]hone number:      ";j$(n)
  22. 370 print:print "[194]aud rate/setting: ";k$(n)
  23. 380 n=n+1::goto 330
  24. 400 print "[147]";"    [198][201][204][197] [197][206][196][211]"
  25. 410 end
  26. 1000 data "[193][201][210]tel - [212][194][194][211]",01-200 3439,300/1200-75
  27. 1010 data "[194]rixton [201][212][197][195]",01-735 6153,1200-75
  28. 1020 data "[195]ommunitel",01 968-7402,1200/75v
  29. 1030 data "[196]ark [195]rystal [198]ido",01-207 2989,3-12
  30. 1040 data "[196]istel",01-697 1888,300
  31. 1050 data "[200]ackney [194][194][211]",01-985 3322,1200/75v
  32. 1060 data "[200]ealth[196]ata",01-986 4360,1200/75v
  33. 1070 data "[200]endon [198]ido",01-200 7577,1200/75-300
  34. 1080 data "[200]endon [198]ido (alt)",01-220 8281,1200/75-300
  35. 1090 data "[201]nfotel [210][207][211]",01-581 3366,1200/75-300
  36. 1100 data "[201][212][195][213] [212]raining",01-960 4742,1200/75v
  37. 1110 data "[204]ink [198]ido",01-659 6992,3-12
  38. 1120 data "[204]ondon [213]nderground",01 836 0198,3-24
  39. 1130 data "[205]arctel",01-346 7150,1200/75-300
  40. 1140 data "[205][194][194][211] [205]itcham",01-648 1008,1200/75-300
  41. 1150 data "[205]etrotel",01-941 4285,1200/75v
  42. 1160 data "[206][194][194][211] [204]ondon",01-883 5290,1200/75-300
  43. 1170 data "[206][206][194][194][211] [204]ondon",01-455 6607,1200/75-300
  44. 1180 data "[206]ottingdale [212]ech",01-968 6033,1200/75v
  45. 1190 data "[207][211][201] [204]ives",01-429 3047,300
  46. 1200 data "[207]wl[212]el",01-927 5820,1200/75v
  47. 1210 data "[208][195] [193]ccess",01-853 3965,3-24
  48. 1220 data "[208]oly [198]ido",01-580 1690,3-12
  49. 1230 data "[212][194][194][211] [210]ovoreed",01-527 4977,3-24
  50. 1240 data "[212][194][194][211] [204]ondon",01-348 9400,3-12
  51. 1250 data "[212]echnoline",01-450 9764,1200/75v
  52. 1280 data "[215][194][194][211] [215]imbledon",01-542 3772,"[211]at-7pm [205]on-8pm 1200/75-300"
  53. 1300 data "[193]corn [194][194][211]",(0223)243642,1200/75v
  54. 1310 data "[193]ndrew's [198]ido",(08444)4833,1200/75-300
  55. 1320 data "[193]rc[206]et",(0376)518818,300
  56. 1330 data "[194]anat [194]oard",(0865)824852,"3-24 - [198]ido[206]et"
  57. 1340 data "[195][193][212][211] [198]ido",(0628)824852,1200/75-300 - 22bis
  58. 1350 data "[196]r [211]olomons [198]ido",(02403)4946,3-24
  59. 1360 data "[198]ido [208][196] [211]oftware",(0342)315636,3-24
  60. 1370 data "[205]irror[215]orld",(0883)844044,1200/75-300
  61. 1380 data "[205]irror[215]orld (alt)",(0883)844164,1200/75-300
  62. 1390 data "[205]irror[215]orld 2",(0932)245593,"1200/75v [214]iewdata"
  63. 1400 data "[207][194][194][211] [205]anchester",(061)4271596,1200/75-300
  64. 1410 data "[212]he [208]ortal",(051)3550911,"[205]-[198] 8pm/6am [215]/[197] 100/75-300"
  65. 1430 data "[204]ivingstone [194][194][211]",(0506)38526,300
  66. 1440 data "[208]eople's [208]alace",(041)9566537,1200/75-300
  67. 1450 data "[196]eep  [212]hought [198]ido",(0247)467863,"3-24 - [208][196] [211]oftware"
  68. 1460 data "[208]restel [196]emonstration [206]odes","[201]nformation follows",""
  69. 1480 data "[211]outh [197]ngland",01-681 1111,1200/75v
  70. 1490 data "[205]idlands",(021)6181111,1200/75v
  71. 1500 data "[206]orth",(061)6181111,1200/75v
  72. 1510 data "[211]cotland",(041)6181111,1200/75v
  73. 1520 data "[201][196] 4444444444,[208]assword 4444"
  74. 1550 data "[203]ey 3-12      300/300 and 1200/1200 [198]ull [196]uplex"
  75. 1560 data "3-24      300/300 and 2400/2400 [198]ull [196]uplex"
  76. 2000 data "****"
  77.