Rad 25 och inverterad text på ABC80X

8 posts in thread

• Curt Rehnborg <1121> · Text 2463 · w8 · inlagg

  1986-01-05 01:05

  Ärende: Rad 25 och inverterad text på ABC80X

  Är det någon som har kläm på hur man på ABC802 och ABC806 kan fixa till inverterad text på någon rad(er). Hur man får till rad 25 vet jag, men hur fixa inverterad text där ? Helst ska man kunna köra inverterat ibland och inte ibland. Någon som vet, hör av er ...... Gott Nytt År .... Hälsning Curt Rehnborg
  • Kent Berggren SYSOP <6019> · Text 2464 · w8 · kommentar

    1986-01-05 01:08

    Ärende: Rad 25 och inverterad text på ABC80X

    Bit 7 hög. Funkar inte det?
    • Gerry Eriksson <4842> · Text 2466 · w8 · kommentar

      1986-01-05 01:34

      Ärende: Rad 25 och inverterad text på ABC80X

      Att sätta bit 7 hög går bara på ABC802. På 806 så kan du sätta en bakgrundsfärg och skriva text med svart (BLK).
      • Kristoffer Eriksson <5357> · Text 2489 · w8 · kommentar

        1986-01-06 01:35

        Ärende: Rad 25 och inverterad text på ABC80X

        På 806 är det ganska enkelt, eftersom man kan skriva t.ex PRINT CUR(24,0) YEL NWBG BLK "Detta är rad 25"; På 802 däremot är man tvungen att POKE:a in texten eller använda andra knep, varvid bit 7 ska vara ett-ställd. Dock finns det en del 802:or med större teckenprom som har andra tecken än inverterade normala tecken på de koderna. Med "andra knep" menar jag exempelvis: DIM Line25¤=0 POKE VAROOT(Line25¤),80,0,32640,SWAP%(32640),80,0 Text¤="Detta blir inverterat på rad 25" FOR I=1 TO LEN(Text¤) MID¤(Line25¤,I,1)=CHR¤(ASC(MID¤(Text¤,I,1)) OR 128) NEXT I fast när man ändå måste behandla varje tecken för sig, går det ju lika bra med ren POKE.
        • Curt Rehnborg <1121> · Text 2499 · w8 · kommentar

          1986-01-08 01:52

          Ärende: Rad 25 och inverterad text på ABC80X

          Det var jag som ursprungligen ställde frågan, och nu verkar det som lösningen närmar sig. Fast fortfarande kan jag inte få det att fungera med inverterad text på rad 25 på ABC806!! Någon som vet hur, kan man invertera delar av raden ?? Hälsningar Curt Rehnborg
          • Gerry Eriksson <4842> · Text 2501 · w8 · kommentar

            1986-01-08 02:04

            Ärende: Rad 25 och inverterad text på ABC80X

            Har du prövat Kristoffers förslag för 806, det skall fungera för rad 25. YEL NWBG sätter gul bakgrundsfärg och BLK svart förgrundsfärg dvs. skriver med svart text på gul bakgrund.
          • Kristoffer Eriksson <5357> · Text 2505 · w8 · kommentar

            1986-01-08 21:33

            Ärende: Rad 25 och inverterad text på ABC80X

            För att invertera endast en bit av en rad på 806 skriver man i stil med detta exempel: PRINT CUR(10,30) YEL NWBG BLK "Inverterat" BLBG " " BLBG på slutet återställer resten av raden till svart bakgrund och blanktecknet behövs för att den nya färgen verkligen ska skrivas ut i bildminnet, i alla fall när man har ATTRIBUTE 1. Ska man genast fortsätta med ej inverterad text får man förstås ställa in en förgrundfärg också, annars blir det ju svart på svart. Om det redan står något mera i slutet av raden behövs inte 'BLBG " "' eftersom den gamla texten ändå behåller sin färg, det är bara på helt oskrivna rader som bakgrundsfärgen sträcks ut över hela raden. Tänk på att om print-satsen avslutas med ";" fortsätter de inställda färgerna och övriga attribut att gälla även vid nästa print oavsett om man har ATTRIBUTE 0 eller 4. Grafik- och färghanteringen skiljer ju ganska mycket mellan 806 och 802. På 802 skriver man i förväg ut styrtecken på lämpliga ställen i bilden, medan det i 806 hela tiden är senast använt styrtecken som gäller.
            • Curt Rehnborg <1121> · Text 2509 · w8 · kommentar

              1986-01-08 23:44

              Ärende: Rad 25 och inverterad text på ABC80X

              Man tackar så mycket för hjälpen nu rullar det ...... Hälsning CR