home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG076.ARC / BULLETIN.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  4KB  |  77 lines
  1. 100 REM: *** BULLETIN BOARD / CHARGES   ***
  2. 110 REM: *** Written in MBASIC V. 5.21  ***
  3. 120 REM: *** on a 128K Microbee         ***
  4. 130 REM: *** for Admate DP100 printer   ***
  5. 140 REM: *** Saved in ASCII.            ***
  6. 150 REM: *** Date:          23/Apr/1986 ***
  7. 160 REM: *** By: Robert Kompier         ***
  8. 170 REM: ***     99 Swanport Road       ***
  9. 180 REM: ***     MURRAY BRIDGE, 5253    ***
  10. 190 REM: ***     South Australia        ***
  11. 200 REM: ***     Phone: (085) 324059    ***
  12. 210 REM: **********************************
  13. 220 REM: *** Note: In my listing, extraneous numbers,    ***
  14. 230 REM: *** like .257 appear here & there. I can't get  ***
  15. 240 REM: *** rid of them. However, they do not seem to   ***
  16. 250 REM: *** interfere with the programme's operation.   ***
  17. 260 REM: *** Any comments ( good, bad,  ***
  18. 270 REM: *** or otherwise ) can be      ***
  19. 280 REM: *** left on MBBS or OMENV.     ***
  20. 290 REM: **********************************
  21. 300 REM: *** Print(er) controls                          ***
  22. 310 REM: *** CHR$(27);(41)     : Inverse                 ***
  23. 320 REM: *** CHR$(27);(40)     : Normal                  ***
  24. 330 REM: *** CHR$(27);"@"      : Initializes printer     ***
  25. 340 REM: *** CHR$(27);"-";(1)  : Underline On            ***
  26. 350 REM: *** CHR$(27);"-";(0)  : Underline Off           ***
  27. 360 REM: *** CHR$(7)           : Console Bell            ***
  28. 370 REM: *** CHR$(12)          : FormFeed                ***
  29. 380 REM: *** <SHIFT> <DEL>     : Underline character     ***
  30. 390 REM: *** CHR$(26)          : Clear Screen            ***
  31. 400 WIDTH LPRINT 80
  32. 410 PRINT CHR$(26);
  33. 420 PRINT TAB(27);"BULLETIN BOARD / CHARGES":PRINT:PRINT
  34. 430 INPUT"How many copies do you need : ",COPIES
  35. 440 PRINT:PRINT CHR$(27);CHR$(41);"Press <CR> when printer is Online.....";CHR$(27);CHR$(40);
  36. 450 CR$="":CR$=INKEY$:IF CR$="" THEN 450.257.257.257
  37. 460 IF CR$<>CHR$(13) THEN 450.257.257.257
  38. 470 IF COPIES<=1 THEN COPIES=1 ELSE FOR NUMBER=1 TO COPIES
  39. 480 LPRINT CHR$(27);"@";
  40. 490 LPRINT CHR$(27);"-";CHR$(1);"BULLETIN BOARD / CHARGES";CHR$(27);"-";CHR$(0);
  41. 500 LPRINT" from: __/___/____ to: __/___/____":LPRINT
  42. 510 FOR C=1 TO 80:LPRINT ".";:NEXT C
  43. 520 LPRINT"DATE    :BULLETIN   :LOG-ON  :LOG-OFF :CONNECT TIME :APPROX:ACCUM. :FILENAME.TYP"
  44. 530 LPRINT"        :BOARD      :TIME    :TIME    :             :CHARGE:CHARGE :"
  45. 540 FOR C=1 TO 80:LPRINT ".";:NEXT C
  46. 550 LPRINT:LPRINT
  47. 560 FOR LINES=1 TO 30
  48. 570 LPRINT"__/__/__ ___________ __:__:__ __:__:__ __ min __ sec $__.__ $___.__ ________.___";
  49. 580 NEXT LINES
  50. 590 LPRINT:LPRINT
  51. 600 LPRINT"Total Connect Time/Charge        __ hr __ min __ sec        $___.__"
  52. 610 LPRINT
  53. 620 FOR C=1 TO 80:LPRINT "O";:NEXT C
  54. 630 LPRINT TAB(10);"TELECOM charges as at AUG/1986 - All costs per minute on STD"
  55. 640 FOR C=1 TO 80:LPRINT ".";:NEXT C
  56. 650 LPRINT":.......\TIMES:MON-SAT    :SUNDAY  :MON-SAT :MON-SAT       :MON-SUN:           :"
  57. 660 LPRINT":........\    :8am-12.30pm:All Day :6pm-10pm:12.30pm-1.30pm:       :           :"
  58. 670 LPRINT":.........\   :1.30pm-6pm :MON-SAT :        :              :       :           :"
  59. 680 LPRINT":..........\  :           :10pm-8am:        :              :       :           :"
  60. 690 LPRINT":DISTANCE...\ :           :        :        :              :       :           :"
  61. 700 FOR C=1 TO 80:LPRINT ".";:NEXT C
  62. 710 LPRINT TAB(0);
  63. 720 LPRINT":Local        :           :        :        :              :  18c  :           :"
  64. 730 LPRINT": 25 -   50km :   10c     :   5c   :   6.7c :     9c       :       :           :"
  65. 740 LPRINT": 50 -   85km :   20c     :  10c   :  13.3c :    18c       :       :           :"
  66. 750 LPRINT": 85 -  165km :   30c     :  15c   :  20c   :    27c       :       :           :"
  67. 760 LPRINT":165 -  745km :   40c     :  22.5c :  30c   :    36c       :       :           :"
  68. 770 LPRINT":Over   745km :   60c     :  30c   :  40c   :    59c       :       :           :"
  69. 780 FOR C=1 TO 80:LPRINT ".";:NEXT C
  70. 790 FOR C=1 TO 80:LPRINT "O";:NEXT C
  71. 800 PRINT CHR$(7);
  72. 810 IF COPIES=1 THEN 820.257.257.257 ELSE LPRINT CHR$(12);:NEXT NUMBER
  73. 820 PRINT CHR$(26);:SYSTEM
  74. EXT C
  75. 800 PRINT CHR$(7);
  76. 810 IF COPIES=1 THEN 820.257.257.257 ELSE LPRINT CHR$(12);:NEXT NUMBER
  77. 820 PRI