100*FX220 120MODE6:PROCA:ONERRORPROCB("SYSTEM ER ROR - CONTACT DUNCAN WEBSTER") 150IFB=TRUEB=FALSE:PROCC:CLEAR:RUN 160PROCD:REPEATA$="" 190PRINTTAB(0,24);"READY ";:*FX15 210PROCE:INPUT""A$:PROCF:IF`%=0CLS:PRO CB("WRONG PASSWORD"):TIME=0:REPEATUNTILT IME>100:CLS:PROCA:CLS:PROCD:GOTO190 230IFA$="ADD"PROCG:UNTILFALSE 240IFA$="AMD ID"PROCH:UNTILFALSE 250IFA$="AMD BB"PROCI:UNTILFALSE 260IFA$="DEL"PROCJ:UNTILFALSE 270IFA$="INF"PROCK:UNTILFALSE 280IFA$="LST"PROCL:UNTILFALSE 290IFA$="COM"PROCM:UNTILFALSE 300IFA$="LOG"PROCN:UNTILFALSE 310PROCB("UNRECOGNISED COMMAND"):UNTIL FALSE 330DEFPROCA:*KEY13 1|M 350PROCE:B=FALSE:B$="":£%=0:`%=0:$&C50 =" ":$&C00=" ":$&C15=" ":PROCD:INPUTTAB(0,3);"Enter ID Cod e "B$:PRINTTAB(0,4);" Password ";:$& C50=STR$(FNA):PROCF:IFB$=""ANDVAL$&C50=0 THENB=TRUE:ENDPROC 420C=OPENINB$:IFC=0PROCB("USER FILE DO ES NOT EXIST"):TIME=0:REPEATUNTILTIME>10 0:CLEAR:RUN 440INPUT#C,C$,D$,E$,F$,G$,H$,a%,I$,J$, K$,L$,M$,b%:$&C00=STR$a%:PROCO:CLOSE#C:E NDPROC 480DEFPROCP:INPUT#C,N$,O$,P$,Q$,R$,S$, T$,U$,V$,W$:INPUT#C,X$,Y$,Z$,`$,£$,a$,b$ ,c$:INPUT#C,d$,e$,f$,g$,h$,i$,j$:INPUT#C ,k$,l$,m$,n$,o$:INPUT#C,p$,q$,r$,s$,t$,u $:INPUT#C,v$,w$,x$,y$,z$:INPUT#C,AA$,BA$ ,CA$,DA$:ENDPROC 570DEFPROCQ:PRINT#D,N$,O$,P$,Q$,R$,S$, T$,U$,V$,W$:PRINT#D,X$,Y$,Z$,`$,£$,a$,b$ ,c$:PRINT#D,d$,e$,f$,g$,h$,i$,j$:PRINT#D ,k$,l$,m$,n$,o$:PRINT#D,p$,q$,r$,s$,t$,u $:PRINT#D,v$,w$,x$,y$,z$:PRINT#D,AA$,BA$ ,CA$,DA$:ENDPROC 660DEFPROCO:c%=VAL$&C00EORb%:IF$&C50=S TR$c%`%=9ELSE`%=0:ENDPROC 690ENDPROC 700DEFPROCR:CLS:ENDPROC 730DEFPROCC 740PROCR:PRINT"NEW DATABASE IDENTIFICA TION":PROCE 770INPUTTAB(0,3);" ID CODE "B$:PRINT TAB(11,3);SPC30;TAB(11,3);B$:IFINSTR(B$, " ")<>0ORLENB$>7GOTO770 800INPUTTAB(0,4);"NUM PSCODE "d%:PRINT TAB(11,4);SPC20;TAB(11,4);d%:IFd%<1ORd%> 9999GOTO800 830INPUTTAB(0,5);"MODEM NAME "EA$:INPU TTAB(0,6);"MODEM MAKE "FA$:INPUTTAB(0,7) ;" BAUD "GA$:INPUTTAB(0,8);" COMP M AKE "HA$ 870INPUTTAB(0,9);"PR HK FILE "IA$:PRIN TTAB(11,9);SPC30;TAB(11,9);IA$:IFLENIA$> 12GOTO870 900INPUTTAB(0,10);"LOAD METHD "JA$:PRI NTTAB(11,10);SPC30;TAB(11,10);JA$:IFJA$< >"R"ANDJA$<>"C"ANDJA$<>""GOTO900 930INPUTTAB(0,11);" CHK DIGIT "e%:PRIN TTAB(11,11);SPC30;TAB(11,11);e%:IFe%<1OR e%>9GOTO930 960INPUTTAB(0,12);" CONFIRM "KA$:PRI NTTAB(11,12);SPC30;TAB(11,12);KA$:IFKA$< >"Y"ANDKA$<>"N"GOTO960 990IFKA$="N"GOTO740 1000PROCF:PROCS:C=OPENINB$:CLOSE#C:IFC< >0PROCB("USER ID FILE ALREADY EXISTS"):T IME=0:REPEATUNTILTIME>100:ENDPROC 1020C=OPENOUTB$:PRINT#C,EA$,FA$,GA$,HA$ ,IA$,JA$,(d%EORe%),"","","","","",e%:CLO SE#C:PROCT:PRINTTAB(0,14);"SYSTEM MUST R E-BOOT - PRESS RETURN":A=GET:ENDPROC 1080DEFPROCG 1090PROCR:PRINT"NEW BULLETIN BOARD":PRO CU:C=OPENIN"DATA":IFC=0CLOSE#C:GOTO1180 1130IFEOF#CCLOSE#C:GOTO1180 1140f%=0:REPEATPROCP:f%=f%+1:UNTILEOF#C :CLOSE#C:IFf%>19PROCB("DATAFILE FULL"):E NDPROC 1180PRINTTAB(0,1);SPC25:PROCE:INPUTTAB( 0,3);" NAME "N$:INPUTTAB(0,4);" LO CATION "O$:INPUTTAB(0,5);"PHONE NO 1 "P$ :INPUTTAB(0,6);"PHONE NO 2 "Q$:INPUTTAB( 0,7);" BAUD USED "X$:INPUTTAB(0,8);"OPEN HOURS "d$:INPUTTAB(0,9);"CALL LIMIT "e$ :INPUTTAB(0,10);" LOGON ID "k$:INPUTTAB (0,11);" PASSWORD "l$:INPUTTAB(0,12);"D NLD CONDS "r$ 1290INPUTTAB(0,13);"CHRGE BAND "R$:PRIN TTAB(11,13);SPC20;TAB(11,13);R$:IFR$<>"L "ANDR$<>"B"ANDR$<>"B1"ANDR$<>"N"GOTO1290 1320INPUTTAB(0,14);" RINGBACK "S$:PRIN TTAB(11,14);SPC20;TAB(11,14);S$:IFS$<>"Y "ANDS$<>"N"GOTO1320 1350INPUTTAB(0,15);"AUTO ANSWR "T$:PRIN TTAB(11,15);SPC20;TAB(11,15);T$:IFT$<>"Y "ANDT$<>"N"GOTO1350 1380INPUTTAB(0,16);" VIEWDATA "Y$:PRIN TTAB(11,16);SPC20;TAB(11,16);Y$:IFY$<>"Y "ANDY$<>"N"GOTO1380 1410INPUTTAB(0,17);" DATA BITS "Z$:PRIN TTAB(11,17);SPC20;TAB(11,17);Z$:IFVALZ$< 0ORVALZ$>9ANDZ$<>"X"GOTO1410 1440INPUTTAB(0,18);" PARITY "`$:PRIN TTAB(11,18);SPC20;TAB(11,18);`$:IF`$<>"N ONE"AND`$<>"ODD"AND`$<>"EVEN"AND`$<>"X"G OTO1440 1470INPUTTAB(0,19);" STOP BITS "£$:PRIN TTAB(11,19);SPC20;TAB(11,19);£$:IFVAL£$< 0ORVAL£$>9AND£$<>"X"GOTO1470 1500INPUTTAB(0,20);" PHONE LNS "f$:PRIN TTAB(11,20);SPC20;TAB(11,20);f$:IFVALf$< 1ANDVALf$>99ANDf$<>"X"GOTO1500 1530INPUTTAB(0,21);"POP RATING "g$:PRIN TTAB(11,21);SPC20;TAB(11,21);g$:IFg$<>"U "ANDg$<>"A"ANDg$<>"S"ANDg$<>"AL"ANDg$<>" X"GOTO1530 1560INPUTTAB(18,14);"AMOUNT DL "p$:PRIN TTAB(28,14);SPC10;TAB(28,14);p$:IFp$<>"E "ANDp$<>"G"ANDp$<>"A"ANDp$<>"B"ANDp$<>"P "ANDp$<>"N"ANDp$<>"X"GOTO1560 1590INPUTTAB(18,15);"RATING DL "q$:PRIN TTAB(28,15);SPC10;TAB(28,15);q$:IFq$<>"E "ANDq$<>"G"ANDq$<>"A"ANDq$<>"B"ANDq$<>"P "ANDq$<>"N"ANDq$<>"X"GOTO1560 1620INPUTTAB(18,16);" SYSOP AV "v$:PRIN TTAB(28,16);SPC10;TAB(28,16);v$:IFv$<>"U "ANDv$<>"S"ANDv$<>"O"ANDv$<>"N"ANDv$<>"X "GOTO1620 1650INPUTTAB(18,17);"SYSOP HLP "w$:PRIN TTAB(28,17);SPC10;TAB(28,17);w$:IFw$<>"V "ANDw$<>"U"ANDw$<>"A"ANDw$<>"B"ANDw$<>"P "ANDw$<>"X"GOTO1650 1680INPUTTAB(18,18);"UPDATE FR "AA$:PRI NTTAB(28,18);SPC10;TAB(28,18);AA$:IFAA$< >"A"ANDAA$<>"W"ANDAA$<>"F"ANDAA$<>"M"AND AA$<>"L"ANDAA$<>"X"GOTO1680 1710INPUTTAB(18,19);" CONFIRM "KA$:PRI NTTAB(28,19);SPC10;TAB(28,19);KA$:IFKA$< >"Y"ANDKA$<>"N"ANDKA$<>"E"GOTO1710 1740IFKA$="N"GOTO1090 1750IFKA$="E"PROCB("COMMAND ABORTED - N OTHING SAVED"):ENDPROC 1760PROCF:PROCS:C=OPENUP"data":IFC=0CLO SE#C:C=OPENOUT"data":GOTO1830 1790IFEOF#CGOTO1830 1800REPEATINPUT#C,LA$:UNTILEOF#C 1830PRINT#C,N$,O$,P$,Q$,R$,S$,T$,"","", "":PRINT#C,X$,Y$,Z$,`$,£$,"","","":PRINT #C,d$,e$,f$,g$,"","","":PRINT#C,k$,l$,"" ,"","":PRINT#C,p$,q$,r$,"","","":PRINT#C ,v$,w$,"","","":PRINT#C,AA$,"","","":CLO SE#C:PROCT:ENDPROC 1930DEFPROCD:CLS:PRINT"SYSTEMS Communic ations VERSION 1a":PRINT"(Bulletin Board Database)":PRINT:ENDPROC 1980DEFPROCS:PRINTTAB(0,1);"Recording D ata ":ENDPROC 2010DEFPROCU:PRINTTAB(0,1);"Processing Occurring ":ENDPROC 2040DEFPROCT:PRINTTAB(0,23);SPC20:PRINT TAB(0,1);"Command Accepted ": ENDPROC 2080DEFPROCE:VDU23,0,10,64,0;0;0;:ENDPR OC 2110DEFPROCF:VDU23;8202;0;0;0;:ENDPROC 2140DEFFNA:LA$="":MA$="" 2160LA$=GET$:IFLA$=CHR$13THEN=(VALMA$) 2180MA$=MA$+LA$:PRINT"*";:GOTO2160:STOP 2220DEFPROCH:CLS:PRINT"AMEND IDENTIFICA TION":PROCU:PROCF:C=OPENINB$:IFC=0CLOSE# C:PROCB("USER ID FILE DOES NOT EXIST"):E NDPROC 2280INPUT#C,C$,D$,E$,F$,G$,H$,a%,I$,J$, K$,L$,M$,b%:CLOSE#C:PROCT:PRINTTAB(0,3); "MODEM NAME ";C$:PRINTTAB(0,4);"MODEM MA KE ";D$:PRINTTAB(0,5);" BAUD ";E$:P RINTTAB(0,6);" COMP MAKE ";F$:PRINTTAB(0 ,7);"PR HK FILE ";G$:PRINTTAB(0,8);"LOAD METHD ";H$:PROCE 2380INPUTTAB(11,3);""LA$:IFLA$=""LA$=C$ ELSEC$=LA$ 2390PRINTTAB(11,3);SPC28;TAB(11,3)C$:IN PUTTAB(11,4);""LA$:IFLA$=""LA$=D$ELSED$= LA$ 2410PRINTTAB(11,4);SPC28;TAB(11,4)D$:IN PUTTAB(11,5);""LA$:IFLA$=""LA$=E$ELSEE$= LA$ 2430PRINTTAB(11,5);SPC28;TAB(11,5)E$:IN PUTTAB(11,6);""LA$:IFLA$=""LA$=F$ELSEF$= LA$ 2450PRINTTAB(11,6);SPC28;TAB(11,6)F$ 2460INPUTTAB(11,7);""LA$:IFLA$=""LA$=G$ ELSEG$=LA$ 2470IFINSTR(LA$," ")<>0ORLENLA$>12GOTO2 460 2480PRINTTAB(11,7);SPC28;TAB(11,7)G$ 2490INPUTTAB(11,8);""LA$:IFLA$=""LA$=H$ ELSEH$=LA$ 2500IFLA$<>"R"ANDLA$<>"C"ANDLA$<>""GOTO 2490 2510PRINTTAB(11,8);SPC28;TAB(11,8)H$ 2520INPUTTAB(0,9);" CONFIRM "KA$:IFKA $<>"Y"ANDKA$<>"N"ANDKA$<>"A"GOTO2520 2540PRINTTAB(11,9);SPC28;TAB(11,9);KA$: IFKA$="N"GOTO2380 2560IFKA$="A"GOTO2620 2570PROCF:PROCS:C=OPENOUTB$:PRINT#C,C$, D$,E$,F$,G$,H$,a%,I$,J$,K$,L$,M$,b%:CLOS E#C 2620PROCT:ENDPROC 2640DEFPROCI:CLS:PRINT"AMEND STORED BB DATA":PRINT:PROCE:INPUTTAB(0,3);" N AME "NA$:PROCF:IFNA$="ALL"NA$="" 2690C=OPENIN"data":IFC=0CLOSE#C:PROCB(" DATAFILE DOES NOT EXIST"):ENDPROC 2700IFEOF#CCLOSE#C:PROCB("DATAFILE CONT AINES NO RECORDS"):ENDPROC 2710D=OPENOUT"NEWdata":E=FALSE:F=FALSE: REPEATPROCP:IFNA$<>N$ANDNA$<>""GOTO2790 2760PROCV("AMEND STORED BB DATA"):F=TRU E:PROCW:IFE=TRUEE=FALSE:GOTO2760 2790*FX4,0 2800PROCQ:UNTILEOF#C:CLOSE#C:CLOSE#D:IF F<>TRUEPROCB("BB NAME NOT FOUND"):GOTO29 00 2840PRINTTAB(0,23);"CONFIRM CHANGES ";: INPUT""KA$:IFKA$<>"Y"ANDKA$<>"N"PRINTTAB (16,23);SPC23:GOTO2840 2860PROCF:IFKA$<>"N"GOTO2900 2870*DELETE NEWdata 2880PROCB("COMMAND ABANDONED - NOTHING AMENDED"):ENDPROC:STOP 2900*DELETE data 2910*RENAME NEWdata data 2920ENDPROC 2930DEFPROCV(LA$):CLS:PRINTLA$:PRINTTAB (0,3);" NAME ";N$:PRINTTAB(0,4);" LOCATION ";O$:PRINTTAB(0,5);"PHONE NO 1 ";P$:PRINTTAB(0,6);"PHONE NO 2 ";Q$:PRIN TTAB(0,7);" BAUD USED ";X$:PRINTTAB(0,8) ;"OPEN HOURS ";d$:PRINTTAB(0,9);"CALL LI MIT ";e$:PRINTTAB(0,10);" LOGON ID ";k$ :PRINTTAB(0,11);" PASSWORD ";l$ 3050PRINTTAB(0,12);"DNLD CONDS ";r$:PRI NTTAB(0,13);"CHRGE BAND ";R$:PRINTTAB(0, 14);" RINGBACK ";S$:PRINTTAB(0,15);"AUT O ANSWR ";T$:PRINTTAB(0,16);" VIEWDATA ";Y$:PRINTTAB(0,17);" DATA BITS ";Z$:PRI NTTAB(0,18);" PARITY ";`$:PRINTTAB(0, 19);" STOP BITS ";£$:PRINTTAB(0,20);" PH ONE LNS ";f$:PRINTTAB(0,21);"POP RATING ";g$ 3150PRINTTAB(18,14);"AMOUNT DL ";p$:PRI NTTAB(18,15);"RATING DL ";q$:PRINTTAB(18 ,16);" SYSOP AV ";v$:PRINTTAB(18,17);"SY SOP HLP ";w$:PRINTTAB(18,18);"UPDATE FR ";AA$:ENDPROC 3210DEFPROCW:PROCE:G=FALSE:*FX4,2 3240N$=FNB(11,3,N$):IFG=TRUEG=FALSE:PRO CF:ENDPROC 3250*FX4,0 3260O$=FNB(11,4,O$):P$=FNB(11,5,P$):Q$= FNB(11,6,Q$):X$=FNB(11,7,X$):d$=FNB(11,8 ,d$):e$=FNB(11,9,e$):k$=FNB(11,10,k$):l$ =FNB(11,11,l$):r$=FNB(11,12,r$) 3350R$=FNB(11,13,R$):IFR$<>"L"ANDR$<>"B "ANDR$<>"B1"ANDR$<>"N"GOTO3350 3360S$=FNB(11,14,S$):IFS$<>"Y"ANDS$<>"N "GOTO3360 3370T$=FNB(11,15,T$):IFT$<>"Y"ANDT$<>"N "GOTO3370 3380Y$=FNB(11,16,Y$):IFY$<>"Y"ANDY$<>"N "GOTO3380 3390Z$=FNB(11,17,Z$):IFVALZ$<0ORVALZ$>9 ANDZ$<>"X"GOTO3390 3400`$=FNB(11,18,`$):IF`$<>"NONE"AND`$< >"ODD"AND`$<>"EVEN"AND`$<>"X"GOTO3400 3410£$=FNB(11,19,£$):IFVAL£$<0ORVAL£$>9 AND£$<>"X"GOTO3410 3420f$=FNB(11,20,f$):IFVALf$<0ORVALf$>9 9GOTO3420 3430g$=FNB(11,21,g$):IFg$<>"U"ANDg$<>"A "ANDg$<>"S"ANDg$<>"AL"ANDg$<>"X"GOTO3430 3440p$=FNB(28,14,p$):IFp$<>"E"ANDp$<>"G "ANDp$<>"A"ANDp$<>"B"ANDp$<>"P"ANDp$<>"N "ANDp$<>"X"GOTO3440 3450q$=FNB(28,15,q$):IFq$<>"E"ANDq$<>"G "ANDq$<>"A"ANDq$<>"B"ANDq$<>"P"ANDq$<>"N "ANDq$<>"X"GOTO3450 3460v$=FNB(28,16,v$):IFv$<>"U"ANDv$<>"S "ANDv$<>"O"ANDv$<>"N"ANDv$<>"X"GOTO3460 3470w$=FNB(28,17,w$):IFw$<>"V"ANDw$<>"U "ANDw$<>"A"ANDw$<>"B"ANDw$<>"P"ANDw$<>"X "GOTO3470 3480AA$=FNB(28,18,AA$):IFAA$<>"A"ANDAA$ <>"W"ANDAA$<>"F"ANDAA$<>"M"ANDAA$<>"L"AN DAA$<>"X"GOTO3480 3490INPUTTAB(18,20);" CONFIRM "KA$:IFK A$<>"Y"ANDKA$<>"N"PRINTTAB(28,20);SPC10: GOTO3490 3500PROCF:IFKA$="N"E=TRUE:ENDPROC 3520ENDPROC 3530DEFFNB(e%,g%,OA$):INPUTTAB(e%,g%);" "PA$:IFg%=3ANDPA$="1"PRINTTAB(e%,g%);OA$ :G=TRUE:=OA$ 3560IFPA$=""PA$=OA$ 3570IFg%>13PRINTTAB(e%,g%);SPC5;TAB(e%, g%);PA$:GOTO3590 3580PRINTTAB(e%,g%);SPC(39-e%);TAB(e%,g %);PA$ 3590=PA$ 3600DEFPROCB(QA$):CLS:PROCF:PRINTTAB(0, 13);QA$:VDU7:RA$="":IFQA$="SYSTEM ERROR - CONTACT DUNCAN WEBSTER"RA$=GET$ 3650IFQA$="SYSTEM ERROR - CONTACT DUNCA N WEBSTER"ANDRA$="R"CLS:PRINT"SYSTEM ERR OR DESCRIPTION"'':REPORT:PRINT;" MESSAGE "''ERL;" LINE NUMBER"''"MAILBOX DUNCAN W EBSTER ON RESOLVE"''"BB Phone No = 0582 832653"'':CLOSE#0:END 3660ENDPROC 3670DEFPROCJ:CLS:PRINT"DELETE BB FROM D ATAFILE":PROCE:PRINT''" NAME ";:INP UT""NA$:PROCF:KA$="X":C=999:IFNA$<>"ALL" PROCU 3720IFNA$="ALL"PRINTTAB(0,4);" CONFIR M ";:INPUT""KA$:IFKA$<>"Y"PROCB("CONFIRM ATION FAILED - COMMAND ABORTED"):ENDPROC 3730IFNA$="ALL"ANDKA$="Y"C=OPENIN"data" :CLOSE#C:IFC=0PROCB("DATAFILE DOES NOT E XIST"):ENDPROC 3740IFNA$="ALL"ANDKA$="Y"ANDC<>0OSCLI"D ELETE data":PROCT:ENDPROC 3750C=OPENIN"Data":IFC=0CLOSE#C:PROCB(" DATAFILE DOES NOT EXIST"):ENDPROC 3770IFEOF#CCLOSE#C:PROCB("NO RECORDS PR ESENT IN DATAFILE"):ENDPROC 3780D=OPENOUT"NEWdata":REPEATPRINTTAB(0 ,1);SPC38:PROCP 3820IFNA$=N$PROCE:PROCV("DELETE BB FROM DATAFILE"):PRINTTAB(0,23)" CONFIRM "; :INPUT""KA$:PRINTTAB(11,23);SPC28;TAB(11 ,23);KA$ 3830IFNA$=N$ANDKA$<>"Y"ANDKA$<>"N"GOTO3 820 3840IFNA$=N$ANDKA$="Y"PROCF:GOTO3880 3850PROCF:PROCU:PROCQ 3880UNTILEOF#C:CLOSE#C:CLOSE#D:*DELETE data 3910*RENAME NEWdata data 3920PROCT:ENDPROC 3940DEFPROCK:CLS:PRINT"ENQUIRY FULL BB INFOMATION":PROCE:PROCE:PRINTTAB(0,3);" NAME ";:INPUT""NA$:PROCF:PROCF:PROC U:C=OPENIN"data":IFC=0CLOSE#C:PROCB("DAT AFILE EMPTY"):ENDPROC 4010REPEATPROCP:UNTILN$=NA$OREOF#C:CLOS E#C:IFN$<>NA$PROCB("BB INFORMATION NOT O N DATAFILE"):ENDPROC 4060PROCX:ENDPROC 4080DEFPROCX 4090CLS:PRINT"INFORMATION (";N$;")":PRI NT"Screen 1"':PRINT"LOCATION ";O$:PRINT" PHONE No ";P$;:IFQ$=""ORQ$="NONE"ORQ$="N one"ORQ$=" "GOTO4150 4140PRINT;" OR ";Q$:GOTO4160 4150PRINT;" " 4160PRINT"CHARGE RATE ";FNC(R$):PRINT"B B ANSWERING METHOD ";:IFS$="Y"ANDT$<>"Y" PRINT"Ringback System" 4190IFT$="Y"PRINT"Auto Answer" 4200IFS$<>"Y"ANDT$<>"Y"PRINT"Not Input" 4210PRINT"LOGON BAUD ";X$:PRINT"VIEWDAT A = ";:IFY$="Y"PRINT"Yes"ELSEPRINT"No" 4240PRINT:IFZ$="X"GOTO4270 4260PRINT"DATA BITS = ";Z$ 4270IF£$="X"GOTO4290 4280PRINT"STOP BITS = ";£$ 4290IF`$=" "OR`$=""OR`$="X"GOTO4310 4300PRINT"PARITY SETTING = ";`$ 4310IFf$="X"GOTO4330 4320PRINT"No PHONE LINES = ";f$ 4330PRINT'"OPEN HOURS ";d$:PRINT"TIME L IMIT ";e$:PRINT"LOGON ID ";k$;" PASSWORD ";l$:PRINT'''"PRESS RETURN FOR NEXT PAG E":H=GET:CLS:PRINT"INFORMATION (";N$;")" '"Screen 2":PRINT'"POPULARITY RATING = " ;FND(g$):PRINT"QUANTITY OF DLOAD = ";FNE (p$):PRINT"QUALITY OF DLOADS = ";FNE(q$) 4420PRINT'"ON-LINE SYSOP = ";FNF(v$):PR INT"QUALITY SYSOP = ";FNG(w$):PRINT"UPDA TE FREQCY = ";FNH(AA$):PRINT'"DOWNLOADIN G RESTRICTIONS:";'r$:PRINTTAB(0,20);"PRE SS P FOR PREVIOUS PAGE":PRINTTAB(0,21);" PRESS RETURN TO FINISH":C$=GET$:IFC$="P" ORC$="p"GOTO4090 4490ENDPROC 4500DEFFNC(LA$):MA$="Not Input":IFLA$=" L"MA$="Local" 4530IFLA$="B"MA$="Within 56km (outside Local)" 4540IFLA$="B1"MA$="Low Cost (over 56km) " 4550IFLA$="N"MA$="National (over 56km)" 4560=MA$ 4570DEFFND(LA$):IFLA$="U"THEN="Usually Engaged" 4590IFLA$="A"THEN="Average" 4600IFLA$="S"THEN="Sometimes Engaged" 4610IFLA$="AL"THEN="Usually Available" 4620="Not Input" 4630DEFFNE(LA$):IFLA$="E"THEN="Excellen t" 4650IFLA$="G"THEN="Good" 4660IFLA$="A"THEN="Average" 4670IFLA$="B"THEN="Below Average" 4680IFLA$="P"THEN="Poor" 4690IFLA$="N"THEN="No Downloads" 4700="Not Input" 4710DEFFNF(LA$):IFLA$="U"THEN="Usually On-line" 4730IFLA$="S"THEN="Sometimes On-Line" 4740IFLA$="O"THEN="Occasionally On-Line " 4750IFLA$="N"THEN="Infrequently On-Line " 4760="Not Input" 4770DEFFNG(LA$):IFLA$="V"THEN="Very Hel pful" 4790IFLA$="U"THEN="Usually Helpful" 4800IFLA$="A"THEN="Average" 4810IFLA$="B"THEN="Below Average" 4820IFLA$="P"THEN="Poor" 4830="Not Input" 4840DEFFNH(LA$):IFLA$="A"THEN="Always U p to Date" 4860IFLA$="W"THEN="Usually Weekly" 4870IFLA$="F"THEN="Usually Fortnightinl y" 4880IFLA$="M"THEN="Usually Monthly" 4890IFLA$="L"THEN="Less Than Monthly" 4900="Not Input" 4910DEFPROCL:CLS:PRINT"ENQUIRY BBs LIST ":PROCU:C=OPENIN"data":IFC=0CLOSE#C:PROC B("DATAFILE EMPTY"):ENDPROC 4960PRINTTAB(0,3);"";:REPEATPROCP:PRINT ;N$;TAB(26);" ";P$:UNTILEOF#C:CLOSE#C:PR OCT:PRINT:ENDPROC 5050DEFPROCM:CLS:PRINT"COMMAND ABBREVIA TIONS":PRINT:PRINT"ADD = Add BB to Da tafile":PRINT"DEL = Delete BB from Da tafile":PRINT"AMD BB = Amend BB Informat ion":PRINT"AMD ID = Amend Equipment Info rmation":PRINT"LST = List All BB & Ph one No":PRINT"INF = Full BB Informati on" 5150PRINT"LOG = Essential Logon Info rmation":ENDPROC 5170DEFPROCN:CLS:PRINT"BB LOGON INFORMA TION":PROCE:INPUT''" NAME "NA$:PROC F:PROCU:C=OPENIN"data":IFC=0CLOSE#C:PROC B("DATAFILE EMPTY"):ENDPROC 5240REPEATPROCP:UNTILN$=NA$OREOF#C:CLOS E#C:IFN$<>NA$PROCB("BB NOT ON DATAFILE") :ENDPROC 5290PRINTTAB(0,4)"PHONE NO 1 "P$:PRINT" PHONE NO 2 "Q$:PRINT" LOGON ID "k$:PRIN T" PASSWORD "l$:PRINT" BAUD "X$:IF S$="Y"PRINT" SYSTEM Ringback" 5350IFT$="Y"PRINT" SYSTEM Auto Answe r" 5360IFY$="Y"PRINT" VIEWDATA yes" 5370IFY$="N"PRINT" VIEWDATA no" 5380PROCT:ENDPROC