home *** CD-ROM | disk | FTP | other *** search
/ CD Shareware Magazine 1996 December / CD_shareware_12-96.iso / DOS / Comunic / LIGHTDOC.ZIP / LIGHT-LR.PPS < prev    next >
Encoding:
Text File  |  1996-08-28  |  2.0 KB  |  62 lines
  1. ; LiGHTBAR PPE DONE BY SLAYER ...
  2. ; THiZ PPE WAS WRiTTEN BY SLAYER TO SHOW *EVERYBODY* HOW TO
  3. ; PROGRAMM LiGHTBARS iN A PPE
  4. ; SO IF YOU WANNA KNOW HOW, READ THE DOC FiLE,
  5. ; TAKE A LOOK AT THiZ COMMENTED SOURCE CODE
  6. ; AND WATCH DA COMPiLED PPE !
  7.  
  8. STRING KEY ; THIS iS THE ONLY NEEDED VARIABLE
  9.        ; FOR ALL USER iNPUTS (CURSOR MOVEMENTS ETC ETC)
  10.  
  11. ; I GONNA GiVE YOU THE EXAMPLE WiTH A YES/NO LiGHTBAR PPE
  12. ; THiZ PPE WiLL BE WiTH LEFT/RiGHT AND THE OTHER ONE
  13. ; WITH UP/DOWN
  14.  
  15. :INIT
  16.     CLS ; CLEAR THE SCREEN
  17.     Print "@POFF@" ; DiSABLE MORE QUESTiON !
  18.  
  19. :YES ; GRAFiX DiSPLAY
  20.     AnsiPos 1,10 ; MOVE CURSOR TO POS. X=1 , Y=10
  21.     Print "@X0FDO YOU WANT iT [@X4FYES@X0F] [NO]" ; DiSPLAY YES HIGHLiGHTED
  22.     
  23. :YESWAIT ; WAIT FOR USER iNPUT
  24.     KEY = INKEY() ; DECLARE THE "KEY" VARIABLE AS THE NEXT PRESSED KEY
  25.               ; LiKE READKEY iN PASCAL
  26.     IF ((KEY = "RIGHT")) GOTO NO ; IF THE NEXT PRESSED KEY iS THE CURSOR
  27.                      ; TO RiGHT GOTO THE "NO" LABLE
  28.     IF ((KEY = CHR(13))) GOTO YESCHOOSE ; IF THE NEXT PRESSED KEY iS
  29.                         ; IS CHR(13) [ENTER KEY]
  30.                         ; GOTO YES CHOOSE
  31.     GOTO YESWAIT ; REPEAT THiS PART UNTiL THE PRESSED KEY MATCHES
  32.              ; ONE OF THiS KEYS
  33.  
  34. ; iMPORTANT KEYS : CHR(13) = ENTER
  35. ;           CHR(27) = ESCAPE
  36.  
  37. :NO ; GFX LABLE FOR NO HiGHLiGHTED
  38.     AnsiPos 1,10 ; MOVE CURSOR AGAiN TO X=1, Y=10
  39.     Print "@X0FDO YOU WANT iT [YES] [@X4FNO@X0F]" ; DiSPLAY NO HiGHLiGHTED
  40.  
  41. :NOWAIT ; LABEL FOR NO
  42.     KEY = INKEY() ; SEE ABOVE
  43.     IF ((KEY = "LEFT")) GOTO YES ; IF THE KEY iS LEFT ... GOTO YES AGAIN
  44.     IF ((KEY = CHR(13))) GOTO NOCHOOSE ; iF THE KEY iS ENTER NOW, 
  45.                        ; GOTO NO CHOOOSE
  46.     GOTO NOWAIT ; AGAIN REPEAT !
  47.  
  48. :YESCHOOSE ; THE CHOICE FOR YES
  49.     CLS ; CLEAR SCREEN
  50.     PrintLn "YOU'VE CHOOSEN YES!" ; Print SOMETHiNG
  51.     WAIT ; WAIT FOR ENTER AGAiN (USES PCBTXT PRoMPTS)
  52.     GOTO END ; GOTO END PPE
  53.  
  54. :NOCHOOSE ; THE CHOiSE FOR NO
  55.     CLS ; SEE ABOVE
  56.     PrintLn "YOU'VE CHOOSEN NO!" ; PRiNT SOMETHiNG
  57.     WAIT ; WAIT FOR ENTER AGAiN (USES PCBTXT PRoMPTS)
  58.     GOTO END ; NORMALLY USELESS COZ THE NEXT LABLE iS END :-)
  59.  
  60. :END
  61. END ; END THE PPE
  62.