'************************************************************** ' RESTORE.BAS = Demonstriert die Befehle RESTORE, DATA und READ ' =========== ' (c) Thomas Antoni, 27.7.2005 --- www.qbasic.de '************************************************************** CLS ' FOR i% = 0 TO 3 READ Daten(i%) PRINT Daten(i%) 'Es wird 123, 155,564, 347 angezeigt NEXT ' RESTORE 'DATA-Bereich ganz neu beginnen READ X PRINT PRINT X 'Es wird 123 angezeigt RESTORE d2 'Data-Bereich bei Marke d2 neu beginnen READ X PRINT PRINT X 'Es wird 564 angezeigt SLEEP ' d1: DATA 123, 155 d2: DATA 564, 347