home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / telgpx.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  28 lines

  1. 0 'TELGPX.BA  author unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 CLEAR256,HIMEM:CLS:FILES:LINEINPUT"Input .CO filename: ";A$
  4. 15 ONERRORGOTO110:LOADMA$:GOSUB50
  5. 25 X=64206:P=PEEK(X)+256*PEEK(X+1):IFP<>HIMEMTHENCLEAR256,P:GOSUB50:GOTO15
  6. 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
  7. 40 FORJ=PTOQ:Z=PEEK(J):GOSUB95:NEXT
  8. 45 Z=C:GOSUB95:PRINT#1,:CLOSE:BEEP:MENU
  9. 50 A$="":FORJ=63109TO63129:A=PEEK(J):IFA=0ORA=46THENJ=63129ELSEA$=A$+CHR$(A)
  10. 55 NEXT:RETURN
  11. 60 Q$=CHR$(34):PRINT#1,"0 CLS:CALL17001:PRINT@133,"Q$" Displaying... "Q$":CALL17006
  12. 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
  13. 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
  14. 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
  15. 80 PRINT#1,"5 GOTO500: '** Start printer screen dump routine at line 500  **"
  16. 83 PRINT#1,"500 PRINT"Q$"Printer routine required in line 500"Q$":PRINT@0,
  17. 85 K=9:N=16:Z=P:GOSUB95:Z=Q:GOSUB95:Z=R:GOSUB95
  18. 90 PRINT#1,","Q$;A$;Q$:N=16:RETURN
  19. 95 N=N+1:IFN>16THEN105ELSEPRINT#1,",";
  20. 100 PRINT#1,MID$(STR$(Z),2);:C=C+Z:RETURN
  21. 105 N=1:K=K+1:PRINT#1,:PRINT#1,MID$(STR$(K),2)" DATA";:GOTO100
  22. 110 IFERR=7THENRESUMENEXTELSEONERRORGOTO:RESUME
  23. 200 'OPERATION AS FOLLOWS:
  24. 201 'Save image (by name) to RAM.
  25. 202 'Run Telegraphix and it will create a "disk" FILE.DO
  26. 203 'This file.do can be transmitted.
  27. 204 'Recipient must load the .DO file from disk and run it from BASIC.
  28.