home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 7 / 64er_Magazin_Sonderheft_07_86-07_1986_Markt__Technik_de_Side_A.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  527b  |  21 lines
  1. 10 rem statuszeileneditor
  2. 11 rem by uwe wiards;lemwerder
  3. 12 ifu=1then15
  4. 13 u=1:load"status",8,1
  5. 15 poke53280,peek(53281):poke650,128
  6. 20 printchr$(14);"[147][211]tatuszeileneditor by [213]we [215]iards"
  7. 25 print" [210]est mit '[211]pace' auffuellen!!"
  8. 26 print" [211]tatuszeile ist mit [211][217][211]49283"
  9. 27 print" abzuschalten!"
  10. 28 print"[195]ursorsteuerung nur mit '[196][197][204]'!!"
  11. 30 dim a(80):fori=1to80:print" [146]";:next
  12. 40 print"[145][145]";
  13. 45 fori=1to80
  14. 50 geta$:ifa$=""then50
  15. 70 ifa$=chr$(13)then50
  16. 80 ifa$=chr$(20)andi>1 thenprint"[157] [146][157]";:i=i-1:goto50
  17. 85 ifa$=chr$(20)then50
  18. 90 printa$;:a(i)=asc(a$):next
  19. 110 fori=1to80:poke49202+i,a(i):next
  20. 120 sys12*4096
  21.