home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / toolkt.ba < prev    next >
Text File  |  2006-10-19  |  6KB  |  95 lines

  1. 0 ' TLKIT.BA - By Peter Stanwyck 
  2. 1 ' Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 '   1 Kaiser Plaza, Suite 2050
  4. 3 '   Oakland, California 94612
  5. 4 '  (c)1986  ALL RIGHTS RESERVED
  6. 5 CLS:MAXFILES=2:DATE$=LEFT$(DATE$,6)+"86":GOTO29
  7. 6 FORA=1TO3000:NEXT:RETURN
  8. 7 IFMR=2THENRETURNELSECLOSE:OPENVFORINPUTAS1:RETURN
  9. 8 PRINT@280,Z2;Z;Z3;Z1;:RETURN
  10. 9 ONERRORGOTO27:PRINT@240,Z1:PRINTZ2;Z;Z3;" Which .DO File "Z1;:V="":PRINT@240,Y3;:INPUTV:IFV=""THEN29ELSEGOSUB7:CLS:RETURN
  11. 10 OPEN"TTEM"FOROUTPUTAS2:RETURN
  12. 11 PRINT@0,X+SPACE$(255-LEN(X));:RETURN
  13. 12 IFINSTR(V,".")=0THENV=V+".do"
  14. 13 KILLV:NAME"TTEM.DO"ASV:GOTO29
  15. 14 IFEOF(1)THENONMMGOTO12,93,19,87ELSEGOTO17
  16. 15 X=STRING$(A,10)
  17. 16 MM=3:GOSUB14:B=B+1:C=LEN(X)+C:PRINT@162,Z4;BTAB(20)Y4;C:GOTO16
  18. 17 LINEINPUT#1,X:A=INSTR(X,U):G=VAL(LEFT$(X,A)):RETURN
  19. 18 GOSUB17:GOTO11
  20. 19 B=B-1:IFE2>0THEN34ELSE70
  21. 20 C=INSTR(X,"'"):IFC>0THENRETURNELSEC=INSTR(X,U1):IFC=0THENC=256:RETURNELSERETURN
  22. 21 Z="Printer Ready"
  23. 22 CLS:Q=0:PRINT@240,Z" Y/N ";Z1:X=INPUT$(1):CLS:IFX="y"ORX="Y"THENQ=1ELSEIFQQ<2THEN29ELSERETURN
  24. 23 IFQQ=1THENRETURNELSECLS:PRINT@160,"Printing.":RETURN
  25. 24 A=INSTR(B,X,U):IFA=0ORA>CTHENRETURNELSED=INSTR(B,X,Z5):IFD=0THEND=256
  26. 25 IFA<DTHENX=LEFT$(X,A-1)+MID$(X,A+1):GOTO26ELSED=INSTR(D+1,X,Z5):IFD=0ORD=LEN(X)THENRETURNELSEB=D+1
  27. 26 IFM=2THEN24ELSEGOSUB11:GOTO24
  28. 27 IFERR=52ORERR=55THENA=0ELSEIFERR=7THENA=1ELSEIFERR=14THENA=2ELSEA=4
  29. 28 Z=MID$("File Error Need MemoryNeed StringBad Config Error ??",A*11+1,11):BEEP:CLS:PRINT@200,Z2"** "Z" **"Z3:GOSUB6:GOTO29
  30. 29 CLEAR750:GOSUB92:CLS:PRINT@162,"M100 Programming Tool Kit":PRINT@247,"by Peter Stanwyck":PRINT@300,"All Rights Reserved";:CLS:FILES:KEYON:PRINT@280,"ReLn Pack List Fyte RKey Data Csum Menu";:ONKEYGOSUB31,50,55,69,88,82,84,91
  31. 30 GOTO30
  32. 31 M=1:Z="ReLine":GOSUB9:Y="Don't Renumber"+Z4:Z="<EN>=No Limit":GOSUB8:PRINT@0,X;V:PRINTY"<= ";:INPUTE3:IFE3=0THENE3=-1
  33. 32 PRINTY;">= ";:INPUTH1:PRINTZ1:Z="Deflt=x5 at#100":GOSUB8:PRINT@120,"":E1=100:E2=5:INPUT"Increments: ";E2:INPUT"Start Line# ";E1:IFH1=0THENH1=65000
  34. 33 IFE1<=E3THENA=3:GOTO28ELSEZ="Ready":QQ=1:GOSUB22:GOSUB16
  35. 34 IFFRE(0)-500<CTHENA=2:GOTO28
  36. 35 II=E1:DIMG(B),H(B):GOSUB7:FORC=0TOB:GOSUB17:IFG<=E3ORG>=H1THENH=GELSEH=II:II=II+E2
  37. 36 PRINT@162,"Old"Z4;GTAB(20)"New"Z4;H:G(C)=(G):H(C)=H:NEXT:CLOSE:GOSUB7:GOSUB10:FORC=0TOB:GOSUB18:X=MID$(STR$(H(C)),2)+MID$(X,A):GOSUB11
  38. 37 RESTORE:FORD=1TO7:A=1:READZ:GOSUB8:E=LEN(Z):GOSUB38:NEXT:ONMGOTO49,46
  39. 38 L=0:F=INSTR(A,X,Z):IFF=0THENRETURNELSEF=F+E:GOSUB44:IFL=1THENONMGOTO39,73ELSEONMGOTO43,76
  40. 39 FORK=0TOB:IFI=G(K)THEN40ELSENEXT:X1="??"+STR$(I):BEEP:GOTO41
  41. 40 X1=MID$(STR$(H(K)),2)
  42. 41 J=F+LEN(STR$(I))-2:IFJ=LEN(X)THENX2=""ELSEX2=MID$(X,J+1)
  43. 42 X=LEFT$(X,F-1)+X1+X2:GOSUB11:J=LEN(X1):GOSUB47:IFLL=1THEN39ELSE43
  44. 43 A=F+J:GOTO38
  45. 44 I=VAL(MID$(X,F)):IFI>0ORMID$(X,F,1)="0"THENL=1ELSEIFMID$(X,F,2)=" 0"THENL=1:F=F+1
  46. 45 IFL=1ANDMID$(X,F,1)=UTHENF=F+1
  47. 46 RETURN
  48. 47 LL=0:IFMID$(X,F+J,1)<>","THENRETURNELSEF=F+J
  49. 48 LL=1:F=F+1:IFMID$(X,F,1)=","THEN48ELSEI=VAL(MID$(X,F)):RETURN
  50. 49 PRINT#2,X:NEXT:CLOSE:GOTO12:DATAGOTO,GOSUB,THEN,ELSE,RESUME,RUN,RESTORE
  51. 50 Z=U2:GOSUB9:GOSUB10:Z="Delete "+U1:QQ=2:GOSUB22:M=Q
  52. 51 MM=1:GOSUB14:Y="":L=0:B=A+1:GOSUB11:GOSUB20:GOSUB24:GOTO52
  53. 52 IFC>0ANDM=1THEN54
  54. 53 PRINT#2,X:GOTO51
  55. 54 IFC<7THEN51ELSEX=LEFT$(X,C-1):GOTO53
  56. 55 Z="List":GOSUB9:GOSUB21:GOSUB68
  57. 56 C=2:D=1:E=0:F=2:MM=2:GOSUB14
  58. 57 J=INSTR(C,X,":"):K=INSTR(C,X,Z5):IFJ=0THEN61ELSEE=1
  59. 58 IFK=0ORJ<KTHENY=MID$(X,J):X=LEFT$(X,J-1):GOTO61
  60. 59 M=INSTR(K+1,X,Z5):IFM=0THENM=K
  61. 60 C=M+1:GOTO57
  62. 61 IFD=0THEN62ELSEN=70:B=2:X=LEFT$(X,A)+SPACE$(6-A)+MID$(X,A+1):GOTO63
  63. 62 N=64:B=7:IFE=1THENN=59:B=11
  64. 63 O=0:IFLEN(X)>NTHENO=1:Z=MID$(X,N+1):X=LEFT$(X,N)
  65. 64 LPRINTTAB(B)X:L=L+1:IFL=57THENLPRINTSTRING$(8,13):GOSUB68
  66. 65 IFO=0THEN67ELSEX=Z:Z="":IFB=2THENB=8ELSEIFE=1THENX=U+X
  67. 66 GOTO63
  68. 67 C=2:D=0:X=Y:Y="":IFJ=0THEN56ELSE57
  69. 68 P=P+1:LPRINTU;V" As of "DATE$UTIME$U"Page"P:LPRINT:L=2:B=2:RETURN
  70. 69 CLEAR1500:GOSUB92:M=2:Z="Fyte":GOSUB9:GOSUB16
  71. 70 Y2=": ":BB=B:CC=C:N=B+1:DIMX(N),A(N),G(N):GOSUB7:CLS:PRINTY3;V:PRINTY4;CC:PRINTY7;B:PRINTY6;INT(C/B):PRINTU2;Y2:PRINTU1;Y2:FORE=0TOBB:GOSUB17:G(E)=G:A(E)=LEN(X):PRINT@175,Z4;G;U;A(E)U:
  72. 71 GOSUB20:IFC=256THEN72ELSEIFC<7THENR=R+LEN(X):X="X"ELSER=R+LEN(MID$(X,C)):X=LEFT$(X,C-1)
  73. 72 B=6:L=LEN(X):GOSUB24:P=P+L-LEN(X):PRINT@165,P;U5:PRINT@204,R;U5:NEXT:GOSUB7:S="     ":FORC=0TOBB:GOSUB17:GOSUB37:NEXT:GOTO77
  74. 73 FORK=0TOBB:IFI=G(K)THEN74ELSENEXT:X(N)=X(N)+STR$(I):GOTO75
  75. 74 X(K)=X(K)+STR$(G(C))
  76. 75 J=LEN(STR$(I))-1:PRINT@175,"From:"G(C);S;S:PRINT@215,"To:";G(K);S
  77. 76 GOSUB47:IFLL=1THEN73ELSEA=F+J:GOTO38
  78. 77 CLS:GOSUB21:LPRINTTAB(2)Y3;V;U;TIME$;U;DATE$:LPRINT:LPRINTTAB(2)Y4;CC;U;Y7;BB;Y6INT(CC/BB)U;U2;P;U;U1;R:LPRINTTAB(2)"Line"TAB(9)"Bytes"TAB(20)"Branch":LPRINTTAB(2)STRING$(70,"-"):LPRINT:L=6:FORE=0TOBB:IFL>57THENLPRINTSTRING$(66-L,13):L=1
  79. 78 LPRINTTAB(2)G(E);TAB(9)A(E);:X=X(E)
  80. 79 M=0:IFLEN(X)<56THEN81ELSEM=1:F=55
  81. 80 IFMID$(X,F,1)<>UTHENF=F+1:GOTO80ELSEY=MID$(X,F):X=LEFT$(X,F-1)
  82. 81 LPRINTTAB(16)X:L=L+1:IFM=1THENX=Y:GOTO79ELSENEXT:IFX(N)<>""THENLPRINT"  UL Errors: "X(N):GOTO93ELSEGOTO93
  83. 82 MR=2:Z="Data to":GOSUB9:OPENVFORAPPENDAS1
  84. 83 CLS:Z="Enter In "+V:GOSUB8:PRINT@0,"Sgle Entry-<EN> To Rtrn":PRINT:X="":LINEINPUT"Data ";X:IFX=""THEN29ELSEPRINT#1,X:GOTO83
  85. 84 Z="CHECKSUM":GOSUB9:CLS
  86. 85 MM=4:GOSUB14:E=E+1:IFLEN(X)=0THEN86ELSEFORB=1TOLEN(X):I=I+ASC(MID$(X,B)):NEXT
  87. 86 PRINT@162,Z4;E;TAB(15);Z;I:GOTO85
  88. 87 Z="Any Key":GOSUB8:X=INPUT$(1):GOTO29
  89. 88 CLS:RESTORE90:FORA=1TO8:IFA=6ORA=7THENZ=""ELSEREADZ:IFA=2ORA=3THENZ=Z+CHR$(34)ELSEZ=Z+CHR$(13)
  90. 89 KEYA,Z:NEXT:SCREEN0,1:GOSUB6:SCREEN0,0:GOTO29
  91. 90 DATAFiles,Load,Save,Run,List,Menu
  92. 91 MAXFILES=1:CLEAR256:MENU
  93. 92 DEFINTA-F,J-R:DEFSTRS-Z:Z4=" Line#:":Z1=CHR$(27):Z2=Z1+"p":Z3=Z1+"q":Y3="File:":Y4="Size:":Y6="Avr:":Y7="Lines:":Z1=Z1+CHR$(74):U1="REM":U=" ":U4="File":U2="Pack":Z5=CHR$(34):RETURN
  94. 93 LPRINTSTRING$(66-L,13):GOTO29
  95.