home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
tel
/
telgpx.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
28 lines
0 'TELGPX.BA author unknown
1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE
10 CLEAR256,HIMEM:CLS:FILES:LINEINPUT"Input .CO filename: ";A$
15 ONERRORGOTO110:LOADMA$:GOSUB50
25 X=64206:P=PEEK(X)+256*PEEK(X+1):IFP<>HIMEMTHENCLEAR256,P:GOSUB50:GOTO15
30 Q=P-1+PEEK(X+2)+256*PEEK(X+3):R=PEEK(X+4)+256*PEEK(X+5):OPEN"0:"+A$+".DO"FOROUTPUTAS1:CLS:PRINT@122,"Bill's *SUPER* Telegraphix program":C=0:GOSUB60
40 FORJ=PTOQ:Z=PEEK(J):GOSUB95:NEXT
45 Z=C:GOSUB95:PRINT#1,:CLOSE:BEEP:MENU
50 A$="":FORJ=63109TO63129:A=PEEK(J):IFA=0ORA=46THENJ=63129ELSEA$=A$+CHR$(A)
55 NEXT:RETURN
60 Q$=CHR$(34):PRINT#1,"0 CLS:CALL17001:PRINT@133,"Q$" Displaying... "Q$":CALL17006
65 PRINT#1,"1 READP:CLEAR256,P:READP,Q,R,A$:PRINT@216,A$+"Q$".CO"Q$":C=P+Q+R:FORJ=44427TO46379:READX:POKEJ,X:NEXT
70 PRINT#1,"2 POKEHIMEM,201:HL=HIMEM+1:M%(0)=278:M%(1)=13005:M%(2)=-13964:FORR%=0TO6:FORC%=0TO39:CALL30300:POKE-12,R%:POKE-11,C%:CALLVARPTR(M%(0)),0,HL:HL=HL+6:NEXT:NEXT:BEEP
75 PRINT#1,"3 CALL16959:PRINT@280,"Q$" Want a printout (Y/N)?;":PRINT#1,"4 S$=INPUT$(1):IFINSTR("Q$"yY"Q$",S$)THEN5ELSEMENU
80 PRINT#1,"5 GOTO500: '** Start printer screen dump routine at line 500 **"
83 PRINT#1,"500 PRINT"Q$"Printer routine required in line 500"Q$":PRINT@0,
85 K=9:N=16:Z=P:GOSUB95:Z=Q:GOSUB95:Z=R:GOSUB95
90 PRINT#1,","Q$;A$;Q$:N=16:RETURN
95 N=N+1:IFN>16THEN105ELSEPRINT#1,",";
100 PRINT#1,MID$(STR$(Z),2);:C=C+Z:RETURN
105 N=1:K=K+1:PRINT#1,:PRINT#1,MID$(STR$(K),2)" DATA";:GOTO100
110 IFERR=7THENRESUMENEXTELSEONERRORGOTO:RESUME
200 'OPERATION AS FOLLOWS:
201 'Save image (by name) to RAM.
202 'Run Telegraphix and it will create a "disk" FILE.DO
203 'This file.do can be transmitted.
204 'Recipient must load the .DO file from disk and run it from BASIC.