home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Programa / AGSPC1B2.ZIP / ENTER.PPS < prev    next >
Encoding:
Text File  |  1996-07-30  |  2.3 KB  |  114 lines
  1. ; Example of Press Enter replacement PPE
  2.  
  3. #ppe
  4. #libpath ..\..\lib
  5. #user
  6. #use moveto
  7. #use synchro
  8.  
  9. ;----------------------------------------------------------------------------
  10.  
  11.     Declare Procedure ShowStr()
  12.     Declare Procedure Anim()
  13.  
  14. ;----------------------------------------------------------------------------
  15.  
  16.     Integer StrLen, Col, ColorTabl(3), _Step
  17.     String Str
  18.  
  19. ;----------------------------------------------------------------------------
  20.  
  21.     ; Initialisations
  22.  
  23.     ColorTabl(0) = @X08
  24.     ColorTabl(1) = @X07
  25.     ColorTabl(2) = @X0F
  26.     ColorTabl(3) = @X07
  27.     _Step = 0
  28.  
  29.     Str = "PReSS ENTeR!"
  30.     StrLen = Len(StripATX(Str))
  31.  
  32.     ; Move to bottom of screen (we use MoveTo() so we don't appear in the
  33.     ; middle of the screen for 50 lines terminals users)
  34.  
  35.     MoveTo(((80-Len(Str))/2+Len(Str)), 23)
  36.  
  37.     Col = ColorTabl(_Step)
  38.  
  39.     Inc _Step
  40.     ShowStr()
  41.  
  42.     While (1) Do
  43.         If (OutBytes() > 0) Continue
  44.         Col = ColorTabl(_Step)
  45.         Inc _Step
  46.         If (_Step = 4) _Step = 0
  47.         ShowStr()
  48.         If (Inkey() != "") Break
  49.     EndWhile
  50.  
  51.     Anim()
  52.     MoveTo(1,23)
  53.  
  54.     ; KbdStuff a Chr(13) (carriage return) to the original prompt, so we won't
  55.     ; see a "?" appear
  56.  
  57.     KbdStuff Chr(13)
  58.  
  59.     End
  60.  
  61. ;----------------------------------------------------------------------------
  62.  
  63. Procedure ShowStr()
  64.  
  65.     Backup StrLen
  66.     Color Col
  67.     Print Str
  68.     Delay 2
  69.  
  70. End Proc
  71.  
  72. ;----------------------------------------------------------------------------
  73. Procedure Anim()
  74.  
  75. Int A
  76.  
  77. Color 15
  78.  
  79. For A = 1 To 11
  80.  
  81.     Backup StrLen
  82.  
  83.     Select Case A
  84.         Case 1
  85.             Print "PReSS ENTeR!"
  86.         Case 2
  87.             Print "PReSSNTeR!"
  88.         Case 3
  89.             Print "PReS@X07**@X0FTeR!"
  90.         Case 4
  91.             Print "@X0FPRe@X07*@X08++@X07*@X0FeR!"
  92.         Case 5
  93.             Print "@X0FPR@X07*@X08+∙∙+@X07*@X0FR!"
  94.         Case 6
  95.             Print "@X0FP@X07*@X08+∙  ∙+@X07*@X0F!"
  96.         Case 7
  97.             Print "@X0F@X07*@X08+∙    ∙+@X07*@X0F"
  98.         Case 8
  99.             Print "@X07*@X08+∙      ∙+@X07*"
  100.         Case 9
  101.             Print "@X08+∙        ∙+"
  102.         Case 10
  103.             Print "∙          ∙"
  104.         Case 11
  105.             Print "            "
  106.     End Select
  107.  
  108.     Delay 1
  109.     Synchro()
  110.  
  111. Next
  112.  
  113. Endproc
  114.