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

Tömma inmatningsbufferten

20 posts in thread

Sven Wickberg <1384> · Text 7430 · w8 · inlagg

1987-09-01 22:00

Ärende: Tömma inmatningsbufferten

Hur blir man av med sista tangenttrycket i basic2? Mitt problem: En textfil skall granskas rad för rad och samtidigt föras över till ny fil ("i ny räkning" s a s) för vidare skrivning. Visa rad Get W¤ osv tills filen slut När filen är slut kanske man fortfrande håller mellanslaget eller RETURN nere, och detta sista tecken kommer att registreras som svar på nästa fråga: UTskrift på printer (N)? och så missar man den utskriften. Jg har försökt med xx IF SYS(8) THEN xx men den gör bara att exekveringen står kvar på den raden tills man släpper tangenten, sedan registreras i alla fall sist tryckt tangent. zz A0SYS(6): GET W¤ : IF A>13 THEN zz hjälper inte heller. Vad göra? På ABC80 fungerde det utmärkt med ww IF INP(56)>127 THEN ww
- Martin Persson <7174> · Text 7431 · w8 · kommentar
  
  1987-09-01 22:12
  
  Ärende: Tömma inmatningsbufferten
  
  Jag har för mig att adress 65506 visar om det är en tangent nedtryckt, och att adress 65505 visar asciikoden för denna. Måhända är det tvärt om, men i alla fall. Om en tangent är nedtryckt, indikeras detta med ett 128 i 65506. Pokar du om den till 0, ska datorn glömma bort det. Du kan ju i alla fall testa...
  - Martin Lundahl <5254> · Text 7444 · w8 · kommentar
    
    1987-09-03 16:43
    
    Ärende: Tömma inmatningsbufferten
    
    65506 visar väl om det finns något tecken i bufferten, och 65507 innehåller tecknet. Rätta mig om jag har fel. /Martin
    - Martin Persson <7174> · Text 7450 · w8 · kommentar
      
      1987-09-04 00:01
      
      Ärende: Tömma inmatningsbufferten
      
      Ingen aaaning. Du får välan testa dig fram...
    - Lars Gjörling <6825> · Text 7454 · w8 · kommentar
      
      1987-09-04 00:33
      
      Ärende: Tömma inmatningsbufferten
      
      Dina adresser är helt riktiga. Mvh Lars
- Nils Hansson <519> · Text 7432 · w8 · kommentar
  
  1987-09-01 22:13
  
  Ärende: Tömma inmatningsbufferten
  
  Försök med; WHILE SYS(5): GET W¤ : WEND Mvh Nils Hansson
- Lars Gjörling <6825> · Text 7439 · w8 · kommentar
  
  1987-09-02 13:17
  
  Ärende: Tömma inmatningsbufferten
  
  Här är mitt förslag: ................... WHILE SYS(8) : WEND ! Invänta att tangenten släpps upp Z=SYS(6) : GET W¤ ! Töm inmatningsbufferten ; "Utskrift på printer (N)? "; : GET W¤ .................. osv Mvh Lars
  - Sven Wickberg <1384> · Text 7441 · w8 · kommentar
    
    1987-09-02 22:55
    
    Ärende: Tömma inmatningsbufferten
    
    Tackar för alla tipsen; tycker att jag pröat just de grejorna, men jag skall seriöst gå över möjligheterna igen. Återkommer med rapport.
    - Kristoffer Eriksson <5357> · Text 7463 · w8 · kommentar
      
      1987-09-05 02:18
      
      Ärende: Tömma inmatningsbufferten
      
      Nils Hanson var den enda som kom med den korrekta lösningen för att tömma inmatningsbufferten (före inlägg 7441 i alla fall): WHILE SYS(5) : GET W¤ : WEND Att nolla inmatningsflaggan med POKE är en sämre lösning eftersom den inte är portabel (t ex till ABC80, D-BASIC-V, BasicII/PC), och strularåi till det om man kör KEY.BAC. SYS(5) är f ö identiskt med PEEK(65506). Att med SYS(8) vänta på att tangenten släpps är inte ens portabelt till ABC800, och inte riktigt adekvat som lösning på problemet, om man har extra inmatningsbuffert inkopplad (typ KEY). Till sist anser jag inte särskilt lämpligt att ha en fråga placerad så att tidigare iä_nmatning kan missuppfattas och ge besvärliga konsekvenser. Det är dålig programdesign. Måste frågan överhuvudtaget ställas just där, bör svaret avslutas med en tangent som inte används till stegningen, dvs använd INPUT i stället för bara GET och antingen inget default-alternativ eller använd inte RETURN till stegningen, eller använd GET utan default på RETURN.
      - Nils Hansson <519> · Text 7464 · w8 · kommentar
        
        1987-09-05 16:07
        
        Ärende: Tömma inmatningsbufferten
        
        WHILE SYS(5) : GET Key¤ : WEND tömmer iofs inmatningsbufferten, men om en tangen är nedtryckt stannar inte programmet där. detta beror på att avläsningen av tangentbordet inte är tillräckligt snabb vilket gör att så fort bufferten är tömd utföres testen igen (WHILE eller IF SYS(5) ) varvid något nytt tecken inte hunnit komma in i bufferten trots att tangent är nedtryckt. Det är väl så att inläsningen till bufferten är avbrottstyrt, dvs att tangentborde genererar ett avbrott när det läst av nedtryckt tangent, medan avkänningen (SYS(8)) om en tangent är nedtryckt är ett direkt anrop till till tangentbordsporten. Avkodningen av tangentbordet tar alltså längre tid än det tar för BASIC-tolken att utföra WEND och WHILE SYS(5). (egen teori, rätta mig gärna om jag har fel, eller förtydliga) Mvh Nils Hansson
        
        Kristoffer Eriksson <5357> · Text 7474 · w8 · kommentar
        
        1987-09-07 02:07
        
        Ärende: Tömma inmatningsbufferten
        
        Vet inte om du uppfattat det helt rätt. Kanske. Så här skulle jag villja uttrycka förklaringen till skillnaden i effekt av SYS(8) och SYS(5): Hela förklaringen är att SYS(8) känner av om en tangent är nedtryckt just nu, och att SYS(5) känner av om något tecken kommit in i inbufferten, samt att en konstant nedtryckt tangent med jämna MELLANRUM placerar tecken i inbufferten. Om man nu är bekymrad av att användaren kanske inte hinner släppa tangenten, kan man lägga in en fördröjning på en tangentrepetitionstid före SYS(5). SYS(8) är ju inte riktigt lämplig på grund av sin begränsade portabilitet. Allmännt tycker jag inte man ska förbise möjligheten att det finns en extra inmatningsbuffert inkopplad, fast i Svens fall är det väl inte precis någon som skriver snabbare än vad programet hinner med. WHILE SYS(5) : GET Slask¤ : WEND ersätts med WHILE 1 Dröj=... : WHILE SYS(5)=0 AND Dröj : Dröj=Dröj-1 : WEND IF SYS(5) THEN GET Slask¤ : WEND
      - Nils Hansson <519> · Text 7465 · w8 · kommentar
        
        1987-09-05 16:28
        
        Ärende: Defaulthanering
        
        Default (svenska?) använder man för det vanligaste svaret. Att ha ett default som inte utför någonting tycker jag är ganska fult. Man får trycka på en tangent utan att det händer något vilket blir irriterande i längden. Bättre är, tycker jag, att om något skall utföras då beordrar men det direkt med ett kommando eller PF-tangent vid nästa fas i programmet. Ofta är det så att i program med många frågor och där defaultvärderna nästan alltid gäller, knackar användaren bara på RETURN och glömmer att läsa vad som står i frågan, och glömmer att ändra 'defaultsvaret'. Bättre att inte ha något default all på de frågor som måste besvaras. Kanske lite gnälligt att klaga över en extra tangentnedtryckning, men i ett program som användes ofta blir det irriterande. Det blev kanske i fel möte det här. Mvh Nils Hansson
        
        Sven Wickberg <1384> · Text 7466 · w8 · kommentar
        
        1987-09-05 18:58
        
        Ärende: Defaulthanering
        
        (egentligen kommentar till en rad inläg:) 1) Default = förval (tycker jag är bra och använder alltid) 2) Lars gjörling i 7459 beskriver mitt problem alldeles korrekt. I ABC80 kunde jag skriva xx IF INP(56)>127 THEN xx och då stannade man på rad xx tills ingen tangent var nedtryckt. Om jag fattat saken rätt uträttas detsamma med SYS(8), men SYS(8) går bara på ABC806. Och så har man kvar problemet med att sista tangenttrycket ändå finns kvar i minnet och kommer att utgöra svaret på nästa fråga. Kristoffer sätter naturligtvis fingret på en riktig punkt när han säger att man måste undvika att använda det kvarblivna tangenttrycket. När jag själv använder programmet stegar jag med mellanslaget. Då gör det inte så mycket om det registreras ett eller annat blankecken på skärmen efter avslutad fil; dem kan man backa bort, resp igonerera. Det bästa vore knske at föreskriva att någon icke skrivande tangent skulle vara frammatningstangent (vänsterpil t ex, som inte har någon verkan i en vanlig input-sats). Jag kommer just nu inte ihåg om vänsterpilen godtas av programmet som svar till GET W¤. Men mitt problem accentueras av att programmet skall användas av rörelsehandikappade som har fullt sjå med att över huvud taget behörska inmatningen, och jag har hittills inte brytt mig om att krångla till det genom att föreskriva någon viss tangent. Jag har ingen ABC806 hemma utan bara en AT och därför kan jag inte prova ut de POKE-satser och annat som visats; men jg tar med mig traven av synpunkt till skolan i nästa vecka och testar mig fram. Tack för hjälpen!
        
        Sven Wickberg <1384> · Text 7467 · w8 · kommentar
        
        1987-09-05 19:00
        
        Ärende: Defaulthanering
        
        Får jag bara tillägga att det upplevs av mig som ganska viktigt att ha förval som accepteras med bara CR. Spec när inmatningen är mödosam och går via en bokstavslåda och vandrande markör, gäller det att spara så många inmatningar som möjligt.
        
        Curt Rehnborg <1121> · Text 7484 · w8 · kommentar
        
        1987-09-09 14:18
        
        Ärende: Defaulthanering
        
        Klart bra att ha förval som bara bekräftas med RETURN Jag har gjort en del program sålunda att till en början när kunden är ovan, så står det t.ex Ska posten tas bort J/N (N) vilket då tvingar honom att tänka efter s.a.s för säkerhets skull och först svara J och RETN - Efter en tid, när bestämmer han själv kan han genom att ändra en systemflagga få helt omvänd text. t.ex Ska posten tas bort J/N (J) och då räcker det med bara RETN Man ska vara snäll mot dom som använder datorer !!
        
        Kristoffer Eriksson <5357> · Text 7475 · w8 · kommentar
        
        1987-09-07 02:09
        
        Ärende: Defaulthanering
        
        Jag har inte rekommenderat ett default som inte gör något. Vad skulle menas med det över huvud taget? Jag skrev bara att man skulle hushålla med default:ar eller se till att man inte utlöser en default med den tangent man använder till något annat direkt innan. Precis som du skriver, så är det ju inte nödvändigt att ha default överallt. Om nu risken är att man använder RETURN både till en stegning och som avslutning på en J/N-fråga, så får man antingen hindra stegning med RETURN, eller inte ha någon default på frågan. Frågan ska alltså inte se ut som (förenklat) INPUT "J/N?" In¤ IF In¤="" OR In¤="J" THEN ... eller ; "J/N?" GET In¤ IF In¤=CHR¤(13) OR In¤="J" THEN ; "J"; : ... Det är direkt korkat att göra så. (Den som ska ta illa upp är den som gjort så, inte Nils.) Bättre är förstås (också förenklat) WHILE 1 INPUT "J/N?" In¤ IF In¤="J" THEN ... WHILE In¤<>"N" eller ; "J/N?" WHILE 1 GET In¤ IF In¤="J" THEN ; "J"; : ... WHILE In¤<>"N" Det sista förutsätter förstås att man inte kan göra stegningen med J eller N också. Den kräver bara ett tangenttryck, trots att det inte finns något default. För resten Sven - om de nu gäller att göra de enkelt med bokstavslåda, kan man inte gå lite mer direkt på det verkliga manöverorganet i stället för att välja bokstäver? Typ blås för att starta autostegning, blås igen för stopp, sug för att gå från stegning till nästa fråga, blås för ja, sug för nej osv? Eller vad man nu manövrerar med. Och bara använda bokstavsvalet när det gäller textinmatning. (Vad gör de egentligen för att hålla nere stegningstangenten, och sen släppa den igen?)
        
        Sven Wickberg <1384> · Text 7476 · w8 · kommentar
        
        1987-09-07 22:05
        
        Ärende: Defaulthanering
        
        Jo, naturligtvis håller jag med om att det är klumpigt att tolerera RETURN som förval i efterföljande fråga, ifall RETURN också utför stegningen i föregående programdel. Det är ju okså därför jag försöker lösa problemet. För att svara direkt på Kristoffers frågor om HUR mina elever stegar: de som använder sug-blås och tryck-på-endast-en-kanpp + bokstavslåda har inte de problem jag pekar på eftersom deras inmatning går så långsamt att de hinner uppfatta att filen är slut och har alltså tid att besvara den efteröljande frågan korrekt. Problemet finns hos dem som använder tangentbordet. Det händer att de har svårt att SLÄPPA en tangent; lösningen borde vara att spärra deras tgb mot repetition (vilket också är gjort; men hur gör man det i en IBM-klon?). Men det är alltså de som ha r repetitionen i full gång och som vill blada igenom filen snabbt genom att hålla RETURN nere hela tiden - och de kan vara icke-handikappade, t ex jag själv - det är de som möter problemet. EN metod är att säga att man måste trycka någon annan tangent, t ex mellanslag, för stegningen. Det förhindrar att nästa fråga besvaras med RETURN (dvs förval) innan man ens upptäckt att den finns. EN ANNAN metod - den jag letar efter - är att man STOPPAR exekveringen när filen är slut, låter datorn vänta på att man släpper tangenten, och därefter tömmer bufferten så att man går "ren" in på näst fråga. Detta BORDE vara möjligt, tycker jag, men ännu har jag inte fått klart för mig om det verkligen ÄR möjligt. I veckan skall jag prova alla de förslag som framförts.
  - Stefan Lennerbrant <4364> · Text 7459 · w8 · kommentar
    
    1987-09-04 21:27
    
    Ärende: Tömma inmatningsbufferten
    
    SYS(8) funkar inte på alla ABC' Använd xx IF SYS(5) GET S¤ ! : ev GOTO xx, behövs inte då det bara finns ett tecken i bufferten. mvh
    - Lars Gjörling <6825> · Text 7460 · w8 · kommentar
      
      1987-09-05 00:36
      
      Ärende: Tömma inmatningsbufferten
      
      Nej, nej! Om jag har fattat Sven W:s problem rätt (han borde väl egentligen själv få svara på detta), så gäller det det faktum att han efter en rad utskrifter, som fordrar att returntangenten är nedtryckt, skall ha en fråga om eventuell printerutskrift, där 'N' är default. Problemet är då att om man inte släpper upp returntangenten i tid, så glider programmet över till frågan och accepterar default-värdet, fast man inte menat det. Ett testprogram kan se ut så här: 10 FOR I=1 TO 10 : GET W¤ : ; 'HEJ' : NEXT I 20 IF SYS(5) GET S¤ ! Jag har här tagit DITT förslag som exempel 30 ; 'Utskrift på printer (N)? '; : GET W¤ 40 IF W¤=CHR¤(13) ; 'N' ELSE ; W¤ Kör programmet och 'glöm' släppa upp returntangenten, så finner du att svaret 'N' accepteras, vare sig man menat det eller inte. Samma sak gäller Nils Hanssons svar. Men byt ut rad 20 mot två ra- der (20 och 25) enligt mitt förslag i text 7439, så stannar pro- grammet och skriver inte ut frågan förrän tangenten släppts upp. En ännu enklare lösning är: 20 IF SYS(8) THEN 20 ELSE POKE 65506,0 Det räcker inte med 20 IF SYS(8) THEN 20 , man måste nollställa tgbordsflaggan OCKSÅ! SYS(8) fungerar inte på alla ABC' säger du. Men på alla som använder BASIC2 måste det väl ändå fungera? Dessutom är det väl så, att om det bara gäller ett förslag till en enskild medlem, så är det väl bara fråga om huruvida det fungerar på HANS dator. Mvh Lars
      - Kristoffer Eriksson <5357> · Text 7470 · w8 · kommentar
        
        1987-09-06 00:32
        
        Ärende: Tömma inmatningsbufferten
        
        SYS(8) fungerar inte på ABC800C och ABC800M, och är över huvud taget gaska hårdvaruberoende. Den finns förstås inte heller i D-BASIC-V (hur skulle det gå till?). Vet inte om den finns i BasicII/PC.