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 >
Wrap
Text File
|
1997-06-20
|
2KB
|
67 lines
; my sources still ain't no tutorials, it's meSsy
STRING COL1, PROMPT(99), ENDLINE, SHOW, ANSWER(99), ANSWER2(99), ANSWER3(99)
STRING TODUDE
INT NUMPROMPTS, X
CLS
DispFile ppepath()+"new_usr.pcb", graph
FOPEN 0, PPePath()+"new_usr.cfg", O_RW, S_DR
FGET 0, COL1
FGET 0, NUMPROMPTS
FOR X = 1 TO NUMPROMPTS
FGET 0, PROMPT(X)
NEXT X
FGET 0, ENDLINE
FGET 0, TODUDE
FCLOSE 0
ANSIPOS 76,10
PRINT "@X03(@X05",NUMPROMPTS,"@X03)"
FOR X = 1 TO NUMPROMPTS
ANSIPOS 42, 5
Print " "
AnsiPos 44, 6
Print " "
AnsiPos 43, 7
Print " "
AnsiPos 43, 8
Print " "
Print COl1
ANSIPOS 42, 5
print Left(Prompt(x),Len(Prompt(x))-3)
AnsiPos 44, 6
InputStr "_", ANSWER(x), 7, 35, MASK_ASCII()+"¢æå¥ÆÅ", UPCASE
Ansipos 43, 7
If (Right(Prompt(x),1) = "2") then InputStr "_", ANSWER2(x), 7, 36, MASK_ASCII()+"¢æå¥ÆÅ", UPCASE: endif
IF (Right(Prompt(x),1) = "3") then
Ansipos 43, 7
InputStr "_", ANSWER2(x), 7, 36, MASK_ASCII()+"¢æå¥ÆÅ", UPCASE
Ansipos 43, 8
InputStr "_", ANSWER3(x), 7, 36, MASK_ASCII()+"¢æå¥ÆÅ", UPCASE
endif
ANSIPOS 76,10
PRINT "@X03(@X05",NUMPROMPTS-X,"@X03)"
NEXT X
CLS
Print "@X07Saving your application..."
FCREATE 0,PPEPATH()+"APPIE.TXT", O_WR, S_dR
FPUTLN 0,"New Application:"
FPUTLN 0,"-%--------------------------------------------------------------------%-"
FOR X = 1 TO NUMPROMPTS
FPUTLN 0,Left(Prompt(x),Len(Prompt(x))-3)
FPUTLN 0,">",answer(x)
if (answer2(x) <> "") then FPUTLN 0,">",answer2(x): endif
if (answer3(x) <> "") then FPUTLN 0,">",answer3(x): endif
FPUTLN 0,"-%--------%-"
NEXT X
FPUTLN 0,"New User Apply by Codeblaster of Food'97!"
FCLOSE 0
Println "DONE!"
Print "Sending application to sysop..."
MESSAGE 0, TODUDE, "CODEBLASTER", "@X0FNEW USER?", "R", FALSE, FALSE, FALSE, PPEPATH()+"APPIE.TXT"
Println "DONE!"
Println
Println EndLine
DTROFF
HANGUP