Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · ABC800 · Thread

Inverterad video på 806

23 posts in thread

Paul Pries <5322> · Text 6416 · w8 · inlagg

1987-03-26 11:19

Ärende: Inverterad video på 806

Hur får man det? PÅ 802:an är det ju rätt enkelt, men 806: vill inte... Jag vill ha det till att markera en befintlig text på skärmen, så man lättare skall se vad man "rotar" med i ett program. Har tittat lite i xstar, där det används för att markera vad som skall kopieras, men in't hittar jag hur det görs. Nå'n som vet? H / paul.
- Lars Gjörling <6825> · Text 6418 · w8 · kommentar
  
  1987-03-27 00:01
  
  Ärende: Inverterad video på 806
  
  Den här funktionen inverterar texten ett visst antal tecken från och med en viss cur-position. Bakgrunden får textens färg och texten får bakgrundens färg, vilka färgerna än är. Om man kör funktionen två gånger med samma inparametrar, får man alltså tillbaka det ursprung- liga. Färgvalet före 'RETURN 0' kan man välja efter programmet. 1000 DEF FNInvert(Rad,Kol,Antal) LOCAL Adr,I,Färg,Tkn 1010 Adr=30720+80*Rad+Kol 1020 WHILE I<Antal 1030 Tkn=PEEK(Adr+I) : Färg=INP(53) : OUT 53,Färg/8+8*MOD(Färg,8) 1040 POKE Adr+I,Tkn : I=I+1 1050 WEND 1060 ; BLBG WHT; : RETURN 0 1070 FNEND Funktionen är inte svår att skriva i assembler, om så önskas. Mvh Lars Gjörling <6825>
  - Paul Pries <5322> · Text 6419 · w8 · kommentar
    
    1987-03-27 08:29
    
    Ärende: Inverterad video på 806
    
    Tackar! Precis vad jag behövde! H / Paul.
    - Lars Gjörling <6825> · Text 6420 · w8 · kommentar
      
      1987-03-27 11:20
      
      Ärende: Inverterad video på 806
      
      Vid närmare eftertanke ser jag att mitt förslag till FNInvert strular till ditt textavsnitt, om det finns Underline eller Flash i det. För att undvika detta, bör kanske slutet på programrad 1030 skrivas: ... : OUT 53, (Färg AND 192)+(Färg AND 56)/8+(Färg AND 7)*8 Mvh Lars Gjörling <6825>
      - Benny Löfgren SYSOP <2615> · Text 6440 · w8 · kommentar
        
        1987-03-29 18:59
        
        Ärende: Inverterad video på 806
        
        Varför komplicera det med en massa PEEK och OUT, när det finns färdiga strängkonstanter för att direkt i BASIC'en skriva alla attribut??? Ex: ; WHT NWBG BLK "Denna text är inverterad!"
        
        Lars Gjörling <6825> · Text 6447 · w8 · kommentar
        
        1987-03-29 21:43
        
        Ärende: Inverterad video på 806
        
        Du kanske inte observerade vad det var som Paul Pries ville ha hjälp med i inlägg 6416. Det gällde att med invertering markera olika delar av en BEFINTLIG text på skärmen, för att kunna flytta en läsares uppmärksamhet från ett ställe till ett annat. Den befint- liga texten skall alltså ändras från normal till inverterad och se- dan tillbaka till normal igen, varefter ett annat stycke skall kon- verteras på samma sätt osv. När jag skriver vanliga printsatser, som skall ge inverterad text, så använder jag (och säkerligen också Paul) självfallet det skriv- sätt som du exemplifierar. Mvh Lars Gjörling <6825>
        
        Martin Persson <7174> · Text 6454 · w8 · kommentar
        
        1987-03-29 23:47
        
        Ärende: Inverterad video på 806
        
        DET kan man faktiskt lösa så som jag har löst det i ett program, nämligen att man ritar en ram runt aktuellt textavsnitt i högupplösning. Visserligen är det kämpigt att räkna om printpositioner till fgpoint- positioner, men någotsåhär borde gå... Xpos och Ypos är printpositioner DEF FNRam Xhir=14+6*Xpos Yhir=230-Ypos*10 Lngd=6*(antalet tecken)+4 FGPOINT Xhir,Yhir FGLINE Xhir+Lngd,Yhir FGLINE Xhir+Lngd,Yhir+9 FGLINE Xhir,Yhir+9 FGLINE Xhir,Yhir RETURN 0 FNEND Med reservation för misstag... SAD.
        
        Benny Löfgren SYSOP <2615> · Text 6479 · w8 · kommentar
        
        1987-04-02 10:23
        
        Ärende: Inverterad video på 806
        
        Jodå, jag observerade det, men jag vidhåller att man ska använda före- skrivna metoder istället för att hålla på och helt i onödan pula med så maskinberoende saker som att skriva i bildminnet. Skriver man bara sitt program på ett smart sätt så innebär det inga problem att göra som jag skriver.
        
        Paul Pries <5322> · Text 6481 · w8 · kommentar
        
        1987-04-02 15:39
        
        Ärende: Inverterad video på 806 / Olika sätt...
        
        Jo, nog går det på flera sätt, men det enklaste var nog ändå det som Lars beskrev. Jag var ändå tvungen att kolla maskintypen, så det spelar ingen roll. Smart skrivna program.... Det som jag har kreerat här liknar spaghetti, och är "om och tillbyggt" ett flertal gånger. Men det funkar ypperligt! (. Jag tror jag skall ta och skicka in det.) Ha de' bra! H / Paul.
        
        Lars Gjörling <6825> · Text 6485 · w8 · kommentar
        
        1987-04-03 00:02
        
        Ärende: Inverterad video på 806
        
        .... man skall använda föreskrivna metoder ...... Vem föreskriver vilka metoder jag får använda? Hur blir man auktoriserad att 'pula med maskinberoende saker'? Att skriva i bildminnet trodde jag inte var så avancerat. Mvh Lars Gjörling <6825>
        
        Benny Löfgren SYSOP <2615> · Text 6487 · w8 · kommentar
        
        1987-04-03 12:00
        
        Ärende: Inverterad video på 806
        
        Föreskrivna metoder = sån't som är beskrivet i manualen. Du FÅR använda vad tusan du vill, men då får du naturligtvis ta kon- sekvenserna av det också, genom att ditt program blir svårare att porta. Du kanske till och med riskerar att programmet slutar fungera om du kör det på en nyare/äldre version av samma dator/operativsystem! Att pula med maskinberoende saker överlåter man lämpligen till system- programmerare, som vet vad de gör och vilka konsekvenser det får (därmed inte sagt att inte du gör det, naturligtvis!). Skriva i bildminnet är i och för sig inte så avancerat, i betydelsen svårt, men det kan bli nog så avancerat när man ska flytta sitt fina program till t ex Basic II/PC eller D-Basic V. Nu kanske inte du har såna ambitioner med dina program, vad vet jag, men det lönar sig alltid att ha portabiliteten i bakhuvudet. Måste man skriva maskinberoende så kan man åtminstone avgränsa de delarna av programmet så att man vet vilken del som är 'säker' och vilken man kan misstänka ger problem vid en flytt.
        
        Martin Persson <7174> · Text 6496 · w8 · kommentar
        
        1987-04-04 12:09
        
        Ärende: Inverterad video på 806
        
        Så länge man håller sig till ABC806, är det inte så svårt... Använd: DIM Screen¤=0 POKE VAROOT(Screen¤),208,7,0,120,208,7 så kan du sedan 'skriva' i Screen¤ precis som vanligt, förutom att det kommer ut på skärmen istället för att bara petas in i RAMet. Strängen omfattar med ovanstående dimensionering alla skärmens 25 rader, och förhoppningsvis kan man poka ned inverterad video med ATTRIBUTE 0 satt. SAD.
        
        Benny Löfgren SYSOP <2615> · Text 6502 · w8 · kommentar
        
        1987-04-06 10:33
        
        Ärende: Inverterad video på 806
        
        Jag tror att du missade andemeningen i mitt inlägg... Tanken är att man INTE ska använda den metoden, utan vanliga hederliga PRINT-instruktioner.
        
        Lars Gjörling <6825> · Text 6504 · w8 · kommentar
        
        1987-04-06 23:36
        
        Ärende: Inverterad video på 806
        
        OK. Ett alternativ att ge till det tidigare föreslagna, beträffande inverterad video på abc806 är exempelvis: DEF FNInvert(Rad,Kol,Text¤,Mode) IF Mode=1 ; CUR(Rad,Kol) WHT NWBG BLK Text¤ IF Mode=2 ; CUR(Rad,Kol) BLBG WHT Text¤ RETURN 0 FNEND För sitt ändamål, att ändra delar av en på skärmen redan befintlig text, blir den enligt mitt tycke visserligen kortare och mer lätt- förståelig som funktion, men samtidigt klumpigare att använda i pro- grammet. Den torde emellertid även fungera i exempelvis abc802. Jag förstår helt dina synpunkter beträffande portabiliteten av pro- gram till andra versioner av datorer och operativsystem, och gäller det program, som skall göras allmänt tillgängliga, är detta natur- ligtvis viktigt. Dock vimlar det i programbanken av program, som är maskinberoende, använder adresser i bildminnet (bl a det program jag just nu använder) och pokar och outar hej vilt. I just detta fall kanske du i alla fall har gjort en elefant av en mygga för dom heliga principernas skull. Det var ju bara fråga om en klubbmedlem, som i ett program för abc802 utnyttjade invertering och fann detta 'lätt'. Men i abc806 fungerade det inte. Det är inte svårt att förstå hur den inverteringen gjordes i 802:an, och jag upplys- te därför om hur motsvarigheten i 806:an gjordes. Vi entusiastiska dataamatörer, som tycker att det är roligt med dato- rer, kommer ganska snart till det stadium, då det bundna och begränsade basicspråket börjar kännas trångt. För min del har jag studerat pascal och assembler, samt försökt sätta mig in i operativsystemet för den dator jag själv använder. Att skriva vanliga små basicprogram ger inte riktigt samma stimulans längre. Det verkar finnas många liknande amatörer i klubben. Låt oss få vara entusistiska, låt oss få utbyta erfarenheter, och hjälp oss gärna med det vi kör fast på eller gjort dumt, alla ni som har kommit så mycket längre. Men tryck inte ned oss genom att inta attityden: 'det här skall du inte syssla med lille vän, överlåt det åt dem som begriper det'. Man kan fak- tiskt inte lära sig något utan att pröva på, eventuellt göra dumheter och få upptäcka dem. Man kan inte lära sig att 'pula med maskinberoen- de saker' om man skall 'överlåta det till systemprogrammerare, som vet vad de gör'. Mvh Lars Gjörling <6825>
        
        Benny Löfgren SYSOP <2615> · Text 6505 · w8 · kommentar
        
        1987-04-07 09:42
        
        Ärende: Inverterad video på 806
        
        Givetvis kan var och en experimentera fritt, det är naturligtvis helt OK, men jag ville bara höja ett varningens finger för konsekvenserna. Även om man inte tänkt sig att programmet som man suttit och knåpat på ska nå utanför ens egen dator så kan det naturligtvis bli så att man talar om för någon (ex. i MSG) att man håller på med ett program som gör si och så, och så säger denne "va' bra! Skicka in det till monitorn, vetja!", och vips så får man en massa frågor om varför programmet inte går på den och den datorn. Vems är t ex ansvaret om ett program som fungerar utmärkt på din dator formatterar winchestern på någon annans dator? Nu kanske det är ett lång- sökt exempel, men liknande saker HAR hänt. Jag menade dessutom inte alls att på något vis 'trycka ner' någon, det var mera ett svar på frågan om vem som är lämpad att ägna sig åt sådana saker, men det var KOMMERSIELLT sett, på hobbymarknaden är man inte lika beroende av att programmen fungerar, och gör det överallt.
        
        Daniel Deimert <5439> · Text 6506 · w8 · kommentar
        
        1987-04-07 11:48
        
        Ärende: Inverterad video på 806
        
        Vad var det för program som formatterade hårddisken på en dator, men fungerade utmärkt på en annan..... Det verkar ganska misstänkt, eller hur! När man pokar i bildminnet så blir det väl knappast så ödesdigra konsekvenser, eller...? Möjligtvis när man OUT-ar till bildminnet, men då ska det vara ganska grava fel- skrivningar, tror jag! Mvh Daniel
        
        Jaan Tombach <4283> · Text 6509 · w8 · kommentar
        
        1987-04-07 22:56
        
        Ärende: Formatera Winchestern
        
        Enligt hörsägen så kan det hända om man använder streamerprogramvaran från Menu0 på en Tranforstreamer. Mvh Janne
        
        Daniel Deimert <5439> · Text 6511 · w8 · kommentar
        
        1987-04-08 12:06
        
        Ärende: Formatera Winchestern
        
        Låter trevligt! Det borde programmakarna från Luxor och Diab använda i sina kopieringsskydd! När man har gjort en backup på programmet, så formatterar programmet winchestern! (. Det kanske dom redan gör??? .) Mvh Daniel
        
        Benny Löfgren SYSOP <2615> · Text 6512 · w8 · kommentar
        
        1987-04-08 13:34
        
        Ärende: Inverterad video på 806
        
        Notera att jag nu talar helt generellt, exemplet härrörde sig inte alls från något 'bildskärmsfnulande'. Jag sa heller inte att det hade inträffat just att winchestern formatterats, utan 'liknande saker'. Jag har alltså inget konkret exempel, men jag vet av egen erfarenhet att det är lätt att få problem om man gör maskinberoende saker.
        
        Kristoffer Eriksson <5357> · Text 6516 · w8 · kommentar
        
        1987-04-08 20:21
        
        Ärende: Inverterad video på 806
        
        Snarare är det väl så att pysslar man med maskinberoende saker i onödan, visar det att man inte begriper vad det är man gör...
        
        Lars Gjörling <6825> · Text 6519 · w8 · kommentar
        
        1987-04-09 21:05
        
        Ärende: Inverterad video på 806
        
        Tack så hjärtligt för den vänliga repliken! Mvh Lars Gjörling <6825>
        
        Martin Persson <7174> · Text 6522 · w8 · kommentar
        
        1987-04-09 23:11
        
        Ärende: Maskinberoende saker...
        
        Kan du precisera vad du har emot det ? Jag föredrar att dimensionera upp strängar över skärmen i stället för print, då man lättare kan redigera redan utskriven text. Det kommunikationsprogram jag använder för tillfället, skriver ut texten med hjälp av en sträng på rad 23. SAD.
        
        Kristoffer Eriksson <5357> · Text 6562 · w8 · kommentar
        
        1987-04-14 20:06
        
        Ärende: Maskinberoende saker...
        
        6516 var en kommentar till yttrandet "det här ska du inte syssla med lille vän, överlåt det åt dem som begriper det", vilket jag tycker är en feltolkning av motståndet mot maskinberoende programmering. Sen kan man ju diskutera vad som menas med att använda maskin- beroende detaljer i "onödan"... Hastighetsaspekter och brister i Basic kan vara bra skäl. Bristande vana vid Basic eller dålig planering av programmet är dåliga skäl. Att lägga strängar över skärmen gör att programmet inte fungerar ens på alla modeller i ABC800-familjen, närmare bestämt ABC800C...