100 REM LISTING 2: BASIC-Loader fuer USR-DEMO
110 GOSUB 1000
120 DEEK=1536
130 ? "Der Screen beginnt bei "; USR(DEEK,88)
190 END
1000 REM * BASIC-LOADER fuer DEEK
1010 S=0:RESTORE 1100
1020 FOR A=1536 TO 1554:READ D:POKE A,D:S=S+D:NEXT A
1030 IF S<>2892 THEN ? "DATEN—FEHLER !":STOP
1090 RETURN
1100 DATA 104,104,133,204,104,133,203,160,0,177,203,133,212,200,177
1110 DATA 203,133,213,96