home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_06_1985_Transactor_Publishing.d64
/
auto-def.create
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
29 lines
0 rem the transactor volume 6 issue 01 page 35
100 rem ** writes 'auto-default' auto-run code to diskette
110 rem ** written by tony doty
120 gosub 170: open 5,8,5,"0:auto-default,p,w"
130 print#5,chr$(0);:print#5,chr$(1);
140 for l=0 to 258: print#5,chr$(2);: next l
150 for l=0 to 89: read a: print#5,chr$(a);: print a;: next l
160 close 5: load"0:auto-default",8,1
170 open 15,8,15,"s0:auto-default": close15: return
180 data 169, 160, 133, 254, 169, 224, 133, 252
190 data 169, 0, 133, 251, 133, 253, 168, 177
200 data 253, 145, 253, 177, 251, 145, 251, 200
210 data 208, 245, 230, 254, 230, 252, 165, 252
220 data 208, 237, 169
230 data 8: rem ** default device nunber
240 data 141, 218, 225, 169
250 data 6: rem ** default cursor color
260 data 141, 53, 229, 169
270 data 14: rem ** default bordor color
280 data 141, 217
290 data 236, 169
300 data 1: rem ** default background color
310 data 141, 218, 236, 169, 53
320 data 133, 1, 169, 229, 141, 214, 253, 169
330 data 162, 141, 136, 253, 169, 0, 141, 137
340 data 253, 169, 160, 141, 138, 253, 169, 160
350 data 141, 139, 253, 76, 226, 252, 0, 0
360 data 0, 0