"":53280,11:53281,0" * THE MONTHLY CALENDAR DATE KEEPER *":" PROGRAM BY ED PARVIN":" 1988":" 128-40 OR 80 COL." DO YOU NEED INSTRUCTIONS Y/N ?"Q$:Q$""4Q$"Y"800 Q$"N" 3  A$(100):B$(100)) ""Z"DO YOU WANT TO SEE A CALENDAR (Y)ES-(N)O"lQ$:Q$""20 Q$ "Y"1000("DO YOU WANT TO"-"(R)EAD OR(W)RITE OR(A)PPEND"/"YOUR MONTHLY CALENDAR DATE KEEPER"2Z$7Z$"R"100 <Z$"W"200AZ$"A"400VFZ$"R"Z$"W"Z$"A""WRONG KEY TRY AGAIN":50rd READ A FILE L100-L199e"WHICH FILE DO YOU WANT TO READ":"JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG-SEP-OCT-NOV-DEC"i"MONTH";Y$n #12,"MONTH"Y$,Ro"";DS$;:" FILE STATUS"MpDS$"62, FILE NOT FOUND,00,00""TRY AGAIN Y/N":114Vq120irQ$:Q$""114sQ$"Y" "":#12:100u190xX0y"INSTEAD OF A FILE SEARCH WOULD YOU LIKE":"A FILE DUMP Y/N";W$}12,A$(X),B$(X) W$"Y" A$(X);B$(X)' (A$(X),1,3)"END"1491 XX1: 125J W$"Y"190\ "MONTH ";Y$} "DATE TO SEARCH AS X/X";A$ L(A$) X0 (A$(X),1,L1)A$" "A$(X);" ";B$(X) 157*IF 1/1=LEN3 1/10 MATCH 3 ALSO SO MUST USE SPACE CHECK!XX1"!(A$(X),1,3)"END"180+!157E!"ALL MATCHES FOUND"`!"ANOTHER MATCH Y/N ?"s!Q$:Q$""187!Q$"Y"150!#12!"DO YOU WANT TO DO SOMETHING ELSE Y/N ?"!Q$:Q$""194!Q$"Y"10!: PRG MARKER" WRITE A FILE L200-L340Q""CAUTION: WITHOUT A FRESH DISK THIS WILL DESTROY OLD FILES"""IF YOU WANT TO ADD TO A FILE USE APPEND"""DO YOU WISH TO GO ON Y/N?""Q$:Q$""225"Q$"Y"235"108#"INPUT A FILE TO WRITE":"USING:-JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG- SEP-OCT-NOV-DEC-:FOR FILE NAME"i#"USEEND,END,WHEN FINISHED ENTERING DATA"#"YOU CAN HAVE A HUNDRED ENTRIES PER FILE"#"MONTH";Z$# (Z$)3 "PLEASE USE 3 LETTER MONTH--NO (.)":240$"PUT A FILE DISK IN DRIVE AND PRESS":"RETURN";Z4$ #12,"@MONTH"Z$,W]$"INPUT DATE AS X/X, NO YEAR, THEN"$"INFORMATION ABOUT DATE (LIMIT 3 LINES)"$"EXAMPLE:1/1,NEW YEARS PARTY"$"USEEND,ENDWHEN FINISHED"$ X0:CR$(13): SPACE$ "";Z$%"DATE,INFO";A$,B$=%A$"END" B$"END" 12,A$,CR$,B$:320t%(A$)3 (A$)5 "DATE ENTERED WRONG": 270%"IS THIS CORRECT?-Y/N"%Q$:Q$""285%" Q$"N"270%'12,A$,CR$,B$%,XX1%1"ENTRY";X" COMPLETE"&6X100 "*FILE IS FULL* INPUT END,END":270'&;2671&@#12`&E"DO YOU WANT TO DO SOMETHING ELSE Y/N ?"s&JQ$:Q$""330&OQ$"Y"10&T: PRG MARKER& APPEND A FILE L400-L620&"APPEND A FILE"'"THIS WILL RETAIN YOUR OLD FILES AND ADD TO THEM"#'"DO YOU WISH TO GO ON Y/N"6'Q$:Q$""415F'Q$"Y"430O'600'"INPUT A FILE TO APPEND":"USING:-JAN-FEB-MAR-APR-MAY-JUN-JUL-AUG- SEP-OCT-NOV-DEC-:FOR FILE NAME"'"YOU CAN HAVE A HUNDRED ENTRIES PER FILE"'"MONTH";W$6((W$)3 "PLEASE USE 3 LETTER MONTHS--NO(.)":440o("PUT THE FILE DISK IN DRIVE AND PRESS":"RETURN";Z( #12,"@MONTH"W$,R("";DS$;:" FILE STATUS"(DS$"62, FILE NOT FOUND,00,00""TRY AGAIN Y/N":470(482)"THIS PROGRAM WILL CATCH MOST MASTAKES"&)Q$"Y"430/)600A)X0:CR$(13)})"WOULD YOU LIKE TO SEE WHATS IN THIS FILE":"Y/N";Q$)12,A$(X),B$(X))Q$"Y" A$(X);B$(X);" FILE#";X)(A$(X),1,3)"END"520)XX1)490*:"THERE ARE";100X;"FILES REMAINING"7* X100 "*FILE IS FULL*":600A*#12k*"ENTER ENTRY AS DATE X/X - NO YEAR"*"THEN ENTER(,)& INFORMATION ABOUT DATE UP TO (3) LINES"*"USEEND,ENDWHEN FINISHED ENTERING DATA"*"MONTH ";W$ +!"DATE-X/X,INFO";A$(X),B$(X)G+#(A$(X))3 (A$(X))5 "DATE ENTERED WRONG":545d+&"IS THIS CORRECT?-Y/N"w++Q$:Q$""555+0 Q$"N"545+:A$(X)"END" B$(X)"END" 587+?XX1+D"ENTRY";X" COMPLETE",FX100"*FILE IS FULL* PLEASE ENTER END,END" ,I540%,K #12,"@MONTH"W$,W3,LCR$(13)>,NJ0X,O(A$(J))5 A$(J)(A$(J),5):PRINTA$(J):REM REMOVE X'TRA SPACES,P12,A$(J),CR$,B$(J),QA$(J);CR$;B$(J);" FILE ";J;" SAVED",SJ,X#12-]"DO YOU WANT TO DO SOMETHING ELSE Y/N ?"-bQ$:Q$""610'-gQ$"Y"10;-l: PRG MARKER- "THE PROGRAM FIRST ASKS IF YOU WOULD LIKE TO SEE A CALENDAR":"RESPOND YES OR NO WITH A 'Y' OR 'N'".%"IF YES INPUT MONTH IN NUMBERS 1-12 AND A COMMA AND THEN THE LAST TWO DIGITS OF THE YEAR"3.*"EXAMPLE:12,88 MEANING DECEMBER OF 1988"{./:"NOW YOU ARE ASKED IF YOU WANT TO READ, WRITE OR APPEND A FILE".4"YOU MUST FIRST WRITE A FILE BEFORE DOING ANYTHING ELSE".9"YOU WOULD INPUT AT THE ? A 'W' FOR WRITE A FILE"*/>"THIS PROGRAM PROMPTS WITH INSTRUCTIONS THROUGHOUT"L/@"PRESS RETURN TO CONTINUE";C/C"THE FILE YOU WILL WRITE WILL CONTAIN A DATE PERTAINING TO A MONTH AND INFORMATION ABOUT THAT DATE"/H"SOME OF THE APPLICATIONS FOR YOU COULD BE TO:"=0M"KEEP A FILE OF DAILY EVENTS FOR SPORTS,BIRTHDAYS,SCHOOL & WORK"0R"USE IT FOR APPOINTMENTS,SCHEDULING,AND EVEN AN ELECTRONIC DIARY"0W"YOU CAN REFERENCE YOUR FILES BY MONTH AND DATE"W1\"REMEMBER THAT FILES ADD BLOCKS AND TAKE UP DISK SPACE: IF YOU PLAN TO WRITE AWAY THE PARAMETERS OF THIS PROGRAM YOU'LL NEED OVER* 500 FREE BLOCKS"1a"AFTER YOU ENTER FILE DATE,YOU CAN WRITE THE REST OF 4 SCREEN LINES IN 40 COLUMN SCREEN"1f"THIS PROGRAM SHOULD CATCH MOST USER MIS-TAKES"2p"PRESS RETURN TO GO TO PROGRAM";C2u9:2: END OF ALL FILE ROUTINESD2"";k2"MONTH IN NUMBERS1-12:YEAR-XX"21050: GET MONTH, YEAR21110: PRINT CALENDAR2"DO YOU WANT TO"2"(R)EAD OR(W)RITE OR(A)PPEND A FILE"3 "TO YOUR MONTHLY CALENDAR DATE KEEPER"3 50#3;3 GET MONTH, YEARU3$"MONTH, YEAR: ";M,Yg3.M(M):Y(Y)z38M1M1210603BY0Y9910603L3V PRINT CALENDAR3`1160: CALCULATE3j1410: PRINT TITLE3t1330: PRINT DAYS3~ 4 CALCULATE+4 D - WEEKDAY, 1ST OF MONTHL4 N - NO. OF DAYS IN MONTH^4XY:B4:1300p4L1: R L04DY((Y3)4):N04I1M4XDN:B7:13004DR4XI(I7):B2:13004N30R4I2N28L4I4 5 SET R TO REMAINDER OF X/B!5RX(XB)B'5(C52 PRINT CALENDAR DAYSK5<KDV5FI1Nm5PSP0: I10 SP15Z"";K42SP);I;5dKK1:K6K0:5nI5x::5 PRINT CALENDAR TITLE5M$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"6 8);6(M$,M32,3),1900YD6:" SUN MON TUE WED THU FRI SAT":J6