"COMMON-KILL"

5 posts in thread

• Anders Nilsson <7797> · Text 397 · w8 · inlagg

  1991-07-11 22:16

  Ärende: "COMMON-KILL"

  Jag har några program som innehåller COMMON ,när dessa avslutas chainas en meny (utan COMMON) ,menyn (EJ Meny0) innehåller även andra "program-system" vilka har andra COMMON-variabler. Väljer jag detta efter att ha kört det förstnämnda ,så får jag "COMMON" fel" ,error 205. Är det någon som känner till någon enkel "snutt" att lägga in i menyn ,med vilken man kan "döda" COMMON-variablerna ,så dessa inte ligger kvar och "spökar" till det. Hälsn. <POTZI>
  • Bo Kullmar SYSOP <1789> · Text 399 · w8 · kommentar

    1991-07-12 14:36

    Ärende: "COMMON-KILL"

    Jag kommer inte ihåg någon annan lösning än att du chainar via ett program som är helt fritt från COMMON-variabler. Det finns nog en möjlighet att nollställa commonvariablerna och det bör framgå av Bit för bit med 800.
  • Lars Gjörling <6825> · Text 401 · w8 · kommentar

    1991-07-12 23:43

    Ärende: "COMMON-KILL"

    Räcker det inte med att återställa COMTOP med POKE 65328,0,128 ??
    • Anders Nilsson <7797> · Text 406 · w8 · kommentar

      1991-07-14 13:26

      Ärende: "COMMON-KILL"

      Tyvärr ,POKE 65328,0,128 hjälpte inte i detta fall ,det blir fortfarande "COMMON"-fel vid CHAIN "PROGNAMN" + en del andra konstigheter. M.V.H. <POTZI>
      • Lars Gjörling <6825> · Text 418 · w8 · kommentar

        1991-07-16 23:30

        Ärende: "COMMON-KILL"

        Du kan ju ta fasta på Bosses påpekande att COMMON-variablerna dödas när man laddar in ett program, som saknar COMMON. Du kan ju chaina till ett mellanprogram, som i sin tur chainar vi- dare till det program, som egentligen är målet. Mellanprogrammet måste då kunna läsa en medsänd parameter, vilket faktiskt går: Skriv följande program och lagra det under namnet CommKill.bac: 110 ! CommKill.Bac - mellanprogram för att döda COMMON-variabler. 120 integer : extend 130 dim S¤ = 0 140 P = CALL(81) ! Sök adressen till kommandosträngen 150 POKE Varoot(S¤), 160, 0, P, Swap%(P), 160, 0 ! Flytta S¤ till P 160 P = INSTR(1,S¤,chr¤(13)) ! Sök kommandosträngens slut. 170 if P > 0 then S¤ = left¤(S¤,P-1) else S¤ = "" 180 P = INSTR(1,S¤,",") ! Sök kommatecknet 190 if P > 0 and len(S¤) > P then S¤ = right¤(S¤,P+1) else S¤ = "" 200 if S¤ <> "" then chain S¤ Om du skall chaina från PROG1.BAC (som innehåller commonvariabler) till PROG2.BAC (som också innehåller commonvariabler), så avslutar du PROG1 med: 1000 CHAIN CommKill,PROG2 Först chainas då över till CommKill (som inte har commonvariabler). CommKill avläser parametern "PROG2" och chainar vidare. Jag kan tyvärr inte pröva, men tycker att det här borde fungera.