Compucolor.org – Virtual Media

Listing of file='CLNDRI.BAS;01' on disk='vmedia/chip_129-sector.ccvf'

2 REM  CALENDAR MAINTAINANCE PROGRAM INSTRUCTIONS
3 REM   LARRY PETERSON SITTINGBOURNE, KENT, ENGLAND MAY 1982
8000 PLOT 12,14,19
8010 PRINT "        CALENDAR MAINTAINANCE PROGRAM INSTRUCTIONS"
8015 PLOT 15,18
8020 PRINT :PRINT "WITH THE AID OF THIS PROGRAM YOU CAN MAINTAIN A CALENDAR OF"
8030 PRINT "MEETINGS, APPOINTMENTS OR ACTIVITIES FOR THE OFFICE, HOME,
8040 PRINT "SCHOOL OR CLUB.  THE SCHEDULE CAN BE EASILY MODIFIED OR CARRIED"
8050 PRINT "TO THE NEXT MONTH OR PRINTED OUT ON A WEEKLY OR MONTHLY BASES."
8060 PRINT "TO GET STARTED IT IS FIRST NECESSARY TO BEGIN A FILE FOR THE"
8070 PRINT "MONTH DESIRED. NEXT USE THE ADD A WEEK FUNCTION TO PLACE"
8080 PRINT "APPOINTMENTS ON THE CALENDAR. DON'T WORRY ABOUT THE DATES AS"
8090 PRINT "AN ALGORYTHUM TAKES CARE OF THAT FOR YOU.  IF YOU MAKE AN ERROR"
8100 PRINT "OR THE SCHEDULE CHANGES USE THE EDIT FUNCTION TO MAKE THE "
8110 PRINT "CHANGE.  AT ANY TIME A WEEKLY CALENDAR CAN BE VIEWED ON THE"
8120 PRINT "CRT TO CHECK FOR ACCURACY OR SCHEDULING.  THE LOAD AND SAVE"
8130 PRINT "SAVE FUNCTIONS DO JUST THAT AND THE PRINT FUNCTION LIST THE
8140 PRINT "THE CALENDAR ON A PRINTER FOR A HARD COPY."
8300 PRINT :INPUT "HIT RETURN TO CONTINUE. ";A$
8500 PLOT 12
8510 PLOT 3,14,2:PRINT "THERE ARE TWO VERSIONS OF THE PROGRAM."
8520 PRINT :PLOT 14,19:PRINT "     CLNDR1"
8530 PLOT 15,18:PRINT
8540 PRINT "THIS VERSION FEATURES:
8550 PRINT "   1) 16K CCII OPERATING SYSTEM"
8560 PRINT "   2) A PRINTER WITH 132 CHARACTERS PER LINE"
8570 PRINT "   3) HANDLES THE CALENDAR ON A WEEKLY BASIS"
8600 PRINT :PRINT :PLOT 14,19:PRINT "     CLNDR2"
8610 PRINT :PLOT 15,18
8620 PRINT "THIS VERSION FEATURES:
8630 PRINT "   1) 32K CCII OPERATION SYSTEM"
8640 PRINT "   2) AN EPSON MX-80 PRINTER WITH GRAPHICS"
8650 PRINT "   3) HANDLES THE CALENDAR ON A MONTHLY BASIS"
9000 PRINT :INPUT "WHICH VERSOIN DO YOU WISH TO USE? ";A$
9010 IF A$= "CLNDR1"OR A$= "CLNDR2"THEN 9100
9020 GOTO 8500
9100 LOAD A$:RUN