1 / 209

; apz timebank v1.06 - bl„„.

; apz timebank v1.06 - bl„„. ;. ; PCBSM -> USER INFO FILE MAINTENANCE -> ADD/UPDATE THIRD PARTY APPLICATION. ; TPA: APZBANK. ; Ver: 10. ; Static: 20. ; Dynamic: 0. ; Key: APZBANK. ; --------------------------------------------------------------------------.

saniya
Download Presentation

; apz timebank v1.06 - bl„„.

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. ; apz timebank v1.06 - bl„„.

  2. ;

  3. ; PCBSM -> USER INFO FILE MAINTENANCE -> ADD/UPDATE THIRD PARTY APPLICATION

  4. ; TPA: APZBANK

  5. ; Ver: 10

  6. ; Static: 20

  7. ; Dynamic: 0

  8. ; Key: APZBANK

  9. ; --------------------------------------------------------------------------

  10. DECLARE PROCEDURE WITHDRAW(BOOLEAN TIMED)

  11. DECLARE PROCEDURE DEPOSIT(BOOLEAN TIMED)

  12. DECLARE PROCEDURE CONFIGURE()

  13. DECLARE PROCEDURE LOAD()

  14. DECLARE PROCEDURE SAVE()

  15. DECLARE PROCEDURE MENU()

  16. DECLARE FUNCTION KILOLEFT() LONG

  17. DECLARE PROCEDURE CHANGEUSER()

  18. DECLARE FUNCTION UPPER2(STRING INPUTTI) STRING

  19. *USEFUNCS

  20. ; --------------------------------------------------------------------------

  21. STRING TPA

  22. STRING TEMP

  23. STRING CH

  24. STRING CH2

  25. STRING TEMPSTR

  26. STRING INPUTTI

  27. STRING TEMP2

  28. INTEGER TMP

  29. INTEGER TMP2

  30. INTEGER TMP3

  31. INTEGER I2

  32. LONG KILOS

  33. LONG TIME

  34. LONG MAXKILOS

  35. LONG MAXTIME

  36. BOOLEAN UNLIMITED

  37. ; --------------------------------------------------------------------------

  38. ;begin

  39. log "Entered APzTimeBank",false

  40. load()

  41. menu()

  42. save()

  43. end

  44. PROCEDURE WITHDRAW(BOOLEAN TIMED)

  45. tmp=0

  46. if (timeD=true) then • :withdrawtime • ansipos 1,14 • print "[K" • inputtext "@X0F How many minutes to withdraw",tmp,"@X0F",5 • if ((tmp<0) | (tmp>time) | (tmp>32000) | ((tmp+minleft())>32000)) then • ansipos 1,14 • print "[K" • print "@X0C Get real!" • delay 18 • goto withdrawtime • endif • log "Withdraw "+string(tmp)+" min",false • adjtime tmp • time=time-tmp

  47. else • :withdrawkilos • ansipos 1,14 • print "[K" • inputtext "@X0F How many kilos to withdraw",tmp,"@X0F",5 • if ((tmp<0) | (tmp>kilos) | (tmp>32766) | ((tmp+kiloleft())>32766)) then • ansipos 1,14 • print "[K" • print "@X0C Get real!" • delay 18 • goto withdrawkilos • endif • log "Withdraw "+string(tmp)+" kb",false • tmp2=0-tmp • adjdbytes tmp2*1024 • kilos=kilos-tmp

  48. endif

  49. ENDPROC

  50. PROCEDURE DEPOSIT(BOOLEAN TIMED)

More Related