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