home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
bus
/
plan.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
5KB
|
78 lines
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<DM+1THEN12
20 PRINT@63,"(F1):New Month":PRINT@103,"(F2):Alarm On/Off":PRINT@143,"(F3):Alarm Time
21 PRINT@183,"(F4):Schedule":PRINT@223,"(F5):Today":PRINT@263,"(F8):Menu
22 KEYON:ONKEYGOSUB5,40,43,46,4,,,66:PRINT@CP-1,RV$" "RIGHT$(STR$(CD),LEN(STR$(CD))-1)" "NO$;:IFAL=1THENPRINT@102,"*
23 Q$=INKEY$:IFQ$=""THEN45
24 Q=ASC(Q$):IFQ$<>"+"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