10 REM NEUSYS=======================C64
20 REM BY ALFONS MITTELMEYER
30 REM
40 REM C64
50 REM BASIC V2.0
60 REM ================================
70 GOSUB 110:GOSUB 180:GOTO 240
80 REM --------------------------------
90 REM  MASCHINENTEIL NACHLADEN
100 REM -------------------------------
110 IF PEEK(49154)=174THENRETURN
120 SYS57812"SYSMC",8,0:POKE780,0
130 POKE781,254:POKE782,191
140 SYS65493:RETURN
150 REM -------------------------------
160 REM  VARIABLENDEFINITION
170 REM -------------------------------
180 IN=49465:AT=49152
190 WO=49172:EF=49337
200 SF=49482:SO=49497:RETURN
210 REM ===============================
220 REM ANWENDERPROGRAMM
230 REM -------------------------------
240 END