home *** CD-ROM | disk | FTP | other *** search
-
- Thσá prograφ SNOOPY.CO═ wil∞ generatσ ß calendar¼á onσ montΦ ì
- pe≥á pagσá witΦ aε optiona∞ snoop∙ picture«á Thσá datßá fo≥á thσ ì
- calenda≥á anΣ picture≤ i≤ containeΣ iε thσ filσ FORT07.DAT«á Thσ ì
- prograφá ha≤á beeε modifieΣ slightl∙ t∩ ruε unde≥á Microsof⌠á F8░ ì
- FORTRAN«á However¼á iµ yo⌡ kno≈ FORTRA╬ i⌠ shouldn'⌠ bσ harΣá t∩ ì
- modif∙á i⌠ fo≥ othe≥ compilers«á Iµ thσ picture≤ arσ no⌠ desireΣ ì
- theεá placσá 1▓á consecutivσ -▓ (onσ pe≥á line⌐á afte≥á thσá linσ ì
- indicatinτ thσ startinτ anΣ endinτ dates« T∩ changσ thσ startinτ ì
- anΣá endinτ date≤ oµ thσ calenda≥ tha⌠ i≤ printeΣ therσ i≤ ß linσ ì
- tha⌠ look≤ likσ this.
-
- 1 1986 01 1987 11
-
- B∙á changinτ thσ abovσ startinτ anΣ endinτ month≤ anΣá year≤á yo⌡ ì
- caεá creatσá ßá calenda≥ fo≥ an∙ numbe≥ oµ month≤á iεá an∙á year« ì
- PLEAS┼ NOTE║ thσ blank≤ iε thσ linσ arσ significant!
-
- ------=======****** WARNING ******=======-------
-
- Al∞ thσ line≤ u≡ t∩ thσ abovσ linσ mus⌠ enΣ witΦ ß C╥ (0DH⌐ ONLY« ì
- no⌠á ß crlµ (0D0AH)«á Iµ yo⌡ edi⌠ thσ file¼á usσ wordsta≥ iε thσ ì
- non-documen⌠ mode«á (note║ thσ MI╪ edito≥ wil∞ NO╘ work¼ i⌠ add≤ ì
- thσ lf's).
-
- OUTPUT:
- Thi≤áá prograφáá wil∞áá creatσá ßáá filσáá witΦáá thσáá namσ ì
- "CALENDAR.PRN"« Makσ surσ tha⌠ yo⌡ havσ enougΦ rooφ oε you≥ disδ ì
- fo≥ thi≤ file¼ i⌠ come≤ ou⌠ t∩ abou⌠ 220K« Thi≤ filσ caε theε bσ ì
- directl∙á printeΣ oε ß 13▓ columε printer«á Iµ yo⌡ d∩ no⌠ havσ ß ì
- 13▓ columε printe≥ bu⌠ d∩ havσ aε EPSO╬ MX-8░ serie≤ printe≥ theε ì
- yo⌡á caε outpu⌠ thσ followinτ strinτ anΣ i⌠ wil∞ prin⌠ ou⌠á fine« ì
- (i.σ Iε BASI├ LPRIN╘ CHR$(27)+"1"+CHR$(27)+"P"+CHR$(27)+"Cró )
-
- FILES:
- Thσá filσ "FORT07.DATó mus⌠ bσ oε thσ currentl∙ loggeΣ disk« ì
- Thσá filσ "CALENDAR.PRNó wil∞ bσ outpu⌠ oε thσá currentl∙á loggeΣ ì
- disk.
-
-
- HISTORY:
- A≤á fa≥ a≤ ╔ kno≈ thi≤ prograφ originateΣ a⌠ thσá UNIVERSIT┘ ì
- oµ CINCINNAT╔ compute≥ center«á Thσ autho≥ i≤ unknowε anΣ i⌠ wa≤ ì
- writteε sometimσ beforσ thσ yea≥ 1978.
-