wx(ùINIÔFINDDAYÙFINDDAYÍYEARPRINÔPAGEPRINT±PAGEPRINT²KEYPRESÓSTYLÅLENGTH¤YEAÒKEÙMONTÈFORMAÔMONTH¤LINE¤KEY¤LEAÐÙDAÙDAYÍÍDATÅAA A0AA@APAA llx<<´%%*******************************›%%* TUTORIAL SUBROUTINE *›%%* DIARY PAGE MAKER *›%%* by *›%%* Ian Finlayson *›%%* --------------------------- *›%%* NEW ATARI USER - February 90*›%%*******************************› › %@‚@(}% A`c6€-A6-A '6‚-A036ƒ-A?6„-A@K6…-APW6†-Ac6‡-A €*** INITIALISE›6ˆ. 30323233232344(+}WHAT YEAR DO YOU WANT DIARY PAGES FOR?( @02‰ B<$ $*** FIND FIRST DAY OF YEAR›F$ (PRINT ALL MONTHS?(Y/N) $ †P'Š"@‰)Š"A! ƒ' A`Z Ad5'(WHICH MONTH TO PRINT? (1-12) +‹5 Bn!!‹ @)‹!@@x ‡‚  ‚ *** FIRST DAY OF MONTH›ŒŒ"@ „–Œ"@ … +'(}ANY MORE PAGES TO PRINT? + †ª!!Š"@‰)Š"A!@0´3>:@',>:@d,+ee******************* *** PRINTYEAR *** *******************›, ‡6‹-@@@% ‚%*** FIND FIRST DAY OF MONTH›JŒ"@ „TŒ"@ …^ ‹h$ee******************* *** STYLE *** *******************› Aš51((}ONE (1) OR TWO (2) PAGES PER MONTH 5Œ¤ B®$óee******************* *** KEYPRESS *** *******************›ô##@@K:þ)@Š@$çdd****************** *** INITIALISE *** ******************›è11ˆ;@,;A,Ž;@`,;@,ümm6.c JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY AUGUSTSEPTEMBER OCTOBER NOVEMBER$$67A<A,. DECEMBER+ 6Ž._6Ž7@`,._+6Ž7@,.Ž&&3>:@',>:A,>:@,B$Ïkk************************* *** FIRST DAY OF YEAR *** *************************›ÐRR6-+‰"@$P:‰'@,,&+‰"A$P:‰'A,,%+‰"A$P:‰'A,,Ú  6ˆ7@<@,.1ä>6‘-‰&@>6’-‰%P:‘'@,&P:‘'A,%P:‘'A,î66’-’&@$P:’'@,*’"66’-@ø$· ll************************** *** FIRST DAY OF MONTH *** **************************›¸  6“-’‹"@$Ì ”-@‹Ö ##6“-“%A:ˆ7”&@<”&@,,à “!@6“-“&@ê  ”ô $Ÿnn***************************** ** PRINT 1 MONTH - 1 PAGE ** ****************************› **37‹$@ &@<‹$@ , ‰ª3Ž´!!•-@@(%A:ˆ7‹<‹,,¾$“"@ 3 MONDAY •$3ŽÈ$“"@ 3 TUESDAY •$3ŽÒ$“"@ 3 WEDNESDAY •$3ŽÜ$“"@ 3 THURSDAY •$3Žæ$“"@ 3 FRIDAY •$3Žð$“"@ 3 SATURDAY •$3Žú$“"@ 3 SUNDAY •$3Ž)6“-“%@“"@)6“-@h •3>:@,$‡nn***************************** ** PRINT 1 MONTH - 2 PAGES ** ****************************›ˆ**37‹$@ &@<‹$@ , ‰’3Žœ2•-@@! AQ0% •23>:@,¦4437‹$@ &@<‹$@ , ‰ (cont)°3Žº/!•-@@(%A:ˆ7‹<‹,,+ AQ0/ •Ä 3NOTES3>:@,$ *“"@ 3 MONDAY •#3&3*3Ž*“"@ 3 TUESDAY •#3&3*3Ž*“"@ 3 WEDNESDAY •#3&3*3Ž(*“"@ 3 THURSDAY •#3&3*3Ž2*“"@ 3 FRIDAY •#3&3*3Ž<$“"@ 3 SATURDAY •$3ŽF$“"@ 3 SUNDAY •$3ŽP)6“-“%@“"@)6“-@Z$pVAdAU*F:A•,"A8V('PRINTER NOT READY - RETURN TO TRY AGAINzF:Ad,AU%„ A`€D:DIARY