10 '***************************************
20 '*       EPROMMER - PROGRAMM           *
30 '*                                     *
40 '*  (C) 05/1987 by   Peter Buendgens   *
50 '*                   Eschstrasse  31   *
60 '*                   5160 Dueren       *
70 '* Tel. 02421-56567, werkt. ab 18-19 h *
80 '*                                     *
90 '***************************************
100 MODE 2
110 IF HIMEM>36863 THEN MEMORY &8FFF:LOAD"eprom.bin",&9000
120 PRINT". SMON aktivieren (j/n) ?"
130 a$=INKEY$:IF a$="j"THEN GOSUB 150 ELSE IF a$<>"n"THEN 130
140 CALL &9000:GOTO 110
150 PRINT"Rueckkehr mit dem Befehl >>J 9000<< !"
160 IF HIMEM>32767 THEN MEMORY &7FFF:LOAD"smon.bin",&8000
170 CALL &8000
180 RETURN