1 / 61

;------------------------------------------------------------------------------

;------------------------------------------------------------------------------. ;Sorry i dont know how to do released source codes they call algarithms. ;fuck all that, heres the code i wrote, it compiles and runs so what else. ;do you need!.

dhoehne
Download Presentation

;------------------------------------------------------------------------------

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. ;------------------------------------------------------------------------------;------------------------------------------------------------------------------

  2. ;Sorry i dont know how to do released source codes they call algarithms.

  3. ;fuck all that, heres the code i wrote, it compiles and runs so what else

  4. ;do you need!

  5. ;------------------------------------------------------------------------------;------------------------------------------------------------------------------

  6. String STRING001

  7. String STRING002

  8. String STRING003

  9. String STRING004 • string string005 • string string006 • string string007 • string string008 • string string009 • integer integer001 • integer integer002 • integer integer003 • integer integer004 • integer integer005

  10. ;------------------------------------------------------------------------------;------------------------------------------------------------------------------ • if (!Exist(ppepath() + "xturbo.pcb")) then • fcreate 4, ppepath() + "xturbo.pcb", 2, 0 • fputln 4, "@X08---------------@X07 @X08---@X07 @X08--@X07 " • fputln 4, " @X0BT@X03urbo@X0B L@X03ogon@X07 " • fputln 4, "@X08-----------------@X07 @X08------@X07 " • fputln 4, " " • fputln 4, " @X0Fa." • fputln 4, " @X0Fb." • fputln 4, " " • fputln 4, "@X08------------ -------- ------@X07 " • fputln 4, "@X3Fi@X03nput@X0D @X3Fc@X03hoice@X08:@X07 @X88_@X07 " • fputln 4, "@X08---------------------@X07 @X08---@X07 @X08 ---@X07 " • fputln 4, "" • fclose 4 • if (exist(ppepath() + "xturbo.cfg")) delete ppepath() + "xturbo.cfg" • fcreate 3, ppepath() + "xturbo.cfg", 2, 0 • fputln 3, "30" • fputln 3, "6 5" • fputln 3, "6 6" • fputln 3, "YES" • fputln 3, "@X3B" • fputln 3, "@X08" • fputln 3, "" • fputln 3, "--- (XTurbo Version 2.o2 configuration file!) -------------------------------" • fputln 3, " Line One : The minimum security level to run the program. Users with access" • fputln 3, " levels higher than this number will go straight into displaying" • fputln 3, " the file Xpert.TXT." • fputln 3, " Line Two : The x/y co-ordinates of the `no turbo login'" • fputln 3, " Line Three: The x/y co-ordinates of the `yes turbo login'" • fputln 3, " Line Four : If `YES' the ppe will see if the user has the expert mode on." • fputln 3, " If he/she does, it will go straight into displaying the file" • fputln 3, " Xpert.TXT" • fputln 3, " Line Five : The PCB colour code for the selected litebar" • fputln 3, " Line Six : The PCB colour code for the non-selected litebar" • fputln 3, "" • fclose 3 • endif • if (!exist(ppepath() + "xturbo.cfg")) then • log "@X0CERROR! XTURBO.PPE COULDNT FIND XTURBO.CFG!", 1 • end • endif

  11. GetUser

  12. STRING003 = ReadLine(PPEPath() + "xturbo.CFG", 1) • integer001 = string003

  13. ; If (U_Sec >= integer001) Goto LABEL006 • string005 = readline(ppepath() + "xturbo.cfg", 2) • tokenize string005 • integer002 = gettoken() • integer003 = gettoken() • string006 = readline(ppepath() + "xturbo.cfg", 3) • tokenize string006 • integer004 = gettoken() • integer005 = gettoken() • string007 = readline(ppepath() + "xturbo.cfg", 4) • if ((Upper(string007) == "YES")) then • getuser • if ((U_expert)) goto label006 • endif • string008 = readline(ppepath() + "xturbo.cfg", 5) • string009 = readline(ppepath() + "xturbo.cfg", 6)

  14. STRING001 = " No turbo login! "

  15. STRING002 = " Yes turbo login! " • print "@CLS@@POFF@"

  16. DispFile PPEPath() + "xturbo.PCB", 1

  17. :LABEL001

  18. AnsiPos integer002, integer003

  19. Print upper(string008) + STRING001

  20. AnsiPos integer004, integer005

  21. Print upper(string009) + STRING002

  22. Color 0

  23. Print " "

  24. Backup 1

  25. :LABEL002

  26. STRING004 = "" • while ((string004 == "")) string004 = inkey()

  27. If ((Upper(STRING004) == "DOWN") || (STRING004 == "2")) Goto LABEL003

  28. If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL003

  29. If (STRING004 == Chr(13)) Goto LABEL005

  30. If (Upper(STRING004) == "A") Goto LABEL007

  31. If (Upper(STRING004) == "B") Goto LABEL008

  32. Goto LABEL002

  33. :LABEL003

  34. AnsiPos integer002, integer003

  35. Print string009 + STRING001

  36. AnsiPos integer004, integer005

  37. Print string008 + STRING002

  38. Color 0

  39. Print " "

  40. Backup 1

  41. :LABEL004

  42. STRING004 = "" • while ((string004 == "")) string004 = inkey()

  43. if (((Upper(STRING004) == "DOWN") || (STRING004 == "2"))) Goto LABEL001

  44. If ((Upper(STRING004) == "UP") || (STRING004 == "8")) Goto LABEL001

  45. If (STRING004 == Chr(13)) Goto LABEL006

  46. If (Upper(STRING004) == "A") Goto LABEL005

  47. If (Upper(STRING004) == "B") Goto LABEL006

  48. Goto LABEL004

  49. :LABEL005 • print "@PON@@CLS@" • if (exist(ppepath() + "logon.txt")) then • DispFile PPEPath() + "LOGON.TXT", 1 • endif

  50. End

More Related