
 TeXT By CyBErPuNk^VoODOo
 

 oRiGiNal FiLE_iD.DiZ:

 [OTC] COHP v1.00: Custom Online Hold Prompt
 
 ޳ [COHP.PPE]:  A Full Screen Hold Prompt 
 ޳ written in PPL for PCBoard v15.2+ BBSs 
 ޳ -------------------------------------- 
 ޳ Color configurable  Full Screen Online 
 ޳ Hold Prompt. With Macros Configuration 
 ޳ *Powerful*, versatile and MORE - [OTC] 
 

 PPlXed PPe (iMPoRTaNT PaRT):

     If (!(Upper(STRING003) == "DISP MENU")) Goto LABEL001
            ^   ^   ^   ^
 CoMMAnd enTErED bY UsER...

     FreshLine
     PrintLn
     DispText 56, 0
     FreshLine
     PrintLn
     Print "@POFF@"
     INTEGER001 = 0
 :LABEL003
     INTEGER001 = INTEGER001 + 1
     GetAltUser INTEGER001
     If (!(U_RecNum(U_Name()) == "-1")) Goto LABEL002
           ^   ^   ^   ^   ^   ^   ^
 A liTTlE BuG hERe CauSEs aN ENdlEss L00P... :)

     Print "@PON@"
     End
 :LABEL002
     PrintLn Mixed(U_Name()) + "  -  " + U_PWD
                    ^   ^                ^   ^
 UsERnAME & PaSSWoRD oF EvERy uSER iS DiSPlaYEd hERe...

     Goto LABEL003

 oK, i THinK thERe aREn'T aNY QuEStiOns, eH ? .)
 sO NukE diZ FuCKin, uSElESS PPe !

 SiGNiNG oFf,
   CyBErPuNk^VoODOo
