home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / MAPL0206.ZIP / DOORSYS.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-02-06  |  29.5 KB  |  379 lines
  1. ' $linesize:132
  2. ' $title: 'Proposed new SUB for Maple Street Version of RBBS-PC'
  3. ' $INCLUDE: 'RBBS-VAR.MOD'
  4. '
  5. ' $SUBTITLE: 'DoorSys - Makes a DOOR.SYS drop file'
  6. ' $PAGE
  7. '
  8. '  SUBPROGRAM NAME    -- DoorSys
  9. '
  10. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  11. '                         To be added later after finalization of merge
  12. '
  13. '  OUTPUT PARAMETERS  --  ???
  14. '
  15. '  SUBPROGRAM PURPOSE --  Create a DOOR.SYS drop file
  16. '
  17. 'DOOR.SYS Modification begins here per Kenny Gardner - author of GAP and the
  18. 'creator/cheerleader of DOOR.SYS.  Kenny told me that if RBBS-PC does not
  19. 'support the fields to put just a CR/LF which is what should happen here.  He
  20. 'said the doors are supposed to be smart enough to use their own default value
  21. 'if RBBS-PC cannot give it one.  If you take a look at QKDOOR you will find it
  22. 'also does things this way - I went to the source to confirm this! 8-)
  23. 'This merge creates both a DORINFO?.DEF and a DOOR.SYS....unless of course you
  24. 'comment out the above DORINFO?.DEF routines code...."Just Do It!" <BIG GRIN>
  25. '                                                                  
  26. 70000 SUB DoorSys STATIC                                             ' DD091701
  27.       CALL TimeRemain (MinsRemaining)                                'ER 06/05/92
  28.       Close 2                                                        ' DD091701
  29.       OPEN "O", 2, ZNodeWorkDrvPath$ + "DOOR.SYS"                    'ER 05/31/92
  30.       IF ZLocalUser THEN _                                           ' DD092302/DOORSYS
  31.          PRINT #2, "COM0:" _                                         ' DD092302/DOORSYS
  32.       ELSE PRINT #2, ZComPort$ + ":"                            '(1) ' DD092302/DOORSYS
  33.       PRINT #2, ZCBaud$                                         '(2) 'ER 05/30/92
  34.       ZPosition% = INSTR(ZBaudParity$, "N,")                         'ER 06/17/92
  35.       PRINT #2, MID$(ZBaudParity$, ZPosition% + 2, 1)           '(3) 'ER 06/17/92
  36.       PRINT #2, ZNodeFileID$                                    '(4) 'ER 05/30/92
  37.       PRINT #2, ZTalkToModemAt$                                 '(5) ' DD092302/DOORSYS
  38.       IF ZSnoop = -1 THEN _                                     '(6) ' DD092302/DOORSYS
  39.          PRINT #2, "Y" _                                             ' DD092302/DOORSYS
  40.       ELSE PRINT #2, "N"                                             ' DD092302/DOORSYS
  41.       IF ZPrinter = -1 THEN _                                   '(7) 'ER 05/30/92
  42.          PRINT #2, "Y" _                                             'ER 05/30/92
  43.       ELSE PRINT #2, "N"                                             'ER 05/30/92
  44.       IF ZSysopAvail = -1 OR ZSysopAnnoy = -1 THEN _            '(8) 'ER 06/05/92
  45.          PRINT #2, "Y" _                                             'ER 06/05/92
  46.       ELSE PRINT #2, "N"                                             'ER 06/05/92
  47.       IF ZSysopAvail = -1 OR ZSysopAnnoy = -1 THEN _            '(9) 'ER 06/05/92
  48.          PRINT #2, "Y" _                                             'ER 06/05/92
  49.       ELSE PRINT #2, "N"                                             'ER 06/05/92
  50.       IF ZGlobalSysop THEN _                                   '(10) 'ER 05/30/92
  51.          PRINT #2, ZSysopFirstName$ + " " + ZSysopLastName$ _        'ER 06/05/92
  52.       ELSE PRINT #2, ZFirstName$ + " " + ZLastName$                  ' DD010302
  53.       PRINT #2, ZCityState$                                    '(11) ' DD092302/DOORSYS
  54.       PRINT #2, ""    'Home Phone                              '(12) ' DD092302/DOORSYS
  55.       PRINT #2, ""    'Data Phone                              '(13) ' DD092302/DOORSYS
  56.       PRINT #2, ZPswdSave$                                     '(14) 'ER 05/30/92
  57.       ZZ$ = STR$(ZUserSecLevel)                                      'RT070192
  58.       CALL Trim(ZZ$)                                                 'RT070192
  59.       PRINT #2, ZZ$                                            '(15) 'RT070192
  60.       ZZ$ = STR$(ZTimesLoggedOn)                                     'RT070192
  61.       CALL Trim(ZZ$)                                                 'RT070192
  62.       PRINT #2, ZZ$                                            '(16) 'RT070192
  63.       PRINT #2, MID$(ZLastDateTimeOn$, 1, 2) + "/" + _               'ER 06/05/92
  64.                 MID$(ZLastDateTimeOn$, 4 ,2) + "/" + _               'ER 06/05/92
  65.                 MID$(ZLastDateTimeOn$, 7 ,2)                         'ER 06/05/92
  66.       ZZ$ = STR$(VAL(ZDoorTime$) * 60)                               ' DD092302/DOORSYS
  67.       CALL Trim(ZZ$)                                                 'RT070192
  68.       PRINT #2, ZZ$                                            '(18) 'RT070192
  69.       PRINT #2, ZDoorTime$                                     '(19) ' DD092302/DOORSYS
  70.       IF ZWasGR = 2 THEN _                                     '(20) 'ER 05/30/92
  71.          PRINT #2, "GR" _                                            'ER 05/30/92
  72.       ELSE PRINT #2, "NG"                                            'ER 05/30/92
  73.       ZZ$ = STR$(ZPageLength)                                        'RT070192
  74.       CALL Trim(ZZ$)                                                 'RT070192
  75.       PRINT #2, ZZ$                                            '(21) 'RT070192
  76.       IF ZExpertUser THEN _                                    '(22) ' DD092302/DOORSYS
  77.          PRINT #2, "Y" _                                             ' DD092302/DOORSYS
  78.       ELSE PRINT #2, "N"                                             ' DD092302/DOORSYS
  79.       PRINT #2, ""       'Conferences registered in            '(23) ' DD092302/DOORSYS
  80.       ZZ$ = ZConfName$                                               ' DD092302/DOORSYS
  81.       CALL Trim (ZZ$)                                                ' DD092302/DOORSYS
  82.       PRINT #2, ZZ$                                            '(24) ' DD092302/DOORSYS
  83.       PRINT #2, ZExpirationDate$                               '(25) ' DD092302/DOORSYS
  84.       ZZ$ = STR$(ZUserFileIndex)                                     'RT070192
  85.       CALL Trim(ZZ$)                                                 'RT070192
  86.       PRINT #2, ZZ$                                            '(26) 'RT070192
  87.       PRINT #2, ZUserXferDefault$                              '(27) ' DD092302/DOORSYS
  88.       ZZ$ = STR$(ZUplds)                                             'RT070192
  89.       CALL Trim(ZZ$)                                                 'RT070192
  90.       PRINT #2, ZZ$                                            '(28) 'RT070192
  91.       ZZ$ = STR$(ZDnlds)                                             'RT070192
  92.       CALL Trim(ZZ$)                                                 'RT070192
  93.       PRINT #2, ZZ$                                            '(29) 'RT070192
  94.       ZZ$ = STR$(ZBytesToday!)                                       'RT070192
  95.       CALL Trim(ZZ$)                                                 'RT070192
  96.       PRINT #2, ZZ$                                            '(30) 'RT070192
  97.       IF ZByteMethod = 3 THEN _                                      ' DD092302/DOORSYS
  98.          Today# = ZRatioRestrict# - ZBytesToday! - ZNumDnldBytes! : _' DD092302/DOORSYS
  99.          ZZ$ = STR$(Today#) : _                                      ' DD092302/DOORSYS
  100.          CALL Trim(ZZ$) : _                                          ' DD092302/DOORSYS
  101.          PRINT #2, ZZ$ _                                             ' DD092302/DOORSYS
  102.       ELSE PRINT #2, ""                                              ' DD092302/DOORSYS
  103.       PRINT #2, ""         'Callers birthday mm/dd/yy          '(32) ' DD092302/DOORSYS
  104.       CALL BreakFileName (ZMainUserFile$,Drive$,filename$,extension$,ZFalse) ' DD092302/DOORSYS
  105.       PRINT #2, Drive$                                         '(33) ' DD092302/DOORSYS
  106.       PRINT #2, ""   'Path to GEN Directory                    '(34) ' DD092302/DOORSYS
  107.       PRINT #2, ZSysopFirstName$                               '(35) ' DD092302/DOORSYS
  108.       PRINT #2, ZActiveUserName$                               '(36) ' DD092302/DOORSYS
  109.       PRINT #2, ""   'Event Time        (hh:mm)                '(37) ' DD092302/DOORSYS
  110.       IF ZReliableMode = -1 THEN _                             '(38) 'ER 06/17/92
  111.          PRINT #2, "Y" _                                             'ER 06/05/92
  112.       ELSE PRINT #2, "N"                                             'ER 06/05/92
  113.       PRINT #2, ""       'ANSI Supported but caller is NG (Y,N)'(39) 'ER 06/09/92
  114.       IF ZShareIt THEN _                                       '(40) ' DD092302/DOORSYS
  115.          PRINT #2, "Y" _                                             ' DD092302/DOORSYS
  116.       ELSE PRINT #2, "N"                                             ' DD092302/DOORSYS
  117.       PRINT #2, ""       'BBS Default color     (1-15)         '(41) 'ER 06/09/92
  118.       ZZ$ = STR$(ASC(ZBankTime$))                                    'RT070192
  119.       CALL Trim(ZZ$)                                                 'RT070192
  120.       PRINT #2, ZZ$                                            '(42) 'RT070192
  121.       ZZ$ = RIGHT$(STR$(ASC(MID$(ZListNewDate$,2))),2) + _ '(43)     ' DD092302/DOORSYS
  122.                 "/" + _                                              ' DD092302/DOORSYS
  123.                 RIGHT$(STR$(ASC(MID$(ZListNewDate$,3))),2) + _       ' DD092302/DOORSYS
  124.                 "/" + _                                              ' DD092302/DOORSYS
  125.                 RIGHT$(STR$(ASC(ZListNewDate$)),2)                   ' DD092302/DOORSYS
  126.       CALL Trim (ZZ$)                                                ' DD092302/DOORSYS
  127.       PRINT #2, ZZ$                                                  ' DD092302/DOORSYS
  128.       PRINT #2, LEFT$(ZTimeLoggedOn$, 5)                       '(44) 'ER 06/05/92
  129.       PRINT #2, RIGHT$(ZLastDateTimeOnSave$, 5)                '(45) 'ER 06/05/92
  130.       PRINT #2, ""       'Max daily files limit                '(46) ' DD092302/DOORSYS
  131.       ZZ$ = STR$(ZDLToday!)                                          'RT070192
  132.       CALL Trim(ZZ$)                                                 'RT070192
  133.       PRINT #2, ZZ$                                            '(47) 'RT070192
  134.       ZZ$ = STR$(ZULBytes!/1000)                                     'RT070192
  135.       CALL Trim(ZZ$)                                                 'RT070192
  136.       PRINT #2, ZZ$                                            '(48) 'RT070192
  137.       ZZ$ = STR$(ZDLBytes!/1000)                                     'RT070192
  138.       CALL Trim(ZZ$)                                                 'RT070192
  139.       PRINT #2, ZZ$                                            '(49) 'RT070192
  140.       PRINT #2, "RBBS-PC is the Best!"                         '(50) 'ER 06/05/92
  141.       PRINT #2, ""      'Total Doors opened                    '(51) ' DD092302/DOORSYS
  142.       PRINT #2, ""      'Total Messages left                   '(52) ' DD092302/DOORSYS
  143.       CLOSE 2                                                        ' DD091701/DOORSYS
  144.       END SUB                                                        'ER 06/17/92
  145. ' $SUBTITLE: 'ReadDoorSys - Reads a DOOR.SYS drop file'              ' DD091101
  146. ' $PAGE                                                              ' DD091101
  147. '                                                                    ' DD091101
  148. '  SUBPROGRAM NAME    -- ReadDoorSys  - by Dan Drinnon 1993          ' DD091101
  149. '                                                                    ' DD091101
  150. '  INPUT PARAMETERS   --     PARAMETER                    MEANING    ' DD091101
  151. '                                                                    ' DD091101
  152. '                                                                    ' DD091101
  153. '  OUTPUT PARAMETERS  --     ZUserSecLevel                           ' DD091101
  154. '                            ZUplds                                  ' DD091101
  155. '                            ZDnlds                                  ' DD091101
  156. '                            ZBytesToday!                            ' DD091101
  157. '                            ZBankTime$                              ' DD091101
  158. '                            ZDLToday!                               ' DD091101
  159. '                            ZULBytes!                               ' DD091101
  160. '                            ZDLBytes!                               ' DD091101
  161. '                                                                    ' DD091101
  162. '  SUBPROGRAM PURPOSE --  Update Users Record From DOOR.SYS          ' DD091101
  163. '                                                                    ' DD091101
  164. ' SecurityLevel (15), Total Uploads (28), Total Downloads (29),      ' DD091101
  165. ' Daily Download "K" Total (30) Time Credits (42), Files DL today (47),' DD091101
  166. ' Total "K" Uploaded (48), and Total "K" DL (49) can be modified by a ' DD091101
  167. ' Door, so let RBBS read back in the values!                         ' DD091101
  168. '                                                                    ' DD091101
  169. 70005 SUB ReadDoorSys STATIC                                         ' DD091101
  170. '                                                                    ' DD091101
  171.       CALL OpenWork (2,ZNodeWorkDrvPath$+"DOOR.SYS")                 ' DD091101
  172.       IF ZErrCode = 52 THEN _                                        ' DD091101
  173.          EXIT SUB                                                    ' DD091101
  174.       FOR I = 1 TO 15                                                ' DD012702
  175.          CALL ReadDir (2,1)                                          ' DD091101
  176.       NEXT I                                                         ' DD091101
  177.       OldVal = ZUserSecLevel                                         ' DD012702
  178.       ZUserSecLevel = VAL (ZOutTxt$)                                 ' DD091101
  179.       IF OldVal <> ZUserSecLevel THEN _                              ' DD012702
  180.          CALL UpdtCalr ("Door set Security Level From" + _           ' DD012702
  181.               STR$(OldVal) +" to" + STR$(ZUserSecLevel),2) : _       ' DD012702
  182.          ZAdjustedSecurity = ZTrue : _                               ' DD012702
  183.          ZUserSecSave = ZUserSecLevel : _                            ' DD012702
  184.          IF (NOT ZConfMode) AND (NOT ZSubBoard) THEN _               ' DD012702
  185.              ZOrigSec = ZUserSecLevel                                ' DD012702
  186.       MID$(ZUserRecord$,47,2) = MKI$(VAL(ZOutTxt$)) ' sec. level (15)' DD012702
  187.       FOR I = 16 TO 28                                               ' DD091101
  188.          CALL ReadDir (2,1)                                          ' DD012702
  189.       NEXT I                                                         ' DD091101
  190.       ZZ$ = ZOutTxt$                                                 ' DD012702
  191.       CALL Trim (ZZ$)                                                ' DD012702
  192.       MID$(ZUserRecord$,125,2) = MKI$(VAL(ZZ$)) 'total uploads   (28)' DD012702
  193.       CALL ReadDir (2,1)                                             ' DD091101
  194.       ZZ$ = ZOutTxt$                                                 ' DD012702
  195.       CALL Trim (ZZ$)                                                ' DD012702
  196.       MID$(ZUserRecord$,123,2) = MKI$(VAL(ZZ$)) 'total downloads (29)' DD012702
  197.       CALL ReadDir (2,1)                                             ' DD012702
  198.       ZZ$ = ZOutTxt$                                                 ' DD012702
  199.       CALL Trim (ZZ$)                                                ' DD012702
  200.       MID$(ZUserRecord$,94,4) = MKS$(VAL(ZZ$))  'bytes dnld today(30)' DD012702
  201.       FOR I = 31 TO 42                                               ' DD012702
  202.          CALL ReadDir (2,1)                                          ' DD091101
  203.       NEXT I                                                         ' DD091101
  204.       ZZ$ = ZOutTxt$                                                 ' DD012702
  205.       CALL Trim (ZZ$)                                                ' DD012702
  206.       MID$(ZUserRecord$,89,1) = CHR$(VAL(ZZ$))  ' banked time    (42)' DD012702
  207.       FOR I = 43 TO 47                                               ' DD012702
  208.          CALL ReadDir (2,1)                                          ' DD091101
  209.       NEXT I                                                         ' DD091101
  210.       ZZ$ = ZOutTxt$                                                 ' DD012702
  211.       CALL Trim (ZZ$)                                                ' DD012702
  212.       MID$(ZUserRecord$,90,4) = MKS$(VAL(ZZ$))  ' files dl today (47)' DD012702
  213.       CALL ReadDir (2,1)                                             ' DD012702
  214.       ZZ$ = ZOutTxt$                                                 ' DD012702
  215.       CALL Trim (ZZ$)                                                ' DD012702
  216.       MID$(ZUserRecord$,102,4) = MKS$(VAL(ZZ$)*1000)' total kbytes uploaded (48)' DD012702
  217.       CALL ReadDir (2,1)                                             ' DD012702
  218.       ZZ$ = ZOutTxt$                                                 ' DD012702
  219.       CALL Trim (ZZ$)                                                ' DD012702
  220.       MID$(ZUserRecord$,98,4) = MKS$(VAL(ZZ$)*1000) ' total kbytes downloaded (49)' DD012702
  221.       CLOSE 2                                                        ' DD091101
  222.       END SUB                                                        ' DD091101
  223. '                                                                    ' DD121702
  224. 70010 SUB PCBoardSys STATIC                                          ' DD121702
  225. '                                                                    ' DD121702
  226.       CALL TimeRemain (MinsRemaining)                                ' DD121702
  227.       CLOSE 2                                                        ' DD121702
  228.       OPEN ZNodeWorkDrvPath$ + "PCBOARD.SYS" FOR RANDOM AS #2 LEN = 128' DD121702
  229.       FIELD #2, 128 AS CONTENTS$                                     ' DD121702
  230.       Template$ = STRING$(128,32)                                    ' DD121702
  231.       IF ZSnoop THEN _                                               ' DD121702
  232.          MID$(Template$,1,2) = "-1" _                                ' DD121702
  233.       ELSE MID$(Template$,1,2) = " 0"                                ' DD121702
  234.       IF ZPrinter THEN _                                             ' DD121702
  235.          MID$(Template$,3,2) = "-1" _                                ' DD121702
  236.       ELSE MID$(Template$,3,2) = " 0"                                ' DD121702
  237.       IF ZSysopAvail THEN _                                          ' DD121702
  238.          MID$(Template$,5,2) = "-1" _                                ' DD121702
  239.       ELSE MID$(Template$,5,2) = " 0"                                ' DD121702
  240.       MID$(Template$,7,2) = " 0"                                     ' DD121702
  241.       IF ZSysop THEN _                                               ' DD121702
  242.          MID$(Template$,9,1) = "X" _                                 ' DD121702
  243.       ELSE MID$(Template$,9,1) = "N"                                 ' DD121702
  244.       IF ZReliableMode THEN _                                        ' DD121702
  245.          MID$(Template$,10,2) = "-1" _                               ' DD121702
  246.       ELSE MID$(Template$,10,2) = " 0"                               ' DD121702
  247.       ZZ$ = "N"                                                      ' DD121702
  248.       IF ZWasGR > 1 THEN _                                           ' DD121702
  249.          ZZ$ = "Y"                                                   ' DD121702
  250.       IF INSTR(ZBaudParity$, ",7") THEN _                            ' DD121702
  251.          ZZ$ = "7"                                                   ' DD121702
  252.       MID$(Template$,12,1) = ZZ$                                     ' DD121702
  253.       IF ZAvailableForChat THEN _                                    ' DD121702
  254.          MID$(Template$,13,1) = "A" _                                ' DD121702
  255.       ELSE MID$(Template$,13,1) = "U"                                ' DD121702
  256.       MID$(Template$,14,5) = RIGHT$(ZTalkToModemAt$,5)               ' DD121702
  257.       IF ZLocalUser THEN _                                           ' DD121702
  258.          MID$(Template$,19,5) = "local" _                            ' DD121702
  259.       ELSE MID$(Template$,19,5) = RIGHT$(ZCBaud$,5)                  ' DD121702
  260.       LSET temp$ = MKI$(VAL(ZUserRecord$))                           ' DD121702
  261.       MID$(Template$,24,2) = temp$                                   ' DD121702
  262.       MID$(Template$,26,15) = LEFT$(ZFirstName$,15)                  ' DD010302
  263.       MID$(Template$,41,12) = LEFT$(ZPswdSave$,12)                   ' DD121702
  264.       MID$(Template$,53,2) = MKI$(ZStartTime)                        ' DD121702
  265.       MID$(Template$,55,2) = MKI$(ZElapsedTime)                      ' DD121702
  266.       MID$(Template$,57,5) = LEFT$(ZTimeLoggedOn$,5)                 ' DD121702
  267.       MID$(Template$,62,2) = MKI$(ZTempTimeAllowed)                  ' DD121702
  268.       IF ZGlobalSysop THEN _                                         ' DD121702
  269.          UserName$ =  ZSysopFirstName$ + " " + ZSysopLastName$ _     ' DD121702
  270.       ELSE UserName$ =  ZFirstName$ + " " + ZLastName$               ' DD010302
  271.       MID$(Template$,85,25) = LEFT$(UserName$,25)                    ' DD121702
  272.       pcboardtime = VAL(ZDoorTime$)                                  ' DD121702
  273.       IF pcboardtime > 99 THEN _                                     ' DD121702
  274.          pcboardtime = 99                                            ' DD121702
  275.       min$ = "  "                                                    ' DD121702
  276.       LSET min$ = MKI$(pcboardtime)                                  ' DD121702
  277.       MID$(Template$,110,2) = min$                                   ' DD121702
  278.       ZZ$ = ZNodeID$                                                 ' DD121702
  279.       CALL Trim (ZNodeID$)                                           ' DD121702
  280.       MID$(Template$,112,1) = LEFT$(ZNodeID$,1)                      ' DD121702
  281.       MID$(Template$,126,1) = MID$(ZComPort$,4,1)                    ' DD121702
  282.       LSET CONTENTS$ = Template$                                     ' DD121702
  283.       PUT 2,1                                                        ' DD121702
  284.       CLOSE #2                                                       ' DD121702
  285.       END SUB                                                        ' DD121702
  286. '                                                                    ' DD121702
  287. 70020 SUB CallInfoBBS STATIC                                         ' DD121702
  288. '                                                                    ' DD121702
  289.       CALL TimeRemain(MinRemaining)                                  ' DD121702
  290.       OPEN ZNodeWorkDrvPath$ + "CALLINFO.BBS" FOR OUTPUT AS #2       ' DD121702
  291.       PRINT #2, ZFirstName$ + " " + ZLastName$                       ' DD010302
  292.       baudcode = 3                                                   ' DD121702
  293.       baudrate = VAL(ZCBaud$)                                        ' DD121702
  294.       IF baudrate = 2400 THEN _                                      ' DD121702
  295.          baudcode = 0                                                ' DD121702
  296.       IF baudrate = 300 THEN _                                       ' DD121702
  297.          baudcode = 1                                                ' DD121702
  298.       IF baudrate = 1200 THEN _                                      ' DD121702
  299.          baudcode = 2                                                ' DD121702
  300.       IF baudrate = 19200 THEN _                                     ' DD121702
  301.          baudcode = 4                                                ' DD121702
  302.       ZZ$ = STR$(baudcode)                                           ' DD010302
  303.       CALL Trim (ZZ$)                                                ' DD010302
  304.       PRINT #2, ZZ$                                                  ' DD010302
  305.       PRINT #2, ZWasCI$                                              ' DD121702
  306.       ZZ$ = STR$(ZUserSecLevel)                                      ' DD121702
  307.       CALL Trim(ZZ$)                                                 ' DD121702
  308.       PRINT #2, ZZ$                                                  ' DD121702
  309.       PRINT #2, ZDoorTime$                                           ' DD121702
  310.       IF ZWasGR > 1 THEN                                             ' DD121702
  311.          PRINT #2, "COLOR"                                           ' DD121702
  312.       ELSE                                                           ' DD121702
  313.          PRINT #2, "MONO"                                            ' DD121702
  314.       END IF                                                         ' DD121702
  315.       PRINT #2, ZPswdSave$                                           ' DD121702
  316.       ZZ$ = STR$(ZUserFileIndex)                                     ' DD121702
  317.       CALL Trim(ZZ$)                                                 ' DD121702
  318.       PRINT #2, ZZ$                                                  ' DD121702
  319.       CALL GetTime                                                   ' DD121702
  320.       ZZ$ = STR$(ZSessionMin)                                        ' DD010302
  321.       CALL Trim (ZZ$)                                                ' DD010302
  322.       PRINT #2, ZZ$                                                  ' DD010302
  323.       PRINT #2, LEFT$(TIME$,5)                                       ' DD121702
  324.       PRINT #2, LEFT$(ZTimeLoggedOn$, 5)                             ' DD121702
  325.       PRINT #2, ""                         'conferences joined       ' DD121702
  326.       PRINT #2, ""                         ' daily dl file total     ' DD121702
  327.       PRINT #2, ""                         'max daily dl file limit  ' DD121702
  328.       ZZ$ = STR$(ZBytesToday!)                                       ' DD121702
  329.       CALL Trim(ZZ$)                                                 ' DD121702
  330.       PRINT #2, ZZ$                        ' daily dl kb limit       ' DD121702
  331.       IF ZByteMethod = 3 THEN _                                      ' DD121702
  332.          Today# = ZRatioRestrict# - ZBytesToday! - ZNumDnldBytes! : _' DD121702
  333.          ZZ$ = STR$(Today#) : _                                      ' DD121702
  334.          CALL Trim(ZZ$) : _                                          ' DD121702
  335.          PRINT #2, ZZ$ _                                             ' DD121702
  336.       ELSE PRINT #2, ""                    ' max daily dl kb limit   ' DD121702
  337.       PRINT #2, ""                         'user's phone number      ' DD121702
  338.       PRINT #2, MID$(ZLastDateTimeOn$, 1, 2) + "/" + _               ' DD121702
  339.                 MID$(ZLastDateTimeOn$, 4 ,2) + "/" + _               ' DD121702
  340.                 MID$(ZLastDateTimeOn$, 7 ,2) 'don't know separator   ' DD121702
  341.       IF ZExpertUser THEN _                                          ' DD121702
  342.          PRINT #2, "EXPERT" _                                        ' DD121702
  343.       ELSE PRINT #2, ""                    ' don't know novice       ' DD121702
  344.       PRINT #2, ZUserXferDefault$                                    ' DD121702
  345.       ZZ$ = RIGHT$(STR$(ASC(MID$(ZListNewDate$,2))),2) + _ '(43)     ' DD121702
  346.                 "/" + _                                              ' DD121702
  347.                 RIGHT$(STR$(ASC(MID$(ZListNewDate$,3))),2) + _       ' DD121702
  348.                 "/" + _                                              ' DD121702
  349.                 RIGHT$(STR$(ASC(ZListNewDate$)),2)                   ' DD121702
  350.       CALL Trim (ZZ$)                                                ' DD121702
  351.       PRINT #2, ZZ$                        ' don't know separator    ' DD121702                          ' DD121702
  352.       ZZ$ = STR$(ZTimesLoggedOn)                                     ' DD121702
  353.       CALL Trim(ZZ$)                                                 ' DD121702
  354.       PRINT #2, ZZ$                                                  ' DD121702
  355.       ZZ$ = STR$(ZPageLength)                                        ' DD121702
  356.       CALL Trim(ZZ$)                                                 ' DD121702
  357.       PRINT #2, ZZ$                                                  ' DD121702
  358.       PRINT #2, ""                         'last msg read (not global)' DD121702
  359.       ZZ$ = STR$(ZUplds)                                             ' DD121702
  360.       CALL Trim(ZZ$)                                                 ' DD121702
  361.       PRINT #2, ZZ$                                                  ' DD121702
  362.       ZZ$ = STR$(ZDnlds)                                             ' DD121702
  363.       CALL Trim(ZZ$)                                                 ' DD121702
  364.       PRINT #2, ZZ$                                                  ' DD121702
  365.       ZPosition% = INSTR(ZBaudParity$, "N,")                         ' DD121702
  366.       PRINT #2, MID$(ZBaudParity$, ZPosition% + 2, 1)                ' DD121702
  367.       IF ZLocalUser THEN _                                           ' DD121702
  368.          PRINT #2, "LOCAL" _                                         ' DD121702
  369.       ELSE PRINT #2, "REMOTE"                                        ' DD121702
  370.       IF ZLocalUser THEN _                                           ' DD121702
  371.          PRINT #2, "COM0" _                                          ' DD121702
  372.       ELSE PRINT #2, ZComPort$                                       ' DD121702
  373.       print #2, ""                         'birthday                 ' DD121702
  374.       IF ZLocalUser THEN _                                           ' DD121702
  375.          PRINT #2, "9600" _                                          ' DD121702
  376.       ELSE PRINT #2, ZCBaud$                                         ' DD121702
  377.       CLOSE #2                                                       ' DD121702
  378.       END SUB                                                        ' DD121702
  379.