home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / sxmchp.ba < prev    next >
Text File  |  2006-10-19  |  5KB  |  81 lines
  1. 0 'SXMCHP.BA Rick Perry
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'Chipmunk drive support Denny Thomas     5/86
  4. 3 GOTO63
  5. 4 T=0
  6. 5 CALLVARPTR(M(16)),0,VARPTR(X(0)):IFX(0)THENRETURNELSET=T+1:IFT<66*STHEN5ELSERETURN
  7. 6 CALLVARPTR(M(21)),0,VARPTR(X):PRINTCHR$(X);:IFQTHENLPRINTCHR$(X);
  8. 7 IFDTHENN=N+1:Z(N)=X:IFN>255THEN9
  9. 8 RETURN
  10. 9 S=0:GOSUB58:FORJ=0TON:PRINT#3,CHR$(Z(J));:NEXT:N=-1:GOTO58
  11. 10 A$="8n1d"+N$:R=6118:GOSUB53:A=256:B=1:GOSUB51:ONERRORGOTO30:IFETHEN19
  12. 11 S=1:GOSUB4:IFX(0)THEN11
  13. 12 IFINKEY$=G$THEN31ELSEPRINT#2,CHR$(21);:S=10:GOSUB4:IFX(0)THEN14ELSE12
  14. 13 IFINKEY$=G$THEN31ELSEPRINT#2,CHR$(6);:S=10:GOSUB4:IFX(0)=0THEN12
  15. 14 IFX(1)=1THEN15ELSEIFX(1)=4THENPRINT#2,CHR$(6);:GOTO29ELSEIFX(1)=24THEN31ELSE11
  16. 15 CALLVARPTR(M(24)),0,VARPTR(Z(0)):IFZ(0)=0THEN11ELSEIFZ(2)<>(255ANDNOTZ(1))THEN11ELSEIFZ(1)=ATHEN13ELSEIFZ(1)<>BTHEN31
  17. 16 X=0:FORN=3TO130:X=X+Z(N):NEXT:X=XAND255:IFX<>Z(131)THEN11
  18. 17 FORN=3TO130:IFZ(N)=26THENN=130ELSEPRINT#3,CHR$(Z(N));:PRINTCHR$(Z(N));
  19. 18 NEXT:A=B:B=B+1AND255:GOTO13
  20. 19 GOSUB26
  21. 20 PRINT"?";
  22. 21 IFINKEY$=G$THEN31ELSES=10:GOSUB4:IFX(0)=0THEN20ELSEIFX(1)=6THEN25ELSEIFX(1)=21THEN22ELSEIFX(1)=24THEN31ELSE20
  23. 22 PRINT"X";
  24. 23 IFN=0THENPRINT#2,CHR$(4);ELSEPRINT#2,CHR$(1)CHR$(A)CHR$(255ANDNOTA);:X=0:FORJ=1TO128:X=X+Z(J):PRINT#2,CHR$(Z(J));:NEXT:X=XAND255:PRINT#2,CHR$(X);
  25. 24 S=0:GOSUB4:IFX(0)THEN24ELSE21
  26. 25 IFN=0THEN29ELSEPRINT".";:GOSUB26:GOTO23
  27. 26 A=A+1AND255:N=0:IFNOTETHENRETURN
  28. 27 FORN=1TO128:IFETHENIFNOTEOF(3)THENZ(N)=ASC(INPUT$(1,3))ELSEE=0:Z(N)=26ELSEZ(N)=0
  29. 28 NEXT:RETURN
  30. 29 CLOSE3:PRINT:PRINTU$" End":BEEP:GOTO33
  31. 30 PRINTERL;ERR:RESUME31
  32. 31 SCREEN,0:PRINT:PRINTU$" ABORT":SOUND9394,9:CLOSE3
  33. 32 S=1:GOSUB4:IFX(0)THEN32ELSEPRINT#2,CHR$(24);
  34. 33 A$="7I1E"+N$:R=6118:GOSUB53
  35. 34 POKE-86,0:D=0:ONERRORGOTO44:POKE63056,64:D$="Down Up":GOSUB50
  36. 35 CALL16969:ONMDMGOSUB6:S=-1:GOSUB58:K=0
  37. 36 ONKGOTO41,45,54,42:A$=INKEY$:IFINSTR(N$,A$)=0THENA=INSTR(F$,A$):IFATHENONAGOSUB57,38,39,54,62,60,61,40ELSEPRINT#2,A$;
  38. 37 GOTO36
  39. 38 IFDTHENK=4:RETURNELSEK=1:RETURN
  40. 39 IFDTHENRETURNELSEK=2:RETURN
  41. 40 K=3:RETURN
  42. 41 GOSUB74:PRINTU$;:LINEINPUT" Save to: ";Y$:OPENY$FOROUTPUTAS3:GOSUB76:IFA$="Y"THENE=0:GOTO10ELSED$="@@@@   ":GOSUB50:N=-1:D=-1:GOTO35
  43. 42 SCREEN,0:D=0:IFN>-1THENGOSUB9
  44. 43 S=0:GOSUB58:CLOSE3:GOTO34
  45. 44 PRINTU$" Abort, line"ERL"code"ERR:IFERR=22THENSCREEN,1:RESUME35ELSECLOSE3:IFERR=18ANDQTHENGOSUB62:RESUME34ELSEIFERL=50ANDERR=7THENRESUME35ELSERESUME34
  46. 45 GOSUB74:PRINTU$;:LINEINPUT" Upload: ";Y$:OPENY$FORINPUTAS3:GOSUB76:IFA$="Y"THENE=-1:GOTO10ELSEW=1:PRINTU$;:INPUT" Width";W:W=W-1:T=W-9:C=0:GOSUB51:S=-1:GOSUB58
  47. 46 IFINKEY$=G$THENERROR7ELSEIFEOF(3)THENBEEP:CLOSE3:GOTO34ELSEJ=ASC(INPUT$(1,3)):IFJ=10THEN46ELSEC=C+1:IFC=1ANDJ=13THENPRINT#2," ";ELSEIFJ=9THENJ=32
  48. 47 IFWTHENIFT<CANDJ=32THENJ=13ELSEIFC>WANDJ<>13THENPRINT#2,CHR$(J);:J=13
  49. 48 PRINT#2,CHR$(J);:IFJ=13THENX=0:C=0:FORZ=1TO255:IFX<>62THENNEXT
  50. 49 GOTO46
  51. 50 A$="Prev"+D$+" TermPrO"+MID$("nf",Q+2,1)+"DirFBrk Bye ":FORJ=4TO32STEP4:MID$(A$,J,1)=CHR$(ASC(MID$(A$,J))OR128):NEXT:GOTO52
  52. 51 A$=STRING$(7,128)+"Abr"+CHR$(244)
  53. 52 R=17061
  54. 53 V=VARPTR(A$):CALLR,60,PEEK(V+1)+256*PEEK(V+2):RETURN
  55. 54 GOSUB74:IFK=3THENPRINTU$" Disconnect? ";ELSEPRINTU$" Telcom? ";
  56. 55 GOSUB77:IFA$<>"Y"THENERRORELSEIFDANDN>-1THENGOSUB9:CLOSE3
  57. 56 IFK=3THENMAXFILES=1:MENUELSECALL21608
  58. 57 S=0:GOSUB58:CALL21795
  59. 58 S=NOTS:IFSTHENMDMSTOP:PRINT#2,CHR$(19);:CALLVARPTR(M(59)),100ELSEPRINT#2,CHR$(17);:MDMON
  60. 59 RETURN
  61. 60 PRINT:FILES:PRINTFRE(0)"Bytes Free":RETURN
  62. 61 STOP:RETURN
  63. 62 Q=NOTQ:GOSUB50:RETURN
  64. 63 CLEAR500:MAXFILES=3:DEFINTA-Z:DIMX,X(1),M(60),Z(300):SCREEN,0:CLS:FORN=0TO60:READM(N):NEXT:K=3:U$=CHR$(154):N$=CHR$(0):V$=CHR$(22):G$=CHR$(255):F$="":FORN=248TO255:F$=F$+CHR$(N):NEXT:POKE63056,64:CALL17875:POKE63056,0:CALL27804:ONERRORGOTO75
  65. 64 CLOSE:OPENQ$+"adrs.do"FORINPUTAS1:PRINTU$;:LINEINPUT" Find: ";A$:CALLVARPTR(M(3)),0,VARPTR(A$):IFA$="MENU"THEN56ELSEIFA$="DIAL"THENCLOSE:GOTO73
  66. 65 IFEOF(1)THEN64ELSELINEINPUT#1,Y$:I=INSTR(Y$,":"):B$=LEFT$(Y$,I):CALLVARPTR(M(3)),0,VARPTR(B$):IFINSTR(B$,A$)=0THEN65ELSEJ=INSTR(I,Y$,"<"):IFJ=0THEN65
  67. 66 PRINTU$" "LEFT$(Y$,J)">";:Z$=INPUT$(1):CALLVARPTR(M(3)),0,VARPTR(Z$):PRINT:IFZ$=CHR$(27)THEN64ELSEIFZ$=CHR$(13)THEN65
  68. 67 CLOSE:A$="7I1E"+N$:R=6118:GOSUB53:A$=MID$(Y$,I+1,J-I-1)+N$
  69. 68 CALL21179:CALL21264:PRINTU$" "+TIME$+" "+LEFT$(Y$,I);:R=21293:GOSUB53:CALL21172:PRINT:N=0
  70. 69 N=N+1:CALLVARPTR(M(0)),0,VARPTR(X):IFX=0THEN72ELSEB$=INKEY$:IFB$=""ANDN<1500THEN69
  71. 70 CALL21179:CLOSE:IFB$>""THEN64ELSEPRINTU$" Wait":N=0
  72. 71 N=N+1:CALL21264:IFINKEY$>""THEN64ELSEIFN<9THEN71ELSE68
  73. 72 PRINTU$" Auto logon":BEEP:A$=MID$(Y$,J)+N$:R=21392:GOSUB53
  74. 73 PRINT:PRINTU$" On line":Q$="mdm:7i1e":OPENQ$FORINPUTAS1:OPENQ$FOROUTPUTAS2:GOTO34
  75. 74 MDMSTOP:SCREEN,0:PRINT:RETURN
  76. 75 IFQ$=""ANDERL=64THENQ$="0:":RESUME64ELSEPRINTU$" Error, line"ERL"code"ERR:END
  77. 76 PRINTU$" Xmodem protocol? ";
  78. 77 A$=INPUT$(1):CALLVARPTR(M(3)),0,VARPTR(A$):IFINSTR("YN",A$)THENPRINTA$:RETURNELSE77
  79. 78 DATA-4147,30574,201,-18562,20424,32291,26147,4463,2,-5683,6449,6865,-5683,4623,3347,-5688,54,28109,-14227,9012,35,32461,30573,201
  80. 79 DATA54,23892,-5683,1585,-14973,8677,7282,28109,-16019,-14907,483,39,-7415,-15936,31787,-15947,-14907,483,7,-7415,-15936,-15935,-13887,32461,4973,4627,-15903,-15099,485,4,-6903,-7744,-7711,13537,201,-15537,21276
  81.