home *** CD-ROM | disk | FTP | other *** search
/ Carsten's PPE Collection / Carstens_PPE_Collection_2007.zip / F / FOOD_NUA.ZIP / NEW_USR.PPS < prev    next >
Text File  |  1997-06-20  |  2KB  |  67 lines
  1. ; my sources still ain't no tutorials, it's meSsy
  2.  
  3. STRING COL1, PROMPT(99), ENDLINE, SHOW, ANSWER(99), ANSWER2(99), ANSWER3(99)
  4. STRING TODUDE
  5. INT NUMPROMPTS, X
  6.  
  7. CLS
  8. DispFile ppepath()+"new_usr.pcb", graph
  9. FOPEN 0, PPePath()+"new_usr.cfg", O_RW, S_DR
  10. FGET 0, COL1
  11. FGET 0, NUMPROMPTS
  12. FOR X = 1 TO NUMPROMPTS
  13.  FGET 0, PROMPT(X)
  14. NEXT X
  15. FGET 0, ENDLINE
  16. FGET 0, TODUDE
  17. FCLOSE 0
  18.  
  19. ANSIPOS 76,10
  20. PRINT "@X03(@X05",NUMPROMPTS,"@X03)"
  21. FOR X = 1 TO NUMPROMPTS
  22. ANSIPOS 42, 5
  23. Print "                                     "
  24. AnsiPos 44, 6
  25. Print "                                   "
  26. AnsiPos 43, 7
  27. Print "                                    "
  28. AnsiPos 43, 8
  29. Print "                                    "
  30. Print COl1
  31. ANSIPOS 42, 5
  32. print Left(Prompt(x),Len(Prompt(x))-3)
  33. AnsiPos 44, 6
  34. InputStr "_", ANSWER(x), 7, 35, MASK_ASCII()+"¢æå¥ÆÅ", UPCASE
  35. Ansipos 43, 7
  36. If (Right(Prompt(x),1) = "2") then InputStr "_", ANSWER2(x), 7, 36, MASK_ASCII()+"¢æå¥ÆÅ", UPCASE: endif
  37. IF (Right(Prompt(x),1) = "3") then
  38.         Ansipos 43, 7
  39.          InputStr "_", ANSWER2(x), 7, 36, MASK_ASCII()+"¢æå¥ÆÅ", UPCASE
  40.          Ansipos 43, 8
  41.          InputStr "_", ANSWER3(x), 7, 36, MASK_ASCII()+"¢æå¥ÆÅ", UPCASE
  42.         endif
  43. ANSIPOS 76,10
  44. PRINT "@X03(@X05",NUMPROMPTS-X,"@X03)"
  45. NEXT X
  46. CLS
  47. Print "@X07Saving your application..."
  48. FCREATE 0,PPEPATH()+"APPIE.TXT", O_WR, S_dR
  49.  FPUTLN 0,"New Application:"
  50.  FPUTLN 0,"-%--------------------------------------------------------------------%-"
  51. FOR X = 1 TO NUMPROMPTS
  52.  FPUTLN 0,Left(Prompt(x),Len(Prompt(x))-3)
  53.  FPUTLN 0,">",answer(x)
  54.  if (answer2(x) <> "") then FPUTLN 0,">",answer2(x): endif
  55.  if (answer3(x) <> "") then FPUTLN 0,">",answer3(x): endif 
  56.  FPUTLN 0,"-%--------%-"
  57. NEXT X
  58.  FPUTLN 0,"New User Apply by Codeblaster of Food'97!"
  59. FCLOSE 0
  60. Println "DONE!"
  61. Print "Sending application to sysop..."
  62. MESSAGE 0, TODUDE, "CODEBLASTER", "@X0FNEW USER?", "R", FALSE, FALSE, FALSE, PPEPATH()+"APPIE.TXT"
  63. Println "DONE!"
  64. Println
  65. Println EndLine
  66. DTROFF
  67. HANGUP