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 / MBUG017.ARC / GREGORY.COM (.txt) < prev    next >
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1979-12-31  |  15KB  |  93 lines
  1. Copyright (C) 1985 BORLAND Inc
  2. Microbeenal SelectedP
  3.  .,;:=?*[]<>{}
  4. ^#V#N#F
  5. s#r#q#p
  6.     #^#V
  7. 9^#Vh&
  8. |/g}/o#
  9. T]=o`9y
  10. T9^K#
  11. 8/<oz
  12. T9^K#
  13. oGOW_g
  14. `1pF,
  15. LSTCAUX
  16. >~O6~*
  17.  .##~
  18. TRUEFALSE
  19. ##N#F*
  20. ##~++
  21.     N#F#s#r
  22. N#F#^#V
  23. Nw#Fw
  24. q#p#6
  25. #w#w#w
  26. >!DM!
  27. <(    !\
  28. Ns#Fr
  29. User break
  30. Run-time
  31.  error 
  32. , PC=
  33. Not enough memory
  34. Program aborted
  35. Year  <     >
  36.  ONLY YEARS AFTER 1582    
  37. ONLY YEARS BEFORE 3000
  38.     Gregorian
  39. ANY YEAR CALENDAR
  40. ^^^^^^^^^^^^^^^^^^^^^
  41. by C. A. Bennetts
  42.  Version 2.0
  43. +)]T)
  44. Now printing -
  45. Now Saving - !
  46.           
  47.  SU MO TU WE TH FR SA!
  48.  SU MO TU WE TH FR SA!
  49.  SU MO TU WE TH FR SA!
  50.      
  51. I  <T>oggle  <N>ewYear  <+>year  <H>elp  <->year  <P>rint  <S>ave  <Q>uit 
  52. 2                       Gregorian Any Year Calendar
  53. C          This Program will print a Calendar for any Gregorian year
  54. C          1583 to 3000 only.   If a number less than 100 is entered
  55. 0          then the twentieth century is assumed.
  56. C          The program is written in Turbo Pascal on a 128k Microbee
  57. @          <T>  To toggle between the two halves of a single year
  58. 0          <N>  To allow you to select a new year
  59. )          <+>  To advance the year by one
  60. )          <->  To reverse the year by one
  61. #          <H>  To display this help
  62.            <P>  To print calendar
  63.           <S>  To save as file
  64.           <Q>  To end Program
  65. File name - A:GREGORY .CAL
  66. A:GREGORY.CAL
  67.         
  68. GREGORY
  69.       JANUARY
  70.      FEBRUARY
  71.        MARCH 
  72.        APRIL 
  73.        MAY   
  74.        JUNE  
  75.        JULY  
  76.       AUGUST 
  77.     SEPTEMBER
  78.      OCTOBER 
  79.      NOVEMBER
  80.      DECEMBER
  81. s#r!*
  82. s#r!*
  83. s#r!*
  84. s#r!*
  85. s#r!*
  86. s#r!*
  87. s#r!*
  88. s#r!*
  89. s#r!*
  90. s#r!*
  91. s#r!*
  92. Now Printing - 
  93.