Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Überlauf-Fehler

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
pammpel



Anmeldungsdatum: 03.05.2020
Beiträge: 1

BeitragVerfasst am: 03.05.2020, 13:39    Titel: Überlauf-Fehler Antworten mit Zitat

Hallo liebes Forum
Ich bin wohl ein wenig aus der Übung. Das nachfolgende Programm greift Spalten aus Karten, schreibt sie um und gibt sie aus. Als ich das zum letzen mal gemacht hab, hatte ich noch einen Dos Rechner. Programm meldet Überlauf. Wo ist der Fehler? Bin ich zu blöd oder liegt es an der Dos Box?

Gruß Andreas

Code:
    'Die DATA-Zeilen (Karte,Spalte,Format) sind von Karte 1 an
    'aufsteigend anzuordnen und ihre Anzahl ist in MAXVARI einzusetzen
    'In 260f ist die Reihenfolge der Output-datei zu bestimmen.
    DEFINT A-Z 'Skacode?.txt ist die Skalierungsvorschrift
    CONST MAXVARI = 113, SAMPLE = 6359, KARTANZ = 3
    DIM L$(MAXVARI), S(MAXVARI), F(MAXVARI), LL$(10), SC$(10), KARNUM(11)
    CLS 'KARTANZ durch alle Input # auf 10 beschraenkt.
    'Letzte Spalte Output-Variable nach Zeile 260f **

DATA 1,5,1,,3   : '1
DATA 1,68,1,,5  : '2
DATA 1,69,1,,5  : '3
DATA 1,70,1,,5  : '4
DATA 1,71,1,,5  : '5
DATA 1,72,1,,5  : '6
DATA 2,13,1,,5  : '7
DATA 2,14,1,,5  : '8
DATA 2,15,1,,5  : '9
DATA 2,16,1,,5  : '10
DATA 2,17,1,,5  : '11
DATA 2,18,1,,5  : '12
DATA 2,19,1,,5  : '13
DATA 2,20,1,,5  : '14
DATA 2,21,1,,5  : '15
DATA 2,22,1,,5  : '16
DATA 2,23,1,,5  : '17
DATA 2,24,1,,5  : '18
DATA 2,25,1,,5  : '19
DATA 2,26,1,,5  : '20
DATA 2,27,1,,5  : '21
DATA 2,28,1,,5  : '22
DATA 2,29,1,,5  : '23
DATA 2,30,1,,5  : '24
DATA 2,31,1,,5  : '25
DATA 2,32,1,,5  : '26
DATA 2,33,1,,5  : '27
DATA 2,34,1,,5  : '28
DATA 2,35,1,,5  : '29
DATA 2,36,1,,5  : '30
DATA 2,37,1,,5  : '31
DATA 2,38,1,,5  : '32
DATA 2,39,1,,5  : '33
DATA 2,46,1,,5  : '34
DATA 2,47,1,,5  : '35
DATA 2,48,1,,5  : '36
DATA 2,49,1,,5  : '37
DATA 2,50,1,,5  : '38
DATA 2,51,1,,5  : '39
DATA 2,52,1,,5  : '40
DATA 2,53,1,,5  : '41
DATA 2,54,1,,5  : '42
DATA 2,55,1,,5  : '43
DATA 2,56,1,,5  : '44
DATA 2,57,1,,5  : '45
DATA 2,58,1,,5  : '46
DATA 2,59,1,,5  : '47
DATA 2,60,1,,5  : '48
DATA 2,61,1,,5  : '49
DATA 2,62,1,,5  : '50
DATA 2,63,1,,5  : '51
DATA 2,64,1,,5  : '52
DATA 2,65,1,,5  : '53
DATA 2,66,1,,5  : '54
DATA 2,67,1,,5  : '55
DATA 2,68,1,,5  : '56
DATA 2,69,1,,5  : '57
DATA 2,70,1,,5  : '58
DATA 2,71,1,,5  : '59
DATA 2,72,1,,5  : '60
DATA 2,73,1,,5  : '61
DATA 2,74,1,,5  : '62
DATA 2,75,1,,5  : '63
DATA 2,76,1,,5  : '64
DATA 2,77,1,,5  : '65
DATA 2,78,1,,5  : '66
DATA 2,79,1,,5  : '67
DATA 2,80,1,,5  : '68
DATA 3,1,1,,5   : '69
DATA 3,2,1,,5   : '70
DATA 3,3,1,,5   : '71
DATA 3,4,1,,5   : '72
DATA 3,5,1,,5   : '73
DATA 3,6,1,,5   : '74
DATA 3,7,1,,5   : '75
DATA 3,8,1,,5   : '76
DATA 3,9,1,,5   : '77
DATA 3,10,1,,5  : '78
DATA 3,11,1,,5  : '79
DATA 3,12,1,,5  : '80
DATA 3,45,1,,5  : '81
DATA 3,46,1,,5  : '82
DATA 3,47,1,,5  : '83
DATA 3,48,1,,5  : '84
DATA 3,49,1,,5  : '85
DATA 3,50,1,,5  : '86
DATA 3,51,1,,5  : '87
DATA 3,52,1,,5  : '88
DATA 3,53,1,,5  : '89
DATA 3,54,1,,5  : '90
DATA 3,55,1,,5  : '91
DATA 3,56,1,,5  : '92
DATA 3,57,1,,5  : '93
DATA 3,58,1,,5  : '94
DATA 3,59,1,,5  : '95
DATA 3,60,1,,5  : '96
DATA 3,61,1,,5  : '97
DATA 3,62,1,,5  : '98
DATA 3,63,1,,5  : '99
DATA 3,64,1,,5  : '100
DATA 3,65,1,,5  : '101
DATA 3,66,1,,5  : '102
DATA 3,67,1,,5  : '103
DATA 3,68,1,,5  : '104
DATA 3,69,1,,5  : '105
DATA 3,70,1,,5  : '106
DATA 3,71,1,,5  : '107
DATA 3,72,1,,5  : '108
DATA 3,73,1,,5  : '109
DATA 3,74,1,,5  : '110
DATA 3,75,1,,5  : '111
DATA 3,76,1,,5  : '112
DATA 3,77,1,,5  : '113








    DATA 1,2,3
    FOR I = 1 TO MAXVARI
    READ L$(I), S(I), F(I)
    NEXT I
    FOR I = 1 TO KARTANZ
    READ KARNUM(I)
    NEXT I
    OPEN "c:\1.cha" FOR OUTPUT AS (KARTANZ + 1)
    FOR I = 1 TO KARTANZ
     LL$(I) = "c:\karte" + MID$(STR$(KARNUM(I)), 2)
     OPEN LL$(I) FOR INPUT AS (I)
      LL$(I) = ""
    NEXT I

    FOR I = 1 TO SAMPLE
    PRINT I
    FOR J = 1 TO MAXVARI
    IF L$(J) = L$(J - 1) THEN 200 ELSE AKARTE$ = ""
    FOR K = 1 TO KARTANZ
    IF VAL(L$(J)) = KARNUM(K) THEN NUM = K: EXIT FOR
    NEXT K
    LINE INPUT #NUM, AKARTE$

200   AC$ = MID$(AKARTE$, S(J), F(J)): X = VAL(AC$): IF AC$ = " " THEN GOSUB 1999
      AC$ = ""
     
      SELECT CASE J
      CASE 1: GOSUB 1
      CASE 2: GOSUB 2
      CASE 3: GOSUB 3
      CASE 4: GOSUB 4
      CASE 5: GOSUB 5
      CASE 6: GOSUB 6
      CASE 7: GOSUB 7
      CASE 8: GOSUB 8
      CASE 9: GOSUB 9
      CASE 10: GOSUB 10
      CASE 11: GOSUB 11
      CASE 12: GOSUB 12
      CASE 13: GOSUB 13
      CASE 14: GOSUB 14
      CASE 15: GOSUB 15
      CASE 16: GOSUB 16
      CASE 17: GOSUB 17
      CASE 18: GOSUB 18
      CASE 19: GOSUB 19
      CASE 20: GOSUB 20
      CASE 21: GOSUB 21
      CASE 22: GOSUB 22
      CASE 23: GOSUB 23
      CASE 24: GOSUB 24
      CASE 25: GOSUB 25
      CASE 26: GOSUB 26
      CASE 27: GOSUB 27
      CASE 28: GOSUB 28
      CASE 29: GOSUB 29
      CASE 30: GOSUB 30
      CASE 31: GOSUB 31
      CASE 32: GOSUB 32
      CASE 33: GOSUB 33
      CASE 34: GOSUB 34
      CASE 35: GOSUB 35
      CASE 36: GOSUB 36
      CASE 37: GOSUB 37
      CASE 38: GOSUB 38
      CASE 39: GOSUB 39
      CASE 40: GOSUB 40
      CASE 41: GOSUB 41
      CASE 42: GOSUB 42
      CASE 43: GOSUB 43
      CASE 44: GOSUB 44
      CASE 45: GOSUB 45
      CASE 46: GOSUB 46
      CASE 47: GOSUB 47
      CASE 48: GOSUB 48
      CASE 49: GOSUB 49
      CASE 50: GOSUB 50
      CASE 51: GOSUB 51
      CASE 52: GOSUB 52
      CASE 53: GOSUB 53
      CASE 54: GOSUB 54
      CASE 55: GOSUB 55
      CASE 56: GOSUB 56
      CASE 57: GOSUB 57
      CASE 58: GOSUB 58
      CASE 59: GOSUB 59
      CASE 60: GOSUB 60
      CASE 61: GOSUB 61
      CASE 62: GOSUB 62
      CASE 63: GOSUB 63
      CASE 64: GOSUB 64
      CASE 65: GOSUB 65
      CASE 66: GOSUB 66
      CASE 67: GOSUB 67
      CASE 68: GOSUB 68
      CASE 69: GOSUB 69
      CASE 70: GOSUB 70
      CASE 71: GOSUB 71
      CASE 72: GOSUB 72
      CASE 73: GOSUB 73
      CASE 74: GOSUB 74
      CASE 75: GOSUB 75
      CASE 76: GOSUB 76
      CASE 77: GOSUB 77
      CASE 78: GOSUB 78
      CASE 79: GOSUB 79
      CASE 80: GOSUB 80
      CASE 81: GOSUB 81
      CASE 82: GOSUB 82
      CASE 83: GOSUB 83
      CASE 84: GOSUB 84
      CASE 85: GOSUB 85
      CASE 86: GOSUB 86
      CASE 87: GOSUB 87
      CASE 88: GOSUB 88
      CASE 89: GOSUB 89
      CASE 90: GOSUB 90
      CASE 91: GOSUB 91
      CASE 92: GOSUB 92
      CASE 93: GOSUB 93
      CASE 94: GOSUB 94
      CASE 95: GOSUB 95
      CASE 96: GOSUB 96
      CASE 97: GOSUB 97
      CASE 98: GOSUB 98
      CASE 99: GOSUB 99
      CASE 100: GOSUB 100
      CASE 101: GOSUB 101
      CASE 102: GOSUB 102
      CASE 103: GOSUB 103
      CASE 104: GOSUB 104
      CASE 105: GOSUB 105
      CASE 106: GOSUB 106
      CASE 107: GOSUB 107
      CASE 108: GOSUB 108
      CASE 109: GOSUB 109
      CASE 110: GOSUB 110
      CASE 111: GOSUB 111
      CASE 112: GOSUB 112
      CASE 113: GOSUB 113
      CASE ELSE: STOP
      END SELECT


1 SELECT CASE X '1 5  1 Index = 4
CASE 3: C$ = MID$(STR$(5), 2, 1)
CASE 2: C$ = MID$(STR$(5), 2, 1)
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

2 SELECT CASE X '1 68  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

3 SELECT CASE X '1 69   1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

4 SELECT CASE X '1 70  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

5 SELECT CASE X '1 71  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

6 SELECT CASE X '1 72  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

7 SELECT CASE X '2 13  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

8 SELECT CASE X '2 14  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

9 SELECT CASE X '2 15  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

10 SELECT CASE X '2 16  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

11 SELECT CASE X '2 17  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

12 SELECT CASE X '2 18  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

13 SELECT CASE X '2 19  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

14 SELECT CASE X '2 20  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

15 SELECT CASE X '2 21  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

16 SELECT CASE X '2 22  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

17 SELECT CASE X '2 23  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

18 SELECT CASE X '2 24  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

19 SELECT CASE X '2 25  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

20 SELECT CASE X '2 26  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

21 SELECT CASE X '2 27  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

22 SELECT CASE X '2 28  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

23 SELECT CASE X '2 29  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

24 SELECT CASE X '2 30  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

25 SELECT CASE X '2 31  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

26 SELECT CASE X '2 32  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

27 SELECT CASE X '2 33  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

28 SELECT CASE X '2 34  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

29 SELECT CASE X '2 35  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

30 SELECT CASE X '2 36  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

31 SELECT CASE X '2 37  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

32 SELECT CASE X '2 38  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

33 SELECT CASE X '2 39  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

34 SELECT CASE X '2 46  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

35 SELECT CASE X '2 47  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

36 SELECT CASE X '2 48  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

37 SELECT CASE X '2 49  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

38 SELECT CASE X '2 50  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

39 SELECT CASE X '2 51  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

40 SELECT CASE X '2 52  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

41 SELECT CASE X '2 53  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

42 SELECT CASE X '2 54  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

43 SELECT CASE X '2 55  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

44 SELECT CASE X '2 56  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

45 SELECT CASE X '2 57  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

46 SELECT CASE X '2 58  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

47 SELECT CASE X '2 59  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

48 SELECT CASE X '2 60  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

49 SELECT CASE X '2 61  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

50 SELECT CASE X '2 62  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

51 SELECT CASE X '2 63  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

52 SELECT CASE X '2 64  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

53 SELECT CASE X '2 65  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

54 SELECT CASE X '2 66  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

55 SELECT CASE X '2 67  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

56 SELECT CASE X '2 68  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

57 SELECT CASE X '2 69  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

58 SELECT CASE X '2 70  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

59 SELECT CASE X '2 71  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

60 SELECT CASE X '2 72  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

61 SELECT CASE X '2 73  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

62 SELECT CASE X '2 74  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

63 SELECT CASE X '2 75  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

64 SELECT CASE X '2 76  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

65 SELECT CASE X '2 77  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

66 SELECT CASE X '2 78  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

67 SELECT CASE X '2 79  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

68 SELECT CASE X '2 80  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

69 SELECT CASE X '3 1  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

70 SELECT CASE X '3 2  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

71 SELECT CASE X '3 3  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

72 SELECT CASE X '3 4  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

73 SELECT CASE X '3 5  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

74 SELECT CASE X '3 6  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

75 SELECT CASE X '3 7  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

76 SELECT CASE X '3 8  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

77 SELECT CASE X '3 9  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

78 SELECT CASE X '3 10  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

79 SELECT CASE X '3 11  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

80 SELECT CASE X '3 12  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

81 SELECT CASE X '3 45  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

82 SELECT CASE X '3 46  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

83 SELECT CASE X '3 47  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

84 SELECT CASE X '3 48  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

85 SELECT CASE X '3 49  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

86 SELECT CASE X '3 50  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

87 SELECT CASE X '3 51  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

88 SELECT CASE X '3 52  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

89 SELECT CASE X '3 53  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

90 SELECT CASE X '3 54  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

91 SELECT CASE X '3 55  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

92 SELECT CASE X '3 56  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

93 SELECT CASE X '3 57  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

94 SELECT CASE X '3 58  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

95 SELECT CASE X '3 59  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

96 SELECT CASE X '3 60  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

97 SELECT CASE X '3 61  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

98 SELECT CASE X '3 62  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

99 SELECT CASE X '3 63  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

100 SELECT CASE X '3 64  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

101 SELECT CASE X '3 65  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

102 SELECT CASE X '3 66  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

103 SELECT CASE X '3 67  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

104 SELECT CASE X '3 68  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

105 SELECT CASE X '3 69  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

106 SELECT CASE X '3 70  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

107 SELECT CASE X '3 71  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

108 SELECT CASE X '3 72  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

109 SELECT CASE X '3 73  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

110 SELECT CASE X '3 74  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

111 SELECT CASE X '3 75  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

112 SELECT CASE X '3 76  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260

113 SELECT CASE X '3 77  1 Index = 4
CASE 1: C$ = MID$(STR$(1), 2, 1)
CASE 2: C$ = MID$(STR$(2), 2, 1)
CASE 3, 0: C$ = MID$(STR$(3), 2, 1)
CASE 4: C$ = MID$(STR$(4), 2, 1)
CASE 5: C$ = MID$(STR$(5), 2, 1)
CASE ELSE: GOSUB 1999:
END SELECT
RETURN 260




260 IF C$ = "" THEN PRINT J; "Fehler Gosub"
    SC$ = SC$ + C$
    C$ = ""
270 NEXT J
    PRINT #(KARTANZ + 1), SC$
    SC$ = "": AKARTE$ = ""
    PRINT I
    PRINT
    NEXT I
    CLOSE
    END ' IN 260F WERDEN J NACH V SORTIERT


1999 PRINT "FUER SATZ:"; I; "IN VARIABLE"; J; "ZU"; X; " KEINE CODEZUORDNUNG, ODER BLANC!": STOP
2000 RETURN


Editiert durch Moderator: Titel "ausser übung" ersetzt durch "Überlauf-Fehler" und Code-Tags hinzugefügt. (Sebastian)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
grindstone



Anmeldungsdatum: 03.10.2010
Beiträge: 1056
Wohnort: Ruhrpott

BeitragVerfasst am: 03.05.2020, 16:38    Titel: Antworten mit Zitat

Hallo pammpel und willkommen im Forum! lächeln

Hast du in der DOSbox - Konfigurationsdatei
    xms=true und
    umb=true
gesetzt?

Gruß
grindstone
_________________
For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
dreael
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 2487
Wohnort: Hofen SH (Schweiz)

BeitragVerfasst am: 03.05.2020, 21:01    Titel: Antworten mit Zitat

Nur als Beibemerkung: Code passt wieder einmal bestens zu

http://www.dreael.ch/Deutsch/BASIC-Knowhow-Ecke/Anfaengerfehler.html

d.h. würde ich an Deiner Stelle einmal komplett überarbeiten! Am besten einmal Aufgabe beschreiben, wie man sie ohne Computer lösen/bearbeiten müsste.

Bei so viel wiederholtem Code würde es mich nicht wundern, wenn hier die klassische 64 KB-Segmentgrenze gesprengt wird, die GOSUBs den Stack füllen o.ä.
_________________
Teste die PC-Sicherheit mit www.sec-check.net
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
grindstone



Anmeldungsdatum: 03.10.2010
Beiträge: 1056
Wohnort: Ruhrpott

BeitragVerfasst am: 04.05.2020, 15:10    Titel: Antworten mit Zitat

Ich habe das extra nicht angesprochen, weil es nicht sehr schön ist, wenn man gleich zur Begrüßung von den ach so erfahrenen Experten eins auf den Deckel kriegt (@pammpel: Meine alten Programme sehen auch nicht besser aus zwinkern ).

Außerdem geht es ja erst einmal nur darum, ein Programm, das früher einmal gelaufen hat (davon gehe ich zumindest aus), wieder zum Laufen zu kriegen. Ich könnte es hier einmal im Original QB - Interpreter laufen lassen, aber dazu fehlt mir zumindest eine der Dateien
Code:
"c:\karte" + Mid$(Str$(KARNUM(I)), 2)


Gruß
grindstone
_________________
For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
q_basic



Anmeldungsdatum: 13.05.2020
Beiträge: 7

BeitragVerfasst am: 12.09.2020, 22:17    Titel: ueberlauf fehler Antworten mit Zitat

versuchs mal mit checksum, dann weden die datas zusammen gerechnet und mit der letzten zahl ( summe aller zahlen ) verglichen?
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz