1 / 86

;SUB Bulletin PPE. By Mukunda Modell. SysOp of The Round Table BBS

;SUB Bulletin PPE. By Mukunda Modell. SysOp of The Round Table BBS. ;417-683-4953. ;********************************************************************. STRING BLTNUM. INTEGER FILEDAT. STRING FILEDAT1. STRING HEADER1. STRING HIGHBLT. STRING HOLD. STRING KEY. STRING TODATE. STRING TOKEN.

lyre
Download Presentation

;SUB Bulletin PPE. By Mukunda Modell. SysOp of The Round Table BBS

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. ;SUB Bulletin PPE. By Mukunda Modell. SysOp of The Round Table BBS

  2. ;417-683-4953

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

  4. STRING BLTNUM

  5. INTEGER FILEDAT

  6. STRING FILEDAT1

  7. STRING HEADER1

  8. STRING HIGHBLT

  9. STRING HOLD

  10. STRING KEY

  11. STRING TODATE

  12. STRING TOKEN

  13. ;********************************************************************;********************************************************************

  14. TODATE = DATE()

  15. HEADER1 = U_NAME()

  16. ;********************************************************************;********************************************************************

  17. GETTOKEN token ;Get information from the command line

  18. IF (UPPER(TOKEN) = "P") GOTO PUBLIC

  19. CLS

  20. PRINTLN "@X09BLT.PPE by Mukunda Modell"

  21. PRINTLN "@X0CREGISTERED! @X0F"

  22. FOPEN 1,PPEPATH()+"BLT"+TOKEN+".DAT",O_RW,S_DN

  23. DELAY 1 • HIGHBLT = 0 • WHILE (!FERR(1)) DO • FGET 1,HOLD • HIGHBLT = HIGHBLT + 1 • ENDWHILE • DISPFILE PPEPATH()+"BLT"+TOKEN+".MNU",0 ;Display the Bulletin MENU file • PROMPTSTR 224,BLTNUM,2,"1234567890",NEWLINE • IF (BLTNUM >= 1 & BLTNUM <= HIGHBLT) THEN • DISPFILE READLINE(PPEPATH()+"BLT"+TOKEN+".DAT",BLTNUM),0 • ENDIF • END

  24. :CLOSEALL ;Close all open files

  25. FCLOSE 1

  26. FCLOSE 2

  27. FCLOSE 3

  28. FCLOSE 4

  29. FCLOSE 5

  30. FCLOSE 6

  31. FCLOSE 7

  32. RETURN

  33. :GETAKEY

  34. KEY = -1

  35. WHILE (KEY = -1) KEY = INKEY()

  36. RETURN

  37. :PRINTEND

  38. ANSIPOS 78,GETY()

  39. PRINTLN "@X1F³@X0F "

  40. RETURN

  41. :PUBLIC

  42. FOPEN 1,PPEPATH()+"PUBLIC.DAT",O_RW,S_DN

  43. CLS

  44. PRINTLN "@X0EBULLETIN.PPE@X0F V2.00 by Mukunda Modell"

  45. PRINTLN "@X0FThe Round Table BBS 417-683-4953"

  46. PRINTLN "@X0CREGISTERED@X0F to The Round Table BBS!"

  47. NEWLINES 2

  48. PRINTLN "@X1FÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"

  49. PRINT "@X1F³ #1 = @X1D"+STRING(READLINE(PPEPATH()+"PUBLIC1",2))

  50. CLREOL

More Related