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.