home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / bus / ntpad.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  47 lines
  1. 1 ' Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 19 CLS:MAXFILES=2:CLEAR2000:DEFSTRK:P$="pass":F$="NOTE.DO":W$="Wait-":S$=CHR$(154)
  3. 20 N=90:DIMN$(N):J=700:Q=40:U=1:M=Q+U:ONERRORGOTO49
  4. 21 PRINT:PRINT"  File":PRINT"  Find":PRINT"  Save":PRINT"  Sort":PRINT"  Empty":PRINT"  Quit"
  5. 22 GOSUB51:PRINT@(Q*U)+1,S$:PRINT@279-LEN(T$),T$;
  6. 23 K=INKEY$:IFK=""THEN22ELSEIFK=CHR$(13)THEN25ELSEIFK=CHR$(27)THENMAXFILES=1:MENU
  7. 24 IFK<>CHR$(9)THEN22ELSEPRINT@(Q*U)+1,CHR$(32):U=U+1:IFU=7THENU=1:GOTO22ELSEPRINT@(Q*U)+1,S$:GOTO22
  8. 25 CLS:ONUGOSUB31,34,35,53,36,26:CLS:GOTO21
  9. 26 PRINT@M,"Lock?":GOSUB47:CLS:IFK="y"THENGOSUB28:RETURN
  10. 27 POWEROFF,RESUME:RETURN
  11. 28 POWEROFF,RESUME:POKE63056,128:PRINT@M,"Password?":FORI=1TO4
  12. 29 K=INKEY$:IFK=""THEN29ELSEIFK<>MID$(P$,I,1)THENGOSUB63:CLS:PRINT@M,"Access is restricted.":GOSUB50:CLS:GOTO28
  13. 30 NEXT:POKE63056,0:RETURN
  14. 31 PRINT:PRINT" ";:LINEINPUTD$:IFD$=CHR$(169)THEND$=" --"+DAY$+" "+LEFT$(DATE$,5)+" "+LEFT$(TIME$,5)+"--"
  15. 32 OPENF$FORAPPENDAS1:PRINT#1,D$:CLOSE:CLS:PRINT@M,"Anything else?":GOSUB47:CLS:IFK="n"THENPRINT@M,"Filed in "F$".":GOSUB46:RETURN
  16. 33 GOTO31
  17. 34 C$="":PRINT:INPUT" Find what";C$:CLS:GOSUB40:RETURN
  18. 35 PRINT:INPUT" Save what";C$:O$="SAVE.DO":OPENF$FORINPUTAS1:OPENO$FORAPPENDAS2:CLS:PRINT@M,W$:GOSUB42:RETURN
  19. 36 PRINT@M,"Are you sure?":GOSUB47:IFK<>"y"THENRETURN
  20. 37 CLS:PRINT@M,"Replace with SAVE.DO?":GOSUB47:IFK="n"THENGOSUB39ELSEGOSUB52
  21. 38 RETURN
  22. 39 CLS:KILLF$:OPENF$FOROUTPUTAS1:CLOSE:PRINT@M,F$" is empty.":GOSUB46:RETURN
  23. 40 IF(INP(187)AND6)=2THENO$="LPT:"ELSEO$="LCD:"
  24. 41 OPENF$FORINPUTAS1:OPENO$FOROUTPUTAS2:PRINT
  25. 42 IFEOF(1)THENCLOSE:GOSUB46:RETURN
  26. 43 LINEINPUT#1,L$:IFL$=""THEN42
  27. 44 IFINSTR(L$,C$)=0THEN42
  28. 45 PRINT#2," "+L$;:PRINT#2,:GOTO42
  29. 46 GOSUB50:RETURN
  30. 47 K=INKEY$:IFK<>"n"ANDK<>"y"THEN47
  31. 48 RETURN
  32. 49 GOSUB63:CLS:RESUME21
  33. 50 FORI=1TOJ:NEXTI:RETURN
  34. 51 T$=STR$(FRE(0))+" "+DAY$+" "+LEFT$(DATE$,5)+" "+TIME$:RETURN
  35. 52 CLS:KILLF$:NAME"SAVE.DO"ASF$:PRINT@41,"SAVE.DO is now "F$".":GOSUB50:CLS:RETURN
  36. 53 C=0:CLS:PRINT@M,W$:OPENF$FORINPUTAS1:FORO=1TON:LINEINPUT#1,N$(O):C=C+1:IFEOF(1)THEN54ELSENEXT
  37. 54 X=C
  38. 55 X=INT(X/2):IFX=0THEN62
  39. 56 Y=1:Z=C-X
  40. 57 V=Y
  41. 58 W=V+X:IFN$(V)<=N$(W)THEN60
  42. 59 H$=N$(V):N$(V)=N$(W):N$(W)=H$:V=V-X:IFV<1THEN60ELSE58
  43. 60 Y=Y+1:IFY>ZTHEN55
  44. 61 GOTO57
  45. 62 CLOSE:OPENF$FOROUTPUTAS1:FORO=1TOC:PRINT#1,N$(O):NEXT:CLOSE:RETURN
  46. 63 SOUNDJ,8:RETURN
  47.