1 / 74

;*****************************************************************************

;*****************************************************************************. ;Shows Users their Internet Address While On Your System E-BLT Ver 1.2 Code. ;*****************************************************************************. STRING cfg(2). STRING name,newname,umixed. INTEGER i.

susane
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. ;Shows Users their Internet Address While On Your System E-BLT Ver 1.2 Code

  3. ;*****************************************************************************;*****************************************************************************

  4. STRING cfg(2)

  5. STRING name,newname,umixed

  6. INTEGER i

  7. BOOLEAN flag

  8. LET name = U_NAME()

  9. :MAIN

  10. FOPEN 1,PPEPATH()+PPENAME()+".CFG",O_RD,S_DN

  11. FGET 1,cfg(0)

  12. FGET 1,cfg(1)

  13. FGET 1,cfg(2)

  14. FCLOSE 1

  15. IF (!ANSION()) THEN GOTO NOANSI

  16. ELSE

  17. ENDIF

  18. :ADDRESS

  19. LET newname = " "

  20. flag = FALSE

  21. WHILE (!flag) DO

  22. umixed = MIXED(name)

  23. flag = TRUE

  24. ENDWHILE

  25. newname = REPLACE(LOWER(U_NAME())," ",".")

  26. CLS

  27. PRINTLN "@POFF@@X1BÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»@X07"'@X0F

  28. PRINTLN "@X1Bº@X1F @X1FYour FidoNet/InterNet Address's While On @BOARDNAME:32C@ @X1Bº"'@X0F

  29. PRINTLN "@X1BÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"'@X0F

  30. PRINTLN "@X1BÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ@X1B»@X17"'@X0F

  31. PRINTLN "@X1Bº Your FidoNet E-Mail Address is : @X1Bº@X17"'@X0F

  32. PRINTLN "@X1BÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ@X1B¼@X07"'@X0F

  33. PRINTLN "@X0EA Example FidoNet Message Would Look Like: "'@X0F

  34. PRINTLN "@X0FT0 : Joe User@1:361/563 "'@X0F

  35. PRINTLN "FROM : "'@X0F

  36. PRINTLN "Subject : Whatever You Wish "'@X0F

  37. PRINTLN "@X1BÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ@X1B»@X17"'@X0F

  38. PRINTLN "@X1Bº Your InterNet E-Mail Address is : @X1B@X1Bº@X17"'@X0F

  39. PRINTLN "@X1BÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ@X1B¼"'@X0F

  40. PRINTLN "@X0EA Example Internet Message Would Look Like : "'@X0F

  41. PRINTLN "@X0FTO : uucp@ "'@X0F

  42. PRINTLN "From : "'@X0F

  43. PRINTLN "@X0FSubject : Whatever You Wish "'@X0F

  44. PRINTLN "@X1BÉ@X1FTEXT:@X1BÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"'@X0F

  45. PRINTLN "@X1Bº To:joe.user.blah.blah @X1B º"'@X0F

  46. PRINTLN "@X1Bº @X1B º"'@X0F

  47. PRINTLN "@X1Bº You start your message here on line 3 of the text editor @X1B º"'@X0F

  48. PRINTLN "@X1BÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ@X1CE-BLT.PPE ver 1.2 by Micro-Comp Software@X1BÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"'@X0F

  49. ANSIPOS 36,5

  50. PRINT "@X1C" + umixed + "@" + cfg(0)'@X0F

More Related