Ich hab's gefunden. Segmente Zahl erhöht und schon klappts. Hab's erst garnicht gesehen. Danke für die Antworten.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Show posts Menu
SETCURRENTDIR("Media") // go to media files
SETTRANSPARENCY RGB(255,0,128)
SETSCREEN 1680,1050,1
//
GLOBAL n1$[]
GLOBAL n2$[]
GLOBAL n3$[]
//
//
GOSUB init
GOSUB gfx
GOSUB startscreen
GOSUB daten
LOADBMP "bground.bmp"
//
main: // Hier startet das Programm
//
MOUSESTATE mx,my,b1,b2 // VAR
PRINT "MX:"+ mx, 350, 980 // Kontrollausgabe X, wo ist die Maus ?
PRINT "MY:"+ my, 650, 980 // Kontrollausgabe Y, wo ist die Maus ?
//
PRINT n1$[3], 500,500 // Testausgabe von n1$
SHOWSCREEN
GOTO main // ... und hier ist es zuende
GLOBAL n1$[], n2$[], n3$[], n4$[], n5$[], n6$[], n7$[]
DIM n1$[20], n2$[20], n3$[20], n4$[20], n5$[20], n6$[20], n7$[20]
//
RESTORE daten
FOR i = 1 TO 19
READ n1$[i], n2$[i], n3$[i], n4$[i], n5$[i], n6$[i], n7$[i]
NEXT
//
STARTDATA daten:
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
ENDDATA
//
RESTORE daten
FOR i = 1 TO 19
READ n1$[i], n2$[i], n3$[i], n4$[i], n5$[i], n6$[i], n7$[i]
NEXT
STARTDATA daten:
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
DATA "Klaus","Meyer","Oldenburg","April","Mann","65","grün"
ENDDATA
DIM n1$[20], n2$[20], n3$[20], n4$[20], n5$[20], n6$[20], n7$[20]
//
RESTORE daten
FOR i = 1 TO 19
READ n1$[i], n2$[i], n3$[i], n4$[i], n5$[i], n6$[i], n7$[i]
NEXT