;...
This presentation is the property of its rightful owner.
Sponsored Links
1 / 111

;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ PowerPoint PPT Presentation


  • 39 Views
  • Uploaded on
  • Presentation posted in: General

;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿. ;³ PROGRAM ³ COMMENT.PPE ³. ;³ ³ ³.

Download Presentation

;ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -

Presentation Transcript


;


; PROGRAM COMMENT.PPE


;


; VERSION 1.0


;


; AUTHOR Harry Braun - HB Electronics


;


; Compiled by: Fred Barra, Sysop of Modern Technology


; Providence, Rhode Island


; 401-333-1638 [HST DS 16.8]


; 401-333-3451 [HAYES 96]


;


; MAIL ADDRESS 155 Clark Blvd. Unit #13


; Brampton, Ontario


; Canada L6T-4G6


;


; SUPPORT MICROWORLD


; (416) 840-4386 - 14.4 USR Sportster


;


; DESCRIPTION A [PPE] program for PCBOARD 15.0 or higher.


; Multiple SYSOP commenting system. 8 SYSOP's total.


; Setup Sysop names and their area or specialty in the


; COMMENT.CFG file.


;


; HOW TO USE Execute from your CMD.LST file and display the command


; where your users will find it.


;


; Command Security PPE/MNU File


;


; C 30 C:\PCB\PPE\COMMENT.PPE


;


; HISTORY None yet.


;


; DONATIONS If you use and like this file, a small donation to the


; cause, is always acceptable.


;


;


; Declare Variables


;


STRING WH1,WH2,WH3,Version,SysopNum,Subject,CR


STRING Sysop(8),SysopResp(8),TempList1,TempList2


INTEGER I,TotSysops,TotalSysops


;


; Setup Special strings


;


WH1="Written by: Harry Braun"


WH2="HB Electronics (1993)"


WH3="Multiple SYSOP comment system"


Version="V1.0"


CR=CHR(13)


;


; Read Config File, Load according to security level


;


TotSysops=8


FOPEN 1, PPEPATH()+"COMMENT.CFG",O_RD,S_DN ;open & deny none


FOR I=1 TO TotSysops


FGET 1, TempList1


FGET 1, TempList2


IF (LEN(TempList1) > 25) Templist1=LEFT(TempList1,25)


IF (LEN(TempList2) > 40) Templist2=LEFT(TempList2,40)


IF (LEN(TempList1) > 0) THEN


TotalSysops=TotalSysops+1


Sysop(TotalSysops)=TempList1


SysopResp(TotalSysops)=TempList2


ENDIF


NEXT


FCLOSE 1


;


; Print Main screen


;


CLS


PRINTLN


PRINTLN "@X0F @X07"


PRINTLN "@X0F @X7F @X7B"+WH3+"@[email protected]:48@"+Version+"@[email protected]:56@"+WH2+"@POS:79@@X08"


PRINTLN "@X07 @X08"


PRINTLN "@X0F @[email protected]"


PRINTLN "@X0F @X70 @X08"


PRINTLN "@X0F @X70 Please select the SYSOP you wish to leave a comment to. @X08"


PRINTLN "@X0F @X70 The different sysop's are responsible for their own areas. @X08"


PRINTLN "@X0F @X70 @X7E-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- @X08"


PRINTLN "@X0F @X70 @X08"


FOR I=1 TO TotalSysops


PRINTLN "@X0F @X74 "+STRING(I)+"@X7F) @X7B"+Sysop(I)+"@[email protected]:36@"+SysopResp(I)+"@POS:79@@X08"


NEXT


PRINTLN "@X0F @X70 @X08"


PRINTLN "@X0F @[email protected]"


:GETSYSOP


ANSIPOS 1,22


INPUTSTR "@X0E(@[email protected]@@X0E min. left) @X0FComment to Sysop# (1-"+STRING(TotalSysops)+"), @X0E(@[email protected])=Exit ",SysopNum,0Eh,1,"12345678",FIELDLEN+GUIDE+ERASELINE


IF (SysopNum="") GOTO EXIT


IF (SysopNum > TotalSysops) GOTO GETSYSOP


:GETSUBJECT


ANSIPOS 1,22


INPUTSTR " @X0FSubject, @X0E(@[email protected])=Exit ",Subject,0Eh,53,MASK_ASCII(),FIELDLEN+GUIDE+UPCASE+ERASELINE


IF (Subject="") GOTO EXIT


IF (LEN(Subject) < 5) THEN


ANSIPOS 19,21


PRINTLN "@[email protected] not long enough, please try again."


GOTO GETSUBJECT


ENDIF


;


; Stuff Keyboard to send the comment sysop


;


LOG "Comment sent to: "+Sysop(SysopNum),0


KBDSTUFF "E"+CR+Sysop(SysopNum)+CR+Subject+CR+CR


;


; Exit the Program


;


:EXIT


ANSIPOS 1,21


END


  • Login