home *** CD-ROM | disk | FTP | other *** search
- 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$ = "SPRITE2"
- 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
-