PSSEKR ("Privatsekreteraren") -- Programnyhet!!

8 posts in thread

• Kristoffer Eriksson <5357> · Text 8277 · w8 · inlagg

  1988-04-26 00:46

  Ärende: PSSEKR ("Privatsekreteraren") -- Programnyhet!!

  PSSEKR innehåller diverse rutiner som kalender, kalkylator, telefonlista, komihåglista, och använder sig av fönster-rutinerna i WINDOW som jag tidigare berättat om. Det gör sig förstås bäst på en ABC806 med färgskärm, men fungerar även på 802 och 800M. PSSEKR demonstrerar vad som kan åstadkommas med WINDOW. Kanske tycker någon att det finns något användbart i det också. Ett ganska snyggt och ovanligt utseende på skärmen för ABC-förhållanden på skärmen har det i alla fall. PSSEKR.BAC är en squezad variant av PSSEKR.BAS. Det behövs om det ska bli något minne kvar i maskinen att få plats med fönster i. Se vidare PSSEKR.INF om vilka filer som behövs. WINDOW behövs, men man behöver inte ta hem den stora WINDOW.INF bara för detta.
  • Lars Gjörling <6825> · Text 8280 · w8 · kommentar

    1988-04-29 23:10

    Ärende: PSSEKR ("Privatsekreteraren") -- Programnyhet!!

    Har provat WINDOW.BAC. Gick fint! Ett utmärkt program! Har också provat PSSEKR.BAC enligt anvisningarna. Det visade sig att shift-Pf2 inte fungerade! Det blev bara error 'felaktigt tal' hela tiden. En undersökning med TED av hjälpfilen PSSVE.HLP visade att den vid insändningen blivit försedd med den automatiska rem-satsen i början, vilken sedan gjorde att huvudprogrammet läste in fel data. Sedan jag tagit bort denna rad, fungerade det. Kanske någon Sysop kunde titta på detta och justera i inlådan? Mvh Lars
    • Kristoffer Eriksson <5357> · Text 8281 · w8 · kommentar

      1988-04-30 00:34

      Ärende: PSSEKR ("Privatsekreteraren")

      Jag tar bort REM-raden i monitorn med det snaraste.
      • Lars Gjörling <6825> · Text 8285 · w8 · kommentar

        1988-04-30 21:48

        Ärende: PSSEKR ("Privatsekreteraren")

        Då jag har sysslat en del med isam-program, var jag intresserad av hur PSSEKR var uppbyggd och tog hem PSSEKR.BAS, vilket gick bra. Att sedan ladda in den med load gick mindre bra, det blev massor med meddelanden om felaktiga rader (oberoende av om jag hade isam- optionerna inladdade eller ej). Det gick att lista, men alla de nämnda raderna hade instruktioner av typen XSTM..., vilket var myc- ket svårläst vid programstudier. Jag tog in filen i en ordbehandlare och använde bytfunktionen för att byta XSTM200 .... XSTM210 mot ISAM OPEN .... PREV. Den så bil- dade bas-filen gick att ladda med load (när isamoptionerna var inladdade), och var lätt att läsa utan ordbehandlare. Jag lade emellertid märke till att funktionen FNAntdag(År,Mån) har den skönhetsfläcken att inte stämma överens med den gregorianska kalenderns regler för skottdagar. Den tar bort skott- dagen för ALLA sekelsskiftesår (1900, 2000, 2100 etc), vilket är fel. Om de två första siffrorna är delbara med 4 (t ex 1600, 2000, 2400 ...) skall skottdagen vara kvar!! En kontroll av programmet visade mycket riktigt att kalendern blir fel för varje datum senare än 28/2 2000. Att rätta till denna skönhetsfläck är inte svårt. Mvh Lars
        • Kristoffer Eriksson <5357> · Text 8286 · w8 · kommentar

          1988-05-01 02:10

          Ärende: PSSEKR ("Privatsekreteraren")

          Typiskt... Skickar först in fel version av programmet. Rättar, listar ut, och skickar in igen. Då glömmer jag att ha ISAM inladdat. Dags att sända in igen. Jag skickar in rätt (försöker i alla fall) på måndag, då jag har tillgång till 2400-modem. Rättar skottårsbuggen också. Den var ju genant. Det gör att jag också måste uppdatera den squezade .BAC-varianten också. Den som inte bryr sig om datumen från år 2000 behöver inte hämta den på nytt. Om du eller någon annan som redan hämtat .BAS-filen bryr sig, kan du MERGE:a in följande 210 INTEGER : EXTEND : DOUBLE : ! NO RESUME 115 ! 1.09 / SKE / 88-05-01 / WINDOW 2.00, ATTR 5, Skottår, Frisläpp 120;CUR(0,0)"PSSEKR Ver 1.09, Kristoffer Eriksson ABC <5357>, 1985 & 1988" 3310 DEF FNPralmn(Nr,År,Mån) LOCAL X,I,Dagar 3350 X=MOD(X+INT((År-1985)/4.)-INT((År-1901)/100.)-(FNSkott(År) AND Mån>2),7) 3460 DEF FNAntdag(År,Mån)=ASCII(MID¤(CHR¤(31,28,31,30,31,30,31,31,30 ,31,30,31),Mån,1))-(FNSkott(År) AND Mån=2) 3465 DEF FNSkott(År)=MOD(År,4)=0 AND MOD(År,100)<>0 OR MOD(År,400)=0 Och ändra på rad 1490 i PSSINIT.BAS så det står "1.09" och "1988". Vad beträffar ISAM-instruktionerna, så är det: rad 6180: ISAM READ 4490, 4680, 5100, 5330, 5880, 6400: ISAM READ ... NEXT 4610, 5260, 6340: ISAM READ ... PREVIOUS 6390: ISAM READ FIRST 4840, 5470: ISAM READ ... KEY ... 4430, 5040, 5830, 7370: ISAM READ ... INDEX ... KEY ... 4780, 5410, 7430: ISAM WRITE 4790, 5420: ISAM UPDATE ... TO ... 4750, 5380: ISAM DELETE ISAM är tyvärr så otrevligt att det inte förstår inmatning i XSTM-form.
          • Arne Lager <5798> · Text 8288 · w8 · kommentar

            1988-05-01 22:56

            Ärende: PSSEKR ("Privatsekreteraren")

            Jag fick fel när jag laddade in pgm psscres med load. Raden blir som följer: 1980?on error goto 2000 : isam read #99 I¤ Jag är lite osäker på dom två sista tecknen, men det spelar väl inte så stor roll. Vad kan det vara?
            • Kristoffer Eriksson <5357> · Text 8290 · w8 · kommentar

              1988-05-02 16:59

              Ärende: PSSEKR ("Privatsekreteraren")

              Det beror i så fall på att du inte har ISAM inladdat. Se till att den blir inladdad först, alternativt kör PSSINIT ändå, registren blir i alla fall skapade, och sen behöver du inte programmet. Det är skrivet så att det kollar om ISAM är inladdat genom att försöka utföra en ISAM-instruktion. Helt överflödigt, men jag har inte lust att ägna tid åt att skriva om det.
          • Kristoffer Eriksson <5357> · Text 8291 · w8 · kommentar

            1988-05-02 17:01

            Ärende: PSSEKR ("Privatsekreteraren")

            Nu har jag skickat in PSSEKR.BAS och PSSEKR.BAC på nytt. Hoppas att det är rätt nu. Om någon provar att köra på ABC802 eller ABC800M, vill jag gärna få veta om det fungerar eller inte.