1 / 89

; Program : WAIT prompt to replace PCBTEXT #418

; Program : WAIT prompt to replace PCBTEXT #418. ; Version : 1.10. ; Programmer : Siri/s / Oriental Royal. ; Fidonet addr.: 6:720/301. ; BBS : Sirius BBS. ; Phone number : +886-2-961-0004, +886-2-962-9282. ; Date : 01/03/1995.

heman
Télécharger la présentation

; Program : WAIT prompt to replace PCBTEXT #418

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. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. ; Program : WAIT prompt to replace PCBTEXT #418

  2. ; Version : 1.10

  3. ; Programmer : Siri\/s / Oriental Royal

  4. ; Fidonet addr.: 6:720/301

  5. ; BBS : Sirius BBS

  6. ; Phone number : +886-2-961-0004, +886-2-962-9282

  7. ; Date : 01/03/1995

  8. ; Description : This PPS replace the PCBTEXT #418, and it can runs in

  9. ; CTTY, ANSI, RIP.

  10. ; Please feel free to modify the source code, that's why

  11. ; the source code is included. If you do modify it,

  12. ; Please don't distribute your version.

  13. ; Declaration ----------------------------------------------------

  14. INTEGER X_axis

  15. INTEGER Y_axis

  16. INTEGER Counter

  17. INTEGER EA_Pos ' Erase Arrow start position (X axis)

  18. STRING KeyPress ' The Key user press

  19. STRING CR ' Carriage Return

  20. STRING Windmill(3) ' Store the symbol of Windmill

  21. STRING Prompt ' Prompt string

  22. STRING FileExt ' Language support, the extension of filename

  23. STRING WaitTxt(3) ' Store partial strin of prompt

  24. STRING WaitCfg(6) ' The configuration variable

  25. ; Initialization -------------------------------------------------

  26. LET Counter = 1

  27. LET CR = CHR(13)

  28. FOPEN 1,PPEPATH()+"WAIT.CFG",O_RD,S_DW

  29. WHILE (Counter < 7) DO ' Read the config file

  30. FGET 1,WaitCfg(Counter)

  31. INC Counter

  32. ENDWHILE

  33. FCLOSE 1

  34. LET FileExt = LANGEXT() ' Read language file for prompt

  35. IF (EXIST(PPEPATH()+"WAITTXT"+LANGEXT())) THEN

  36. FOPEN 2,PPEPATH()+"WAITTXT"+LANGEXT(),O_RD,S_DW

  37. LET Counter = 1

  38. WHILE (Counter < 4) DO

  39. FGET 2,WaitTxt(Counter)

  40. INC Counter

  41. ENDWHILE

  42. FCLOSE 2

  43. ELSE ' If language file not found, set default

  44. LET WaitTxt(1) = "Press"

  45. LET WaitTxt(2) = "Enter"

  46. LET WaitTxt(3) = "to continue"

  47. ENDIF

  48. LET Windmill(0) = "í"

  49. LET Windmill(1) = "-"

  50. LET Windmill(2) = "\"

More Related