home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 7
/
64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64
/
statuszeilen.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
980b
|
27 lines
180 rem statuszeilen.bas
182 rem speichert maschinenprg. ab
184 rem :
186 rem by uwe wiards ; lemwerder
188 :
200 fora=49152to49296:readx:pokea,x:next
210 data120,169,13,141,20,3,169,192,141,21,3,88,96,162,0,189,51,192,157,0,4,169
220 data1,157,0,216,232,224,80,240,3,76,15,192,56,32,240,255,224,2,16,6,24,162
230 data2,32,240,255,76,49,234,211,212,193,212,213,211,218,197,201,204,197,206
240 data197,201,206,194,204,197,206,196,213,206,199,160,194,217,160,213,215,197
250 data160,215,201,193,210,196,211,160,160,160,193,195,200,212,218,201,199,160
260 data218,197,201,195,200,197,206,160,212,197,216,212,160,160,160,160,210,197
270 data211,212,160,193,213,198,198,213,197,204,204,197,206,160,120,169,49,141
280 data20,3,169,234,141,21,3,88,96,200
300 rem save-routine
302 rem speichert von $c000 bis $c090
304 rem auf floppy; geraete-nr. 8
306 :
310 open8,8,8,"statuszeilen.exe,p,w"
320 hi=int(49152/256):lo=49152-hi*256
330 print#8,chr$(lo);chr$(hi);
340 fori=49152 to 49296
350 print#8,chr$(peek(i));
360 next:close8
400 rem programm-start
410 printchr$(14):sys12*4096