Alabama Connection RBBS   Upload / download Mod. (RBBS 17.2x)

    by: Mike Clark
	Rt.1 Box 250
	Dothan, Alabama 36301

TO INSTALL:

 Change line 20709 in RBBSSUB3, and 21773 in RBBSSUB5 as listed below.

'*********************************
' UPLOAD.WHO MOD FOR RBBS 17.2 
'
' LINE CHANGES FOR RBBSSUB3.BAS
'*********************************

20709 CALL QTPUT1 ("Upload successful")
      X$ = DATE$
      Z$ = LEFT$(X$,6) + _
	   RIGHT$(X$,2)
      STREW.TO$ = ""
      UCAT$ = ""
      CLOSE #2                                  'Bama Connx 061089
      OPEN "UPLOAD.WHO" FOR APPEND AS #2        'Bama Connx 061089
      WRITE #2,FILE.NAME.HOLD$, BYTES.IN.FILE#, ACTIVE.USER.NAME$,X$,TIME$
      CLOSE #2                                  'Bama Connx 061089
20710 CALL QTPUT1 ("Describe " + FILE.NAME.HOLD$ + _


'*********************************
' DOWNLOAD.WHO MOD FOR RBBS 17.2 
'
' LINE CHANGES FOR RBBSSUB5.BAS
'*********************************

'
' * UPDATE DOWNLOAD STATISTICS
'
'  (formerly lines 50600 to 50614 in RBBS-PC.BAS CPC16-1A
21760 GOSUB 21780
      IF FILESYS.PARAMETER > 1 THEN _
	 RETURN
      IF BATCH.TRANSFER THEN _
	 CALL LINESNFIL (NODE.WORK.FILE$,DOWN.FILES) _
      ELSE DOWN.FILES = 1
      IF NOT DOWNLOAD.COMPLETED THEN _
	 AUTO.LOGOFF = FALSE : _
	 DF$ = " Aborted" _
      ELSE CALL LOGDOWN (PERSONAL.DOWNLOAD,DWN.INDEX) : _
	   DOWNLOADS = DOWNLOADS + DOWN.FILES : _
	   GLOBAL.DL.TODAY! = GLOBAL.DL.TODAY! + DOWN.FILES : _
	   GLOBAL.DOWNLOADS = GLOBAL.DOWNLOADS + DOWN.FILES : _
	   DLBYTES! = DLBYTES! + NUM.DNLD.BYTS! : _
	   GLOBAL.DLBYTES! = GLOBAL.DLBYTES! + NUM.DNLD.BYTS! : _
	   DL.TODAY! = DL.TODAY! + DOWN.FILES : _
	   BYTES.TODAY! = BYTES.TODAY! + NUM.DNLD.BYTS! : _
	   GLOBAL.BYTES.TODAY! = GLOBAL.BYTES.TODAY! + NUM.DNLD.BYTS! : _ KG102004
	   NUM.DNLD.BYTS! = 0 : _
	   CALL MUZAK (6) : _
	   DF$ = " Downloaded" : _
	   IF (DWN.INDEX = LAST.DOWNLOAD OR NOT CONCAT.FILES) THEN _
	      CALL SKIPLINE (1) : _
	      CALL QTPUT1 ("Download successful") : _             'Bama Connx 072889
      CLOSE #2 : _                                                'Bama Connx 072889
      OPEN "DOWNLOAD.WHO" FOR APPEND AS #2 : _                    'Bama Connx 051789
      CALL BRKFNAME (FILE.NAME$,DR$,X$,EXTENTION$,TRUE) : _       'Bama Connx 072889
      X$ = X$ + EXTENTION$ : _                                    'Bama Connx 051789
      WRITE #2,X$,BYTES.IN.FILE#,ACTIVE.USER.NAME$,DATE$,TIM$ : _ 'Bama Connx 051789
      CLOSE #2                                                    'Bama Connx 051789
      IF AUTODOWNLOAD.IN.PROGRESS THEN _
	 DF$ = " AUTO" + _
	      MID$(N$,2)
      IF INSTR(N$,"Aborted") THEN _
	 AUTODOWNLOAD.IN.PROGRESS = 0
      A$ = ""