pammpel
Anmeldungsdatum: 03.05.2020 Beiträge: 1
|
Verfasst am: 03.05.2020, 13:39 Titel: Überlauf-Fehler |
|
|
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) |
|