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 >
Wrap
Commodore BASIC
|
2022-10-26
|
527b
|
21 lines
10 rem statuszeileneditor
11 rem by uwe wiards;lemwerder
12 ifu=1then15
13 u=1:load"status",8,1
15 poke53280,peek(53281):poke650,128
20 printchr$(14);"[147][211]tatuszeileneditor by [213]we [215]iards"
25 print" [210]est mit '[211]pace' auffuellen!!"
26 print" [211]tatuszeile ist mit [211][217][211]49283"
27 print" abzuschalten!"
28 print"[195]ursorsteuerung nur mit '[196][197][204]'!!"
30 dim a(80):fori=1to80:print" [146]";:next
40 print"[145][145]";
45 fori=1to80
50 geta$:ifa$=""then50
70 ifa$=chr$(13)then50
80 ifa$=chr$(20)andi>1 thenprint"[157] [146][157]";:i=i-1:goto50
85 ifa$=chr$(20)then50
90 printa$;:a(i)=asc(a$):next
110 fori=1to80:poke49202+i,a(i):next
120 sys12*4096