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