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