0 'PLAN.100 v3.7 by Bill Templeton [75655,1056] - 1/21/87 (3703 bytes) <<< using relocatable SORT.CO >>> CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 MAXFILES=2:CLEAR1000,53728:LOADM"sort":DEFSTRB:DIML(50):DIMM$(12),D(12):CLS:B="note":OPENBFORAPPENDAS2:CLOSE:OPENBFORINPUTAS1 2 IFEOF(1)THEN3ELSELINEINPUT#1,L$:IFINSTR(L$,LEFT$(DATE$,5))=0THEN2ELSEPRINTL$;:LINEINPUTX$:GOTO2 3 FORX=1TO12:READM$(X),D(X):NEXT:E$=CHR$(27):RV$=E$+"p":NO$=E$+"q 4 CLS:POKE64173,0:Y=1900+VAL(RIGHT$(DATE$,2)):M=VAL(LEFT$(DATE$,2)):CT=VAL(MID$(DATE$,4,2)):CD=CT:GOTO7 5 CLS:M$="":PRINT@81,RV$" MONTH,YEAR (JAN,1987): "NO$;:INPUTM$,Y:IFM$=""THEN4ELSEFORM=1TO12:IFLEFT$(M$(M),3)=LEFT$(M$,3)THEN7 6 NEXT:PRINT@81,"Enter again -> ALL CAPS!"SPACE$(15):FORT=1TO500:NEXT:GOTO5 7 MN=M:YR=Y:MO=M:YE=Y:D=1:IFMN<3THENMN=MN+12:YR=YR-1 8 K=D+2*MN+INT(.6*(MN+1))+YR+INT(YR/4)-INT(YR/100)+INT(YR/400)+2:K=INT((K/7-INT(K/7))*7+.5):K=K-1:IFK<0THENK=6 9 CLS:PRINTTAB(7-LEN(M$(MO))/2)RV$" "M$(MO)" "YE;NO$:PRINT" S M T W T F S":T=K:DA=1:CP=81+K*3:CX=K*3:IFCD=1THEN12 10 FORX=1TOCT-1:CP=CP+3:CX=CX+3:IFCX>18THENCP=CP+19:CX=0 11 NEXT:CD=CT:IFCD=1THENCP=CP-3:CX=CX-3 12 IFT>6THENPRINT" ":T=0 13 PRINTTAB(T*3)STR$(DA);:DA=DA+1:T=T+1:DM=D(MO):IFM<>2THEN19 14 IFY/4<>INT(Y/4)THEN19 15 IFY/400=INT(Y/400)THEN18 16 IFY/100<>INT(Y/100)THEN18 17 GOTO19 18 DM=DM+1 19 IFDA"+"ANDQ$<>"="THEN26ELSEM=MO+1:IFM>12THENM=1:Y=Y+1 25 CD=1:CT=1:GOTO7 26 IFQ$<>"-"THEN28ELSEM=MO-1:IFM<1THENM=12:Y=Y-1 27 CD=1:CT=1:GOTO7 28 IFQ=31ORQ=30ORQ=29ORQ=28THENPRINT@CP-1,STR$(CD)" "; 29 IFQ<>28THEN31ELSECP=CP+3:CX=CX+3:CD=CD+1:IFCD<=D(MO)THEN37ELSEM=MO+1:IFM>12THENM=1:Y=Y+1 30 CD=1:CT=1:GOTO7 31 IFQ<>29THEN33ELSECP=CP-3:CX=CX-3:CD=CD-1:IFCD>0THEN37ELSEM=MO-1:IFM<1THENM=12:Y=Y-1 32 CD=D(M):CT=D(M):GOTO7 33 IFQ<>30THEN35ELSECP=CP-40:CD=CD-7:IFCD>0THEN37ELSEM=MO-1:IFM<1THENM=12:Y=Y-1 34 CD=D(M):CT=D(M):GOTO7 35 IFQ<>31THEN37ELSECP=CP+40:CD=CD+7:IFCD<=D(MO)THEN37ELSEM=MO+1:IFM>12THENM=1:Y=Y+1 36 CD=1:CT=1:GOTO7 37 IFCX>18THEN:CP=CP+19:CX=0 38 IFCX<0THEN:CP=CP-19:CX=18 39 GOTO22 40 IFAL=1THENPRINT@102," ":T$="":AL=0:TIME$OFF:RETURN 41 CLS:PRINT@122,RV$" Set Alarm Time: "NO$" ";:LINEINPUTT$:IFT$=""THEN4ELSEIFLEN(T$)<6THENT$=T$+":00":AL=1:ONERRORGOTO70 42 ONTIME$=T$GOSUB67:TIME$ON:GOTO9 43 IFAL=0THENPRINT@23,RV$" No Alarm Set "NO$:IFINKEY$=""THEN43ELSERETURN 44 IFAL=1THENPRINT@23,RV$" Alarm "T$" "NO$:IFINKEY$=""THEN44ELSERETURN 45 PRINT@23,RV$" Time "TIME$" "NO$:GOTO22 46 CLS:KEYOFF:S$=RIGHT$(STR$(MO),LEN(STR$(MO))-1):IFLEN(S$)<2THENS$="0"+S$ 47 D$=RIGHT$(STR$(CD),LEN(STR$(CD))-1):IFLEN(D$)<2THEND$="0"+D$ 48 S$=S$+"/"+D$:Y$=RIGHT$(STR$(YE),2) 49 CLS:PRINT@15,RV$" NOTE.DO: "NO$:PRINT@44,"(f1): Update - "S$"/"Y$" -":PRINT@84,"(f2): Review - "S$"/"Y$" - 50 PRINT@124,"(f3): Title - "M$(MO)Y"-":PRINT@164,"(f4): Return to Calendar 51 PRINT@204,"(f5): Run SORT.CO":PRINT@244,"(f6): Schedl":PRINT@284,"(f8): Menu"; 52 KEYON:ONKEYGOSUB54,72,53,7,63,65,,66:IFINKEY$=""THEN52ELSE52 53 CLOSE:OPENBFORAPPENDAS2:PRINT#2,LEFT$(S$,2)" "STRING$(10,45)" "M$(MO)YSTRING$(10,45):GOTO49 54 CLS:HH$="":MM$="":PRINT@122,RV$" Time (HH:MM): "NO$" "; 55 HH$=INPUT$(2):IFVAL(HH$)=0THEN57ELSEIFVAL(HH$)=>24THEN55ELSEPRINT@138,HH$":"; 56 MM$=INPUT$(2):IFVAL(MM$)=>60THEN56ELSEPRINT@141,MM$;:J$=INPUT$(1):IFJ$=CHR$(32)THEN54 57 CLS:PRINT@9,RV$" Note (255 char/max.): "NO$ 58 NT$="":IFVAL(HH$)=0THEN59ELSEPRINT@80,S$" "HH$":"MM$:PRINT@132,"^"STRING$(25,32)"^":PRINT@92,;:LINEINPUTNT$:GOSUB76:GOTO60 59 PRINT@80,S$:PRINT@127,"^"STRING$(30,32)"^":PRINT@87,;:LINEINPUTNT$:GOSUB76 60 J$=INPUT$(1):IFJ$<>CHR$(32)THEN61ELSECLS:GOTO49 61 CLOSE:OPENBFORAPPENDAS2:IFNT$=""THEN49ELSEIFHH$=CHR$(13)+CHR$(13)THENPRINT#2,S$" "NT$ELSEPRINT#2,S$" "HH$":"MM$" "NT$ 62 GOTO49 63 CLOSE:FORJ=1TOLEN(B):POKE63108+J,ASC(MID$(B,J)):NEXT:POKE63108+J,0 64 CLS:PRINT@126,RV$" Reorganizing NOTE.DO file "NO$:J=0:CALLHIMEM+4,0,VARPTR(J):GOTO49 65 GOSUB74:MAXFILES=1:CALL23407'CALL24046 to go directly to TEXT 66 GOSUB74:MAXFILES=1:MENU 67 AL=0:PRINTINKEY$ 68 SOUND1174,25:SOUND1567,25:FORT=1TO10:NEXT:IFINKEY$=""THEN68ELSE9 69 NEXTX:RETURN 70 RESUME41:DATAJANUARY,31,FEBRUARY,28,MARCH,31,APRIL,30,MAY,31,JUNE,30 71 DATAJULY,31,AUGUST,31,SEPTEMBER,30,OCTOBER,31,NOVEMBER,30,DECEMBER,31 72 CLS:CLOSE:OPENBFORINPUTAS1 73 IFEOF(1)THEN49ELSELINEINPUT#1,L$:IFINSTR(L$,LEFT$(S$,5))=0THEN73ELSEPRINTL$;:LINEINPUTX$:GOTO73 74 GOSUB75:DATE$=LEFT$(DATE$,6)+"87":BEEP:BEEP 75 RESTORE76:FORX=1TO4:READN:POKEX+64267,N:NEXT:RETURN 76 DATA172,126,58,31:PRINT@281,"[ENTER]=Accept [Space Bar]=Reject ";:RETURN