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

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


  • 35 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


5237407

;


Program comment ppe

; PROGRAM COMMENT.PPE


5237407

;


Version 1 0

; VERSION 1.0


5237407

;


Author harry braun hb electronics

; AUTHOR Harry Braun - HB Electronics


5237407

;


Compiled by fred barra sysop of modern technology

; Compiled by: Fred Barra, Sysop of Modern Technology


Providence rhode island

; Providence, Rhode Island


401 333 1638 hst ds 16 8

; 401-333-1638 [HST DS 16.8]


401 333 3451 hayes 96

; 401-333-3451 [HAYES 96]


5237407

;


Mail address 155 clark blvd unit 13

; MAIL ADDRESS 155 Clark Blvd. Unit #13


Brampton ontario

; Brampton, Ontario


Canada l6t 4g6

; Canada L6T-4G6


5237407

;


Support microworld

; SUPPORT MICROWORLD


416 840 4386 14 4 usr sportster

; (416) 840-4386 - 14.4 USR Sportster


5237407

;


Description a ppe program for pcboard 15 0 or higher

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


Multiple sysop commenting system 8 sysop s total

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


Setup sysop names and their area or specialty in the

; Setup Sysop names and their area or specialty in the


Comment cfg file

; COMMENT.CFG file.


5237407

;


How to use execute from your cmd lst file and display the command

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


Where your users will find it

; where your users will find it.


5237407

;


Command security ppe mnu file

; Command Security PPE/MNU File


5237407

;


C 30 c pcb ppe comment ppe

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


5237407

;


History none yet

; HISTORY None yet.


5237407

;


Donations if you use and like this file a small donation to the

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


Cause is always acceptable

; cause, is always acceptable.


5237407

;


5237407

;


Declare variables

; Declare Variables


5237407

;


String wh1 wh2 wh3 version sysopnum subject cr

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


String sysop 8 sysopresp 8 templist1 templist2

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


Integer i totsysops totalsysops

INTEGER I,TotSysops,TotalSysops


5237407

;


Setup special strings

; Setup Special strings


5237407

;


Wh1 written by harry braun

WH1="Written by: Harry Braun"


Wh2 hb electronics 1993

WH2="HB Electronics (1993)"


Wh3 multiple sysop comment system

WH3="Multiple SYSOP comment system"


Version v1 0

Version="V1.0"


Cr chr 13

CR=CHR(13)


5237407

;


Read config file load according to security level

; Read Config File, Load according to security level


5237407

;


Totsysops 8

TotSysops=8


Fopen 1 ppepath comment cfg o rd s dn open deny none

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


For i 1 to totsysops

FOR I=1 TO TotSysops


Fget 1 templist1

FGET 1, TempList1


Fget 1 templist2

FGET 1, TempList2


If len templist1 25 templist1 left templist1 25

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


If len templist2 40 templist2 left templist2 40

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


If len templist1 0 then

IF (LEN(TempList1) > 0) THEN


Totalsysops totalsysops 1

TotalSysops=TotalSysops+1


Sysop totalsysops templist1

Sysop(TotalSysops)=TempList1


Sysopresp totalsysops templist2

SysopResp(TotalSysops)=TempList2


Endif

ENDIF


5237407

NEXT


Fclose 1

FCLOSE 1


5237407

;


Print main screen

; Print Main screen


5237407

;


5237407

CLS


Println

PRINTLN


Println @x0f @x07

PRINTLN "@X0F @X07"


Println @x0f @x7f @x7b wh3 @x7f@pos 48@ version @x7e@pos 56@ wh2 @pos 79@@x08

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


Println @x07 @x08

PRINTLN "@X07 @X08"


Println @x0f @x70 @x07

PRINTLN "@X0F @[email protected]"


Println @x0f @x70 @x08

PRINTLN "@X0F @X70 @X08"


Println @x0f @x70 please select the sysop you wish to leave a comment to @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 The different sysop's are responsible for their own areas. @X08"


Println @x0f @x70 @x7e @x08

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


Println @x0f @x70 @x081

PRINTLN "@X0F @X70 @X08"


For i 1 to totalsysops

FOR I=1 TO TotalSysops


Println @x0f @x74 string i @x7f @x7b sysop i @x76@pos 36@ sysopresp i @pos 79@@x08

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


5237407

NEXT


Println @x0f @x70 @x082

PRINTLN "@X0F @X70 @X08"


Println @x0f @x70 @x083

PRINTLN "@X0F @[email protected]"


Getsysop

:GETSYSOP


Ansipos 1 22

ANSIPOS 1,22


5237407

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="") GOTO EXIT


If sysopnum totalsysops goto getsysop

IF (SysopNum > TotalSysops) GOTO GETSYSOP


Getsubject

:GETSUBJECT


Ansipos 1 221

ANSIPOS 1,22


5237407

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


If subject goto exit

IF (Subject="") GOTO EXIT


If len subject 5 then

IF (LEN(Subject) < 5) THEN


Ansipos 19 21

ANSIPOS 19,21


Println @x8csubject@x0f not long enough please try again

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


Goto getsubject

GOTO GETSUBJECT


Endif1

ENDIF


5237407

;


Stuff keyboard to send the comment sysop

; Stuff Keyboard to send the comment sysop


5237407

;


Log comment sent to sysop sysopnum 0

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


Kbdstuff e cr sysop sysopnum cr subject cr cr

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


5237407

;


Exit the program

; Exit the Program


5237407

;


5237407

:EXIT


Ansipos 1 21

ANSIPOS 1,21


5237407

END


  • Login