home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
tel
/
sxm.100
< prev
next >
Wrap
Text File
|
2006-10-19
|
5KB
|
78 lines
0 'SXM.BA Rick Perry
1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
2 GOTO60
3 T=0
4 CALLVARPTR(M(16)),0,VARPTR(X(0)):IFX(0)THENRETURNELSET=T+1:IFT<66*STHEN4ELSERETURN
5 CALLVARPTR(M(21)),0,VARPTR(X):PRINTCHR$(X);:IFQTHENLPRINTCHR$(X);
6 IFDTHENPRINT#3,CHR$(X);
7 RETURN
8 A$="8n1d"+N$:R=6118:GOSUB50:A=256:B=1:GOSUB48:ONERRORGOTO28:IFETHEN17
9 S=1:GOSUB3:IFX(0)THEN9
10 IFINKEY$=G$THEN29ELSEPRINT#2,CHR$(21);:S=10:GOSUB3:IFX(0)THEN12ELSE10
11 IFINKEY$=G$THEN29ELSEPRINT#2,CHR$(6);:S=10:GOSUB3:IFX(0)=0THEN10
12 IFX(1)=1THEN13ELSEIFX(1)=4THENPRINT#2,CHR$(6);:GOTO27ELSEIFX(1)=24THEN29ELSE9
13 CALLVARPTR(M(24)),0,VARPTR(Z(0)):IFZ(0)=0THEN9ELSEIFZ(2)<>(255ANDNOTZ(1))THEN9ELSEIFZ(1)=ATHEN11ELSEIFZ(1)<>BTHEN29
14 X=0:FORN=3TO130:X=X+Z(N):NEXT:X=XAND255:IFX<>Z(131)THEN9
15 FORN=3TO130:IFZ(N)=26THENN=130ELSEPRINT#3,CHR$(Z(N));:PRINTCHR$(Z(N));
16 NEXT:A=B:B=B+1AND255:GOTO11
17 GOSUB24
18 PRINT"?";
19 IFINKEY$=G$THEN29ELSES=10:GOSUB3:IFX(0)=0THEN18ELSEIFX(1)=6THEN23ELSEIFX(1)=21THEN20ELSEIFX(1)=24THEN29ELSE18
20 PRINT"X";
21 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);
22 S=0:GOSUB3:IFX(0)THEN22ELSE19
23 IFN=0THEN27ELSEPRINT".";:GOSUB24:GOTO21
24 A=A+1AND255:N=0:IFNOTETHENRETURN
25 FORN=1TO128:IFETHENIFNOTEOF(3)THENZ(N)=ASC(INPUT$(1,3))ELSEE=0:Z(N)=26ELSEZ(N)=0
26 NEXT:RETURN
27 CLOSE3:PRINT:PRINTU$" End":BEEP:GOTO31
28 PRINTERL;ERR:RESUME29
29 SCREEN,0:PRINT:PRINTU$" ABORT":SOUND9394,9:CLOSE3
30 S=1:GOSUB3:IFX(0)THEN30ELSEPRINT#2,CHR$(24);
31 A$="7I1E"+N$:R=6118:GOSUB50
32 POKE-86,0:D=0:ONERRORGOTO41:POKE63056,64:D$="Down Up":GOSUB47
33 CALL16969:ONMDMGOSUB5:S=-1:GOSUB55:K=0
34 ONKGOTO39,42,51,40:A$=INKEY$:IFINSTR(N$,A$)=0THENA=INSTR(F$,A$):IFATHENONAGOSUB54,36,37,51,59,57,58,38ELSEPRINT#2,A$;
35 GOTO34
36 IFDTHENK=4:RETURNELSEK=1:RETURN
37 IFDTHENRETURNELSEK=2:RETURN
38 K=3:RETURN
39 GOSUB71:PRINTU$;:LINEINPUT" Save to: ";Y$:OPENY$FOROUTPUTAS3:GOSUB73:IFA$="Y"THENE=0:GOTO8ELSED$="@@@@ ":GOSUB47:N=-1:D=-1:GOTO33
40 SCREEN,0:D=0:S=0:GOSUB55:CLOSE3:GOTO32
41 PRINTU$" Abort, line"ERL"code"ERR:IFERR=22THENSCREEN,1:RESUME33ELSECLOSE3:IFERR=18ANDQTHENGOSUB59:RESUME32ELSEIFERL=47ANDERR=7THENRESUME33ELSERESUME32
42 GOSUB71:PRINTU$;:LINEINPUT" Upload: ";Y$:OPENY$FORINPUTAS3:GOSUB73:IFA$="Y"THENE=-1:GOTO8ELSEW=1:PRINTU$;:INPUT" Width";W:W=W-1:T=W-9:C=0:GOSUB48:S=-1:GOSUB55
43 IFINKEY$=G$THENERROR7ELSEIFEOF(3)THENBEEP:CLOSE3:GOTO32ELSEJ=ASC(INPUT$(1,3)):IFJ=10THEN43ELSEC=C+1:IFC=1ANDJ=13THENPRINT#2," ";ELSEIFJ=9THENJ=32
44 IFWTHENIFT<CANDJ=32THENJ=13ELSEIFC>WANDJ<>13THENPRINT#2,CHR$(J);:J=13
45 PRINT#2,CHR$(J);:IFJ=13THENX=0:C=0:FORZ=1TO255:IFX<>62THENNEXT
46 GOTO43
47 A$="Prev"+D$+" TermPrO"+MID$("nf",Q+2,1)+"DirFBrk Bye ":FORJ=4TO32STEP4:MID$(A$,J,1)=CHR$(ASC(MID$(A$,J))OR128):NEXT:GOTO49
48 A$=STRING$(7,128)+"Abr"+CHR$(244)
49 R=17061
50 V=VARPTR(A$):CALLR,60,PEEK(V+1)+256*PEEK(V+2):RETURN
51 GOSUB71:IFK=3THENPRINTU$" Disconnect? ";ELSEPRINTU$" Telcom? ";
52 GOSUB74:IFA$<>"Y"THENERROR
53 IFK=3THENMAXFILES=1:MENUELSECALL21608
54 S=0:GOSUB55:CALL21795
55 S=NOTS:IFSTHENMDMSTOP:PRINT#2,CHR$(19);:CALLVARPTR(M(59)),100ELSEPRINT#2,CHR$(17);:MDMON
56 RETURN
57 PRINT:FILES:PRINTFRE(0)"Bytes Free":RETURN
58 STOP:RETURN
59 Q=NOTQ:GOSUB47:RETURN
60 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:ONERRORGOTO72
61 CLOSE:OPENQ$+"adrs"FORINPUTAS1:PRINTU$;:LINEINPUT" Find: ";A$:CALLVARPTR(M(3)),0,VARPTR(A$):IFA$="MENU"THEN53ELSEIFA$="DIAL"THENCLOSE:GOTO70
62 IFEOF(1)THEN61ELSELINEINPUT#1,Y$:I=INSTR(Y$,":"):B$=LEFT$(Y$,I):CALLVARPTR(M(3)),0,VARPTR(B$):IFINSTR(B$,A$)=0THEN62ELSEJ=INSTR(I,Y$,"<"):IFJ=0THEN62
63 PRINTU$" "LEFT$(Y$,J)">";:Z$=INPUT$(1):CALLVARPTR(M(3)),0,VARPTR(Z$):PRINT:IFZ$=CHR$(27)THEN61ELSEIFZ$=CHR$(13)THEN62
64 CLOSE:A$="7I1E"+N$:R=6118:GOSUB50:A$=MID$(Y$,I+1,J-I-1)+N$
65 CALL21179:CALL21264:PRINTU$" "+TIME$+" "+LEFT$(Y$,I);:R=21293:GOSUB50:CALL21172:PRINT:N=0
66 N=N+1:CALLVARPTR(M(0)),0,VARPTR(X):IFX=0THEN69ELSEB$=INKEY$:IFB$=""ANDN<1500THEN66
67 CALL21179:CLOSE:IFB$>""THEN61ELSEPRINTU$" Wait":N=0
68 N=N+1:CALL21264:IFINKEY$>""THEN61ELSEIFN<9THEN68ELSE65
69 PRINTU$" Auto logon":BEEP:A$=MID$(Y$,J)+N$:R=21392:GOSUB50
70 PRINT:PRINTU$" On line":Q$="mdm:7i1e":OPENQ$FORINPUTAS1:OPENQ$FOROUTPUTAS2:GOTO32
71 MDMSTOP:SCREEN,0:PRINT:RETURN
72 IFQ$=""ANDERL=61THENQ$="0:":RESUME61ELSEPRINTU$" Error, line"ERL"code"ERR:END
73 PRINTU$" Xmodem protocol? ";
74 A$=INPUT$(1):CALLVARPTR(M(3)),0,VARPTR(A$):IFINSTR("YN",A$)THENPRINTA$:RETURNELSE74
75 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
76 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