home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 July
/
64er_Magazin_88-07_1988_Markt__Technik_de_Side_A.d64
/
erw-generator
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
694b
|
25 lines
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