) *********************************Q * PLUS/4 SCHEDULER *y * (VER. 1.0) * * BY JOHN-MARK GILHOUSEN * * 658A CONGRESS STREET, #7 * * PORTLAND, ME 04101 * * *A * (C) 1987 *i * * * PERMISSION IS GRANTED TO COPY * * THIS PROGRAM, AND TO FREELY * * DISTRIBUTE BUT NO SALES OR *  * COPYING CHARGES ARE ALLOWED. *1 * *Y * (BASED ON AN ANONYMOUS C64 * * PROGRAM FROM THE SOUTHERN * * MAINE COMMODORE USERS GROUP) * * * *********************************::)dX133:I172:I,(X):XX1:IMiX137:I282:I,(X):XX1:Iwn4,1:0,1:A1$(366),A2$(366),A3$(366)s"":I140:"";::"";:I150:" ";:x" PLUS/4 SCHEDULER ";}I152:" ";::"";:I140:"";::"" F1F11:F111508" COPYRIGHT 1987 - J. GILHOUSEN"g"PERMISSION TO COPY & TO DISTRIBUTE FREE""ENTER YOUR INITIALS (MAX. 3)";NM$" CHOOSE ONE:":Z1:" "5)"1 LOAD SCHEDULE":5)"2 CREATE SCHEDULE5)"3 DISPLAY/"";A:A170,270,505h" FROM TAPE OR DISK";:AN$:AN$"D"185zAN$"T"170"> INSERT YOUR FILE TAPE.":4,1,0,"SCHEDULE."NM$:200"> INSERT YOUR FILE DISK.":"PRESS ANY KEY WHEN READY."FJ$:"SEARCHING FOR FILE...":4,8,8,"0:SCHEDULE."NM$",S,R"DS20:DS$:"> PRESS ANY KEY TO CONTINUE.":J$:115"LOADING FILE...":D1366:4,A1$(D):4,A2$(D):4,A3$(D)A1$(D)""A1$(D)""A2$(D)""A2$(D)""A3$(D)""A3$(D)"":4+ MAIN MENU[Z0:" CHOOSE ONE:":" "|5)"1 DISPLAY CALENDAR5)"2 CHECK/CHANGE DATE'S SCHEDULE5)"3 CHECK A MONTH'S SCHEDULES5)"4 PRINT A MONTH'S SCHEDULES5)"5 SAVE YOUR FILE:5)"6 EXIT TO BASICj "";T:T505,270,910,835,980,1055:T6265M1$"":Z0::" CHECK, ADD OR DELETE A SCHEDULE"(ENTER RETURN FOR MENU)"(ENTER 'C' FOR CALENDAR)":"MONTH (1 TO 12)";M1$M1$""225&"M1$"C"5054'M1(M1$)s,M112M11"OOPS... ONLY 12 MONTHS!":I11200::2701"DAY";D1:"YEAR";Y:Y$(Y):(Y$)53156"ALL 4 DIGITS, PLEASE.":305;D((M11)30.42)(M12)(M12M18)(M12(Y4)4Y)D1!@Y4(Y4)D59DD1CEI112:MO$,MJ,M,R:IM1335IJeOY4(Y4)0D130345TD1M"OOPS... TOO MANY DAYS FOR THAT MONTH.":I11500::270Y""MO$;D1""^"1 "A1$(D)(13)"2 "A2$(D)(13)"3 "A3$(D):c"ADD, DELETE, NEXT OR MENU";ShD$"":D$:D$""270hm(D$,1)"M"225}r(D$,1)"N"270w(D$,1)"D"460|(D$,1)"A"355I1$"":I2$"":I3$"":A1$(D)""395415""MO$;D1;"":202,4:205,21-"ENTER RETURN TO SELECT NEW DATE"m202,0:205,6:"ITEM #1";I1$:I1$""A1$(D)I1$}I1$""270A2$(D)""425435"ITEM #2";I2$:I2$""A2$(D)I2$I2$""270A3$(D)""4452"DATE IS FULL.":5)"DELETE, NEXT, OR MENU";:360d"ITEM #3";I3$:I3$""A3$(D)I3$tI3$""270}440"WHICH ITEM":"(1,2,3, OR NONE)";X$X$"1"A1$(D)"":345X$"2"A2$(D)"":345 X$"3"A3$(D)"":345 (X$,1)"N"225PCY1YB:C1800C2200C2600C3000CC0:xC1700C2100C2500C2900CC2:C2000C2400C2800CC4:C1900C2300C2700CC5:" DISPLAY A CALENDAR ":"WHAT MONTH (1 TO 12) ";MOMO12505/"YEAR";Y1:YR$(Y1):S0^ (YR$)5"ALL 4 DIGITS, PLEASE.":520Y11700"THAT'S TOO FAR INTO THE PAST.":520Y13099"THAT'S TOO FAR INTO THE FUTURE.":520I112:MO$,MJ,M,R:IMO550! &Y14(Y14)760 +Y14(Y14)760B 0BB$(Y1):YB((BB$,2)):485m 5YY((YB108)(CC1R))7:VVYY(YY) :VV.15VV.13S0 ?VV.30VV.28S5 DVV.44VV.42S10 IVV.58VV.56S15 NVV.72VV.70S20 SVV.87VV.85S25 !XVV0S30!]:(!b""13)MO$;Y1;""W!g"  SUN MON TUE WED THU FRI SAT "!lN3194:C2170:NN49:EMJ1:A128:EEE8:NS,NN:CS,7!qN3194:C2170:NN49:EMJ1:A128:EEE8:NS,NN:CS,7"vA1$(E)""A2$(E)""A3$(E)""NS,NNA:CS,7A"{785:NNNN1::NN48:EMJ10:EEE9:NS,49:CS,7w"A1$(E)""A2$(E)""A3$(E)""NS,177:CS,7"NS1,NN:CS1,7"A1$(E)""A2$(E)""A3$(E)""NS1,NNA:CS1,7"785:NNNN1:#EMJ20:NN48:EEE8:NS,50:CS,7<#A1$(E)""A2$(E)""A3$(E)""NS,178:CS,7S#NS1,NN:CS1,7#A1$(E)""A2$(E)""A3$(E)""NS1,NNA:CS1,7#785:NNNN1::M28795#EMJ29:NS,50:CS,7#A1$(E)""A2$(E)""A3$(E)""NS,178:CS,7$NS1,57:CS1,7M$A1$(E)""A2$(E)""A3$(E)""NS1,185:CS1,7`$785:M29795{$EMJ30:NS,51:CS,7$A1$(E)""A2$(E)""A3$(E)""NS,179:CS,7$NS1,48:CS1,7%A1$(E)""A2$(E)""A3$(E)""NS1,176:CS1,7%785:M307950%EMJ31:NS,51:CS,7f%A1$(E)""A2$(E)""A3$(E)""NS,179:CS,7}%NS1,49:CS1,7%A1$(E)""A2$(E)""A3$(E)""NS1,177:CS1,7%785:795%Y1100(Y1100)770%Y1400(Y1400)560&MO1M31:RR1:560/&MO2M29:RR1:5608& 560w&SS5:NS3229NS3349NS3469NS3589NS3709SS85}&&202,7:205,21:" PRESS RETURN FOR MENU "& Z17)"PRESS F1 TO ENTER ITEM &%7)"PRESS F2 FOR A PRINTOUT '*J$:J(J$)'/J133270,'4J13710759'9Z1115B'>225d'C:"PRINT OUT A MONTH 'H"WHAT MONTH (1 TO 12)";MO'MI112:MO$,MJ,M,R:IMO855'R'W"> SET UP PRINTER.":"PRESS ANY KEY WHEN READY.(\"PRESS RETURN TO RETURN TO MENU.)(aJ$:J$""865;(fJ$(13)225x(k4,4:4,(14)"SCHEDULED ITEMS: ";MO$:4,(15):EMJ1:F1(pEEEM1(uA1$(E)""A2$(E)""A3$(E)""4:4,MO$;F;"--"(zA1$(E)""4," * "A1$(E))A2$(E)""4," * "A2$(E)!)A3$(E)""4," * "A3$(E)A)FF1::I14:4::4:225^):"VIEW A MONTH )"WHAT MONTH (1 TO 12)";MO)I112:MO$,MJ,M,R:IMO930))G0:EMJ1:F1:M28M29)"":EEEM1*A1$(E)""A2$(E)""A3$(E)""""MO$;F""::G11*A1$(E)""" "A1$(E)M*A2$(E)""" "A2$(E)i*A3$(E)""" "A3$(E)|*FF1:G0975*""9)"> PRESS ANY KEY TO PROCEED.":G0*J$*""::225*"SAVE FILE +" SAVE TO TAPE OR DISK";:AN$:AN$"D"1000.+AN$"T"980s+"> INSERT YOUR FILE TAPE.":4,1,1,"SCHEDULE."NM$:1025+"> INSERT YOUR FILE DISK."+"PRESS F3 FOR DIRECTORY, OR ANY OTHER KEY TO BEGIN SAVE.",J$:J$(134)"":::1005G,"SAVING FILE.":15,8,15:15,"S0:SCHEDULE."NM$o,15:4,8,8,"0:SCHEDULE."NM$",S,W",D1366:A1$(D)""A1$(D)"",4,A1$(D):A2$(D)""A2$(D)"", 4,A2$(D):A3$(D)""A3$(D)"",4,A3$(D):-"CONCLUDING SAVE..."-4:4:D1366:205g-"UNSAVED DATA WILL BE ERASED...":"QUIT (Y/N)";AN$:AN$"Y"980-$X$(13):1,"SYS1525: 3-PLUS-1 ":2,"DLOAD"(34):3,"DIRECTORY"X$-)4,"SCNCLR"X$:5,"DSAVE"(34):6,"RUN"X$:7,"LIST"X$:8,"HELP"X$..0,2:4,15,6:"":,.3 SCREEN DUMP ROUTINEL.8G1$(145): 4,4:4:G13032j.=LI119:G0$G1$:G1G140.BG2G1 G140:G3(G2).GG3128G3G3128:G41:G0$G0$(18).L(G30)(G332)G3G364: 1120.Q (G331)(G364) 1120/V (G363)(G396) G3G3128: 1120?/[ (G395)(G3128) G3G364: 1120Q/`G0$G0$(G3)q/e G41 G0$G0$(146):G40/j:4,G0$:/o4:4:Z1115/t225/y JANUARY,0,31,3,FEBRUARY,31,28,6,MARCH,60,31,6,APRIL,91,30,20~ MAY,121,31,4,JUNE,152,30,0,JULY,182,31,2,AUGUST,213,31,5Y0 SEPTEMBER,244,30,1,OCTOBER,274,31,3,NOVEMBER,305,30,6q0 DECEMBER,335,31,1