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