home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Playback_07_1992_-_de.d64
/
neusys
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
634b
|
25 lines
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