Från bildskärm till printer

6 posts in thread

• Kjell Pettersson <5444> · Text 2674 · w8 · inlagg

  1986-10-24 10:24

  Ärende: Från bildskärm till printer

  Jag använder ibland ett program där man kan rita figurer och mönster på bildskärmen och det fungerar bra. Men det skulle vara roligt om man kunde dumpa bildskärmens innehåll på printern.Printern som jag an- vänder är STAR GEMINI 10X.Det kanske finns ett dyligt program i monitorn fast jag inte har hittat detta.Detta är för övrigt ett pro- blem då det kan vara svårt att veta vad som döljer sig bakom alla filerna.Det skulle vara bra om det fanns en textfil i början av alla bibliotek som beskrev filerna lite mer utförligt.
  • David Andersson <5201> · Text 2681 · w8 · kommentar

    1986-10-26 03:00

    Ärende: Från bildskärm till printer

    Är det grafik? Använder du en grafikeditor och kan spara grafikbilden på en fil? Testa då ABC80/GRAFIK:RXPLOT.BAS, den tar en grafikfil och skriver ut på epson-kompatibel printer med högupplösningsgrafik. Övriga filer som kanske kan vara användbara: ABC80/GRAFIK:HR*.*, grafikrutiner som ritar med blockgrafik på skärmen men med nålgrafik på printer. ABC80/PRGRAF:GRAFPRIN.BAS och MX80PR.BAS verkar som om de kopierar grafik från skärmen till skrivare.
  • Curt Sederlin <1188> · Text 2690 · w8 · kommentar

    1986-10-26 23:46

    Ärende: Från bildskärm till printer

    Det finns ett sådant program, tror jag har det någonstans Annars fanns det på sista sidan i någon manual från Metric Mvh Curre
  • Curt Sederlin <1188> · Text 2697 · w8 · kommentar

    1986-10-27 16:25

    Ärende: Från bildskärm till printer

    Har nu hittat skärmdumprutinen. Tyvärr klarar den BARA text. 100 GOSUB 10000 ... ... 10000 OPEN "PR:"AS FILE 9% 10010 FOR P1%=884% TO 930% STEP 2 10020 FOR P2%=0% TO 39% 10030 PRINT #9%,CHR¤(PEEK(PEEK(P1%)+PEEK(P1%+1%)*256%+P2%)); 10040 NEXT P2% 10045 PRINT #9% 10050 NEXT P1% 10055 PRINT #9% 10060 CLOSE 9% 10070 RETURN Mvh Curre
  • Arne Hartelius <2731> · Text 2698 · w8 · kommentar

    1986-10-27 17:59

    Ärende: Från bildskärm till printer

    Dessa rutiner är testade på microline 82A och 83A. Man får en exakt kopia eftersom både microline och ABC80 använder samma grafik, teledatagrafik. Först rutinen för 7-bitars överföring. 64000 REM ============================================================ 64010 REM === GRAFDUMP.SUB med ctrl-tkn == 7bits == 84.11.22 ======== 64020 REM ============================================================ 64025 DIM P9¤=200% 64030 OPEN "PR:" ASFILE 1% : ; #1%CHR¤(24,29); : REMSTÄLL IN PRINTER 64040 FOR I%=884% TO 930% STEP 2% : REM . LOOP RADER 64050 Q1%=PEEK(I%)+SWAP%(PEEK(I%+1%)) 64060 P9¤=CHR¤(15%)+SPACE¤(17%) : Q%=-1% : REM <ej graf> + marginal 64070 FOR Q2%=0% TO PEEK(590%)-1% : REM . LOOP KOLUMN 64080 P%=PEEK(Q1%+Q2%) 64090 IF P%=23% Q%=0% : P9¤=P9¤+CHR¤(14%,64%) : GOTO 64180 64095 IF P%=7% Q%=-1% : P9¤=P9¤+CHR¤(15%,32%) : GOTO 64180 64100 IF Q% GOTO 64170 64110 REM . CTRL , !-? , ver ,gem 64120 ON ((P%/32%)+1%) GOTO 64130,64140,64150,64160 64130 P9¤=P9¤+CHR¤(64%,P%) : GOTO 64180 64140 P%=P%+32% : GOTO 64170 64150 P9¤=P9¤+CHR¤(15%,P%,14%) : GOTO 64180 64160 P%=P%-64% 64170 P9¤=P9¤+CHR¤(P%) 64180 NEXT Q2% 64190 IF (RIGHT¤(P9¤,LEN(P9¤))=' ' AND LEN(P9¤)>0%) THEN P9¤=LEFT¤(P9¤,LEN (P9¤)-1%) : GOTO 64190 64200 ; #1%,P9¤ 64210 NEXT I% : CLOSE 1% : RETURN 8-bitars överföring 64000 REM ******************************* 64010 REM PROGRAM SOM LÅTER SKRIVAREN 64020 REM LÄSA AV SKÄRMEN "ÄVEN GRAFISKT" 64030 REM ******************************* 64040 OPEN "PR:" ASFILE 1% 64050 FOR I%=884% TO 930% STEP 2% 64060 Q%=PEEK(I%)+SWAP%(PEEK(I%+1%)) 64070 S1%=0% 64080 FOR J%=0% TO PEEK(590%-1%) 64090 P%=PEEK(Q%+J%) 64100 IF P%=23% THEN S1%=1% : P%=32% 64110 IF P%=7% THEN S1%=0% : P%=32% 64120 IF S1%=0% THEN S%=0% : GOTO 64150 64130 IF P%>63% THEN S%=0% ELSE S%=32% 64140 IF P%<64% OR P%>95% THEN S%=S%+128% 64150 P¤=P¤+CHR¤(P%+S%) 64160 NEXT J% 64170 IF (RIGHT¤(P¤,LEN(P¤))=' ' AND LEN(P¤)>0%) THEN P¤=LEFT¤(P¤,LEN(P¤)-1 %) : GOTO 64170 64175 ; #1,P¤ 64180 NEXT I% : CLOSE 1% : RETURN Tom Sjöborg är pappa till dessa subrutiner.
    • Arne Hartelius <2731> · Text 2699 · w8 · kommentar

      1986-10-27 18:00

      Ärende: Från bildskärm till printer

      Tom Sjöberg heter han, inte Sjöborg. ( Text 2699 )