1 REM TOOL-BASIC.OBJ
10 REM DIESES PROGRAMM  IMPLEMENTIERT
20 REM DIE ERWEITERUNG ZUM TOOL-BASIC
30 REM TOOL. ES  MUSS  SICH DAS  ALTE
40 REM TOOL-BASIC  AUF  DER  DISKETTE
50 REM BEFINDEN. NACH  DEM  PROGRAMM-
60 REM START WIRD DAS ALTE TOOL-BASIC
70 REM UMBENANNT. DER LADER MUSS ENT-
80 REM SPRECHEND   GEAENDERT   WERDEN
90 REM (SIEHE TEXT)
100 OPEN1,8,15,"R:TOOL-BASIC.OLD=TOOL-BASIC.OBJ":CLOSE1
110 SYS57812"TOOL-BASIC.OLD",8,1:POKE780,0:SYS65493
130 POKE56,156:CLR
140 POKE49171,32:POKE49172,0:POKE49173,156
150 POKE53244,15:POKE53245,156
160 POKE49224,32:POKE49225,232:POKE49226,156
170 POKE50430,207:POKE50431,158
180 POKE49163,167:POKE49164,157
190 POKE193,0:POKE194,192
200 POKE174,0:POKE175,208
210 POKE187,7:POKE188,8
220 POKE183,14
230 POKE186,8:POKE185,0
240 SYS62954