0 GOTO 100
10 :
20 :
30 BEISPIEL EINES LADERS , DER DIE
40 BASIC ERWEITERUNG LAEDT UND
50 EINSCHALTET  ,  DEN  BASICSTART
60 AUF 32769 LEGT UND  DAS  HAUPT-
70 PROGRAMM NACHLAEDT.
80 :
90 :
100 SYS 57812"TOOL-BASIC.OBJ",8,1
110 POKE 780,0:SYS 65493
120 SYS 49152
130 NAME$  = "SPRITE4"
140 ANFANG = 32769
150 _PRGLDN NAME$,8,0,ANFANG
160 OPEN 1,8,15:INPUT# 1,A:CLOSE 1
170 IF A>1 AND A<>73 THEN:_OLDPRG ANFANG:NEW
180 _OLDPRG ANFANG
190 SYS 42291
200 RUN