home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1994 #1
/
monster.zip
/
monster
/
PCBOARD
/
PEPSTER.ZIP
/
HELLO.PPS
< prev
next >
Wrap
Text File
|
1994-03-20
|
3KB
|
102 lines
; Pepster's Calling Log Ver 1.15
; Written by John Pepp
; First Compiled 12 March 94 using PPLC 2.00
; PCBoard 15.1 Software Required
; If you modified this PPl, please upload a the pps file
; to the folliwing Bulletin Board:
; Pepster's Place
; (313)421-9145 (First Line)
; (313)421-9177 (Second Line...Use 1st one when Calling)
STRING datestamp 'DATE STAMP - A FILE TO SAVE CURRENT DATE
STRING todaysdate 'TODAY'S DATE
STRING Line
STRING key
STRING CR
STRING Answer
LET CR = CHR(13)
CLS ;CLEAR THE SCREEN
DISPFILE PPEPATH()+"BYEG",SEC+GRAPH+LANG 'DISPLAY CALLERS FOR TODAY!
LET todaysdate = DATE() 'ASSIGN SYSTEM'S DATE TO VARIABLE
LET datestamp = "01/01/90" 'SEED DATE STAMP
FOPEN 2, PPEPATH()+"DATETEST", O_RD,S_DW
IF (FERR(2)) THEN
SPRINTLN "ERROR, FILE DOESN'T EXIST!" 'PRINTS A MESSAGE TO LOCAL SCREEN ONLY
ENDIF
IF (!FERR(2)) THEN
FGET 2, datestamp
ENDIF
FCLOSE 2
; END OF RETRIEVE DATESTAME VARIABLE
IF (CURSEC() >= SYSOPSEC()) THEN
if (datestamp < todaysdate) then
FCREATE 1, PPEPATH()+"BYEG",O_WR,S_DN
FPUTLN 1, "@X04NO ONE HAS CALL FOR TODAY YET!"
FCLOSE 1
ENDIF
END
ENDIF
; IF SECURITY IS LESS THAN SYSOP'S THE REST OF PROGRAM IS EXECUTED!
KBDCHKOFF 'MAKE SURE AUTOMATIC KEYBOARD TIMEOUT IS DISABLED!
IF (datestamp = todaysdate) THEN 'If it's not a new day append next caller to log
FAPPEND 1, PPEPATH()+"USERSG",O_RW,S_DB
FPUT 1, "@X70│ @X71"
FPUTPAD 1, PCBNODE(), -6
FPUTPAD 1, U_NAME(), -20
FPUTPAD 1, DATE(), 10
FPUTPAD 1, TIME(), 10
FPUTPAD 1, CARRIER(), 7
FPUTPAD 1, U_LOGONS(), 8
FPUTPAD 1, " @X7F │",-18
FPUTLN 1
FCLOSE 1
ELSE IF (datestamp < todaysdate) THEN 'if it is a new day restart log
FCREATE 1, PPEPATH()+"USERSG",O_WR,S_DN
FPUT 1, "@X70│@X71 "
FPUTPAD 1, PCBNODE(), -6
FPUTPAD 1, U_NAME(), -20
FPUTPAD 1, DATE(), 10
FPUTPAD 1, TIME(), 10
FPUTPAD 1, CARRIER(), 7
FPUTPAD 1, U_LOGONS(), 8
FPUTPAD 1, " @X7F │",-18
FPUTLN 1
FCLOSE 1
FCREATE 2, PPEPATH()+"DATETEST",O_WR,S_DN
FPUTLN 2, DATE()
FCLOSE 2
ENDIF
; Generate Fantastic Bulletin for PCBoard 15.1
FCREATE 4, PPEPATH()+"BYEG", O_WR, S_DN
FPUTLN 4, "@CLS@@X70┌────────────────────────────────────────────────────────────────────────────@X7F┐"
FPUTLN 4, "@X70│@X74 Previous Callers Log Ver 1.15 @X7F │"
FPUTLN 4, "@X70│@X71 Written By John Pepp @X7F│"
FPUTLN 4, "@X70│@X70 @X7F│"
FPUTLN 4, "@X70│ @X74Node @X70Name @X75Date @X71Time @X74Baud @X70Total Calls @X7F │"
FPUTLN 4, "@X70│ @X7F│"
FOPEN 1, PPEPATH()+"USERSG", O_RD, S_DW
FGET 1, LINE
WHILE (!FERR(1)) DO
FPUTLN 4, Line
FGET 1, LINE
ENDWHILE
FCLOSE 1
FPUTLN 4, "@X70│@X70 @X7F│"
FPUTLN 4, "@X70│ @X75(313)421-9145 Open 24 Hours A Day 2400/9600/14000 @X7F │"
FPUTLN 4, "@X70└@X7F────────────────────────────────────────────────────────────────────────────┘@X07 "
FCLOSE 4
; End of Bullentin
KBDCHKON 'TURN KEYBOARD BACK ON
COLOR @X07
END