BasciII-problem

5 posts in thread

• Sven Wickberg <1384> · Text 4744 · w8 · inlagg

  1986-09-05 19:52

  Ärende: BasciII-problem

  Jag råkar ut för följande: 100 DEF FNPrinter --- 200 IF R=0 ;'Inga filer': RETURN 0 --- 300 RETURN 0 310 FNEND Jag får ERR 181 på rad 200. Trodde man inte fick göra RETURN 0 två gånger och ändrade till : GOTO 300 men smma resultat. Ett annat problem. Jag definierar i början av programmet P¤='PR:VSA#=A72.5':T=0 T är då tabläge. Någonstans inuti programmet följer då: OPEN P¤ AS FILE 1 ;#1, TAB(T) A¤ Detta utförs inte, och jag kom på att det fanns ett ON ERROR GOTO som ledde till at programmet gick vidare utan printerutskrift. När jag tog bort ON ERROR fick jag i stället ERR 135: Tab<1 ! När jag struntade i fördefinitionen och skrev ;#1 TAB(10) A¤ då gick det bra. Någon som begriper något?
  • Gunnar Faith-Ell SYSOP <2733> · Text 4754 · w8 · kommentar

    1986-09-05 20:57

    Ärende: BasciII-problem

    Flera returnsataser är fullt tillåtna. Har du kollat så att du inte har något GOTO eller GOSUB någonstans utanför funktionen som pekar på rad 200 ? Samma felmeddelande fås även vid felaktigt uthopp ur funktion vilket ibland kan bli lite förvirrande, vissa versioner av basictolkar till ABC800 tillåter dessutom vissa felaktig hopp från funktioner. Tabulatorn måste vara minst ett och du har satt T=0 därav får du det andra felmeddelandet.
  • Bo Kullmar SYSOP <1789> · Text 4765 · w8 · kommentar

    1986-09-06 01:17

    Ärende: BasciII-problem

    Använd TRACE och ta ut listan på printer (TRACE #1, om du öppnar #1 först till printern) så ser du kanke vad som är fel.
  • Kristoffer Eriksson <5357> · Text 4782 · w8 · kommentar

    1986-09-06 19:07

    Ärende: BasciII-problem

    "Skivfel" är nog troligare än "SKRIVFEL". LIB skriver aldrig något på skivorna. Nr 8 = Checksummafel. Kolla systemskivan med DISKCHEK. Prova i båda drivearna, och kanske i någon annan burk också. Varierar det har du fel på driven, är det konsant fel har du fel på skivan. Är det inget fel, så är det något annat.
  • Kristoffer Eriksson <5357> · Text 4788 · w8 · kommentar

    1986-09-07 06:41

    Ärende: BasciII-problem

    Har du någon RESUME i programmet? Skriv ut T i stället för TAB(T), och se om den verkligen är 10.