1 REM Ins{nt av 2178
10 ! ******************************
20 ! *                            *
30 ! *  NYTTERR  -- Version 1.07  *
40 ! *  Copyright   Ulf Hedlund   *
50 ! *              1983-09-27    *
60 ! *  Anpassat till             *
70 ! *  UFD-DOS                   *
80 ! *  ABC-NET                   *
90 ! + Testat p} ABC802 & ABC806  +
100 ! ******************************
110 ! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
120 ! $         THE COOL           $
130 ! $        PROGRAMMER          $
140 ! $      STRIKES AGAIN!        $
150 ! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
160 ! ++++++++++++++++++++++++++++++
170 ! + Programmet skapar egna     +
180 ! + felmeddelanden f|r ABC800  +
190 ! + OBS!                       +
200 ! + Disketten m}ste inneh}lla  +
210 ! + BASICINI.SYS  innan detta  +
220 ! + program startas !!!        +
230 ! ++++++++++++++++++++++++++++++
240 EXTEND 
250 INTEGER 
260 DIM A(14)
270 OPEN "BASICINI.SYS" AS FILE 1
280 N1=1
290 ON ERROR GOTO 750
300 POSIT #1,253
310 ! MAIN LOOP STARTS HERE !
320 READ Felkod,Text$
330 Pos=Pos+1+LEN(Text$)
340 ! OM BLOCKPEKAREN > 253 HOPPA TILL N[STA BLOCK !
350 IF Pos<253 THEN 410
360 Pos=Pos-1-LEN(Text$)
370 ! FYLL UT DETTA BLOCK MED 255 !
380 ! \KA BLOCKR[KNAREN !
390 FOR I=Pos TO 252 : PUT #1,CHR$(255) : NEXT I : N1=N1+1 : A(N1)=Felkod
400 Pos=1+LEN(Text$)
410 IF Felkod=255 THEN 720
420 IF Felkod<128 THEN Felnr=Felkod+128 ELSE Felnr=Felkod
430 PUT #1,CHR$(Felnr)
440 PUT #1,Text$ : ; Felkod,Text$
450 GOTO 320
460 DATA 19,Kan ej |ppna mera fil,20,F|r l}ng rad ( >160 tkn ),21,Hittar ej filen.  Den kanske {r i kylen?
461 DATA 32,Du m}ste |ppna filen f|rst
470 DATA 34,Filen slut ( Det finns mer p} ICA ),35,Checksummafel vid l{sningen,36,Checksummafel vid skrivning
480 DATA 37,Fel recordformat,38,POSIT pekar utanf|r filen,39,Du f}r inte skriva p} den h{r filen
481 DATA 40,Du f}r inte radera den h{r filen
490 DATA 41,Skivan {r onykter (full),42,Skivan ej klar..,43,Sv}rt att skriva p} skrivskyddad skiva
500 DATA 44,Logisk fil ej |ppnad,45,Fel logiskt filnummer
510 DATA 46,Fel enhetsnr,47,Fel trapnr,48,Fel i biblioteket! Fr}ga bibliotekarien
511 DATA 49,Fel fysiskt filnr,51,Enheten har inte tid med dig just nu
520 DATA 52,G}r f|ga till denna enhet,53,Funktionstangent ej till}ten just nu
530 DATA 54,IEC b}de s{ndare och mottagare,55,IEC-mottagare ej aktiv,56,IEC-s{ndare ej aktiv
540 DATA 57,Tecken fr}n tangentbordet ej i tid,58,G}r ej att l{sa ogiltiga tecken
541 DATA 64,Felaktigt "NAME",68,Felaktig tidsspecifikation
550 DATA 120,Hittar ej denna nyckel,121,Nyckeln finns redan,122,Felaktig nyckel (prova med en l}ssmed)
551 DATA 123,Fel vid kontroll{sning,124,Index finns ej
560 DATA 125,Postl{ngden felaktig.  [ndra!,126,Fel version av ISAM-fil.  Prova med mejeriernas KEFIR
561 DATA 127,Reserverad kod,128,Centralenhetens minne {r slut
570 DATA 129,Reserverad kod,130,Flyttalet {r f|r stort
580 DATA 131,Felaktigt index,132,Heltalet f|r stort,133,Fel i ASCII-uttryck,134,Du kan inte indexera UTANF\R str{ngen
590 DATA 135,'Negativ "SPACE$","STRING$" eller "TAB" <1',136,Str{ngen f|r l}ng
591 DATA 137,Du f}r ej |ka DIM,138,Du har fel v{rde i ON-uttrycket
600 DATA 139,Du f}r inte ha RETURN utan GOSUB..,140,Felaktig RETURN-variabel
601 DATA 141,Finns ej mer DATA,142,Felaktiga funktionsargument
610 DATA 143,Felaktig SYS,144,F\RBJUDEN RAD,145,FNEND utan f|reg}ende RETURN
611 DATA 146,'"PRINT USING"- fel',147,Felaktiga data,148,F|r lite indata
620 DATA 149,RESTORE pekar ej p} DATA,150,F|r mycket indata,151,RESUME utan fel
621 DATA 176,Klarar ej att rita UTANF\R bildsk{rmen...,180,Hittar ej raden
630 DATA 181,Felaktigt inhopp i funktion,182,NEXT eller WEND saknas
631 DATA 183,FOR eller WHILE saknas,184,Fel variabel efter NEXT
640 DATA 185,Blandade FOR-loopar men samma variabel,186,FOR-loop med lokal variabel ej till}tet
641 DATA 187,Funktionen ej definierad
650 DATA 188,Flera funktioner med samma namn,189,Felaktig funktion,190,Fel antal index
651 DATA 191,Ej tilldelningsbar i funktion,200,Enheten {r ej ansluten
660 DATA 201,Minnet fullt,202,Programmet {r skyddat mot dig,203,Fel programformat
661 DATA 204,MERGE g}r ej p} BAC-fil,205,COMMON fel,206,Anv{nd RUN..
670 DATA 207,Kan inte forts{tta nu,208,'Ge ett KOMMANDO, inte en instruktion'
671 DATA 209,Och VAD menar du med det,210,Kan ej |vers{tta text till ett v{rde
680 DATA 211,Kan ej {ndra precisionen nu
690 DATA 220,Det d{r f|rstod jag inte alls..,221,Otill}tet tecken efter satsen
691 DATA 222,M}ste vara f|rst p} en rad,223,Fel antal eller typ av argument
700 DATA 224,Du kan inte blanda tal och str{ngar,225,Ej enkel variabel
701 DATA 226,Felaktig sats efter ON,227,'"," saknas',228,'"=" saknas',229,'")" saknas'
710 DATA 230,'"AS FILE" saknas',231,'"AS" saknas',232,'"TO" saknas'
711 DATA 233,Radnumret saknas,234,Felaktig variabel,255,Nu {r det slut
720 FOR I=Pos TO 252 : PUT #1,CHR$(255) : NEXT I : N1=N1+1 : A(N1)=Felkod : GOSUB 780
730 CLOSE 
740 END 
750 CLOSE 1
760 PRINT "Fel :" ERRCODE
770 END 
780 ! L{gg in antal felmeddelanden per sektor !
790 POSIT #1,3
800 FOR I=2 TO N1
810   PUT #1,CHR$(A(I))
820 NEXT I 
830 RETURN