10 REM***********************
20 REM
30 REM BULLETIN BOARD PRINT
40 REM
50 REM***********************
60 REM
170 REM
180 POKE 53272,(PEEK(53272)AND241)OR6
200 DIM I$(100),J$(100),K$(100)
205 N=0
210 READ I$(N):IF I$(N)="****" THEN GOTO 300
220 READ J$(N),K$(N):N=N+1:GOTO 210
300 PRINT "[147]"
310 PRINT "        [194]ULLETIN BOARDS"
320 PRINT:PRINT "      [208]RESS SPACE TO SCAN ENTRIES"
325 N=0
330 GET X$:IF X$<>" " THEN GOTO 330
335 IF I$(N)="****" THEN 400
340 PRINT "[147]"
350 PRINT "[194]OARD NAME:        ";I$(N)
360 PRINT:PRINT "[208]HONE NUMBER:      ";J$(N)
370 PRINT:PRINT "[194]AUD RATE/SETTING: ";K$(N)
380 N=N+1::GOTO 330
400 PRINT "[147]";"    [198][201][204][197] [197][206][196][211]"
410 END
1000 DATA "[193][201][210]TEL - [212][194][194][211]",01-200 3439,300/1200-75
1010 DATA "[194]RIXTON [201][212][197][195]",01-735 6153,1200-75
1020 DATA "[195]OMMUNITEL",01 968-7402,1200/75V
1030 DATA "[196]ARK [195]RYSTAL [198]IDO",01-207 2989,3-12
1040 DATA "[196]ISTEL",01-697 1888,300
1050 DATA "[200]ACKNEY [194][194][211]",01-985 3322,1200/75V
1060 DATA "[200]EALTH[196]ATA",01-986 4360,1200/75V
1070 DATA "[200]ENDON [198]IDO",01-200 7577,1200/75-300
1080 DATA "[200]ENDON [198]IDO (ALT)",01-220 8281,1200/75-300
1090 DATA "[201]NFOTEL [210][207][211]",01-581 3366,1200/75-300
1100 DATA "[201][212][195][213] [212]RAINING",01-960 4742,1200/75V
1110 DATA "[204]INK [198]IDO",01-659 6992,3-12
1120 DATA "[204]ONDON [213]NDERGROUND",01 836 0198,3-24
1130 DATA "[205]ARCTEL",01-346 7150,1200/75-300
1140 DATA "[205][194][194][211] [205]ITCHAM",01-648 1008,1200/75-300
1150 DATA "[205]ETROTEL",01-941 4285,1200/75V
1160 DATA "[206][194][194][211] [204]ONDON",01-883 5290,1200/75-300
1170 DATA "[206][206][194][194][211] [204]ONDON",01-455 6607,1200/75-300
1180 DATA "[206]OTTINGDALE [212]ECH",01-968 6033,1200/75V
1190 DATA "[207][211][201] [204]IVES",01-429 3047,300
1200 DATA "[207]WL[212]EL",01-927 5820,1200/75V
1210 DATA "[208][195] [193]CCESS",01-853 3965,3-24
1220 DATA "[208]OLY [198]IDO",01-580 1690,3-12
1230 DATA "[212][194][194][211] [210]OVOREED",01-527 4977,3-24
1240 DATA "[212][194][194][211] [204]ONDON",01-348 9400,3-12
1250 DATA "[212]ECHNOLINE",01-450 9764,1200/75V
1280 DATA "[215][194][194][211] [215]IMBLEDON",01-542 3772,"[211]AT-7PM [205]ON-8PM 1200/75-300"
1300 DATA "[193]CORN [194][194][211]",(0223)243642,1200/75V
1310 DATA "[193]NDREW'S [198]IDO",(08444)4833,1200/75-300
1320 DATA "[193]RC[206]ET",(0376)518818,300
1330 DATA "[194]ANAT [194]OARD",(0865)824852,"3-24 - [198]IDO[206]ET"
1340 DATA "[195][193][212][211] [198]IDO",(0628)824852,1200/75-300 - 22BIS
1350 DATA "[196]R [211]OLOMONS [198]IDO",(02403)4946,3-24
1360 DATA "[198]IDO [208][196] [211]OFTWARE",(0342)315636,3-24
1370 DATA "[205]IRROR[215]ORLD",(0883)844044,1200/75-300
1380 DATA "[205]IRROR[215]ORLD (ALT)",(0883)844164,1200/75-300
1390 DATA "[205]IRROR[215]ORLD 2",(0932)245593,"1200/75V [214]IEWDATA"
1400 DATA "[207][194][194][211] [205]ANCHESTER",(061)4271596,1200/75-300
1410 DATA "[212]HE [208]ORTAL",(051)3550911,"[205]-[198] 8PM/6AM [215]/[197] 100/75-300"
1430 DATA "[204]IVINGSTONE [194][194][211]",(0506)38526,300
1440 DATA "[208]EOPLE'S [208]ALACE",(041)9566537,1200/75-300
1450 DATA "[196]EEP  [212]HOUGHT [198]IDO",(0247)467863,"3-24 - [208][196] [211]OFTWARE"
1460 DATA "[208]RESTEL [196]EMONSTRATION [206]ODES","[201]NFORMATION FOLLOWS",""
1480 DATA "[211]OUTH [197]NGLAND",01-681 1111,1200/75V
1490 DATA "[205]IDLANDS",(021)6181111,1200/75V
1500 DATA "[206]ORTH",(061)6181111,1200/75V
1510 DATA "[211]COTLAND",(041)6181111,1200/75V
1520 DATA "[201][196] 4444444444,[208]ASSWORD 4444"
1550 DATA "[203]EY 3-12      300/300 AND 1200/1200 [198]ULL [196]UPLEX"
1560 DATA "3-24      300/300 AND 2400/2400 [198]ULL [196]UPLEX"
2000 DATA "****"