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

Terminalprg.

6 posts in thread

Mikael Niilimaa SYSOP <7821> · Text 326 · w8 · inlagg

1991-05-26 22:31

Ärende: Terminalprg.

Om man vill ha klockan på rad 25, statusraden, samtidigt som man är i terminalläge, hur gör man då? Försökte skriva en sats: PRINT CUR(25,58); TIME¤, men det gick inte alls, för då ställde sig markören på rad 24... Kan någon hjälpa mig med en lämplig subb för detta, så vore jag tacksam. Min diskdrive har pajjat, så jag har hackat in ett utav luxors demoprg. som finns beskrivet i Optionsprommet, och tänkte 'fina' till det. Soliga hälsningar från Dalarna: <<< Micketok >>>
- Lars Gjörling <6825> · Text 330 · w8 · kommentar
  
  1991-05-27 17:26
  
  Ärende: Terminalprg.
  
  Om du har en 806:a bör print cur(25,58); Time¤; fungera. Om du har en ABC800 fungerar det inte, då måste du göra på följande sätt: 10 integer : extend 10000 DEF FNRad25(kolumn,Text¤) Local Vdu¤ = 0 10010 OUT 56,6,57,25 10020 POKE VAROOT(Vdu¤),80,0,32640+kolumn,127 10030 Vdu¤ = Text¤ 10040 Return -1 10050 FNEND För att skriva TIME¤ på rad 25, kolumn 58 skriver du exempelvis 100 Slask = FNRad25(58,TIME¤) Rad 25 går sedan inte att radera med chr(12), utan man måste skriva över den med spaces: Slask = FNRad25(0,SPACE¤(80))
  - Lars Gjörling <6825> · Text 331 · w8 · kommentar
    
    1991-05-27 17:39
    
    Ärende: Terminalprg.
    
    Ser just att du i ditt inlägg 326 inte avslutat med ett semikolon efter TIME¤. Då sker ju radframmatning från rad 25 (även om du HAR en 806:a) och då måste ju rad 25 scrolla upp ett steg! Om du har en 806:a, så sätt semikolon efter TIME¤, annars följ anvisningarna i föregående inlägg.
    - Mikael Niilimaa SYSOP <7821> · Text 334 · w8 · kommentar
      
      1991-05-28 00:28
      
      Ärende: Terminalprg.
      
      Du kan inte göra så!! Jag har redan löst problemet, men jag måste säga att det där går inte, markören ställer sig på rad 24 om man gör så. Jag löste problemet på följande lilla 'egna' sätt: (Säkert inte jättebra!) 85 T¤=TIME¤ : S=VARPTR(T¤) : POKE 32710,PEEK(S+11),PEEK(S+12),osv., ända tills man har fått med alla siffror i tiden. Det finkar! <<< Micketok >>>
      - Lars Gjörling <6825> · Text 337 · w8 · kommentar
        
        1991-05-29 12:58
        
        Ärende: Terminalprg.
        
        Visst finkar det! Ett annat sätt som bygger på ett jättebra knep, som man bör känna till, bygger på att man först dimensionerar en strängvariabel till 0 bytes (för att den inte skall ta upp onödigt minnesutrymme) och sedan med poke ändrar dess dataarea till någon plats, där man vill ha den, t.ex. i skärmminnet. Samtidigt dimensio- nerar man om dess storlek. I ditt fall skulle det se ut så här: 100 Dim T¤ = 0 : POKE Varoot(T¤),22,0,32710,Swap%(32710),0,0 Nu har T¤ maximal längd 22 bytes, dataarea på adress 32710 och aktuell längd 0 bytes. Om du sedan skriver 110 T¤ = TIME¤ så kopieras TIME¤ direkt till T¤, dvs till rätt plats på skärmminnet. Förresten, har du tittat på filerna i abc800/utility/hjaelpare: time.bas, time.806, time.txt, time2.806 (som är samma som time.806 men med färger)? Dom ger rutiner, som kontinuerligt skri- ver ut klockan medan den tickar fram, utan att störa programmet i övrigt.
        
        Mikael Niilimaa SYSOP <7821> · Text 338 · w8 · kommentar
        
        1991-05-29 22:52
        
        Ärende: Terminalprg.
        
        Ja, det förslaget var inte dumt! Ska prova sen när jag får igång driven, hmmppprgjf!!! (Den gick sönder igen, han bara med att läsa in ett prog., sen gick den sönder...) <<< Micketok >>>