home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh24b.d64
/
reset-helfer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
375b
|
21 lines
100 REM *** RESET-HELFER ***
110 REM
120 REM HENNING ZIPF
130 REM KIRCHSTR. 8
140 REM 6086 RIEDSTADT 5
150 REM TEL. (06158) 72453
160 REM
170 FOR I=1 TO 9
180 READ D
190 POKE 32767+1,D
200 NEXT I
210 POKE53280,14:POKE53281,6
220 PRINTCHR$(147);CHR$(5)
230 PRINT" C 64 CHANGED RESET VEKTOR"
240 PRINT
250 PRINT" 64 K RAM SYSTEM 38911 BASIC BYTES FREE"
260 PRINT
270 NEW
280 DATA 0,0,255,0,195,194,205,56,48
290 REM ERST SAVE, DANN RUN !