home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 17
/
64er_Magazin_Sonderheft_17_19xx_Markt__Technik_de_Side_B.d64
/
miniedit
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
540b
|
22 lines
100 rem *******************************
110 rem * mini-editor fuer grosse *
120 rem * *
130 rem * laufschrift *
140 rem * *
150 rem *******************************
160 rem
170 rem
180 rem
190 adresse=50944
200 input"text";a$
210 print"[147]"a$
220 if adresse>53160 then print"zu viel text!!!!":adresse=adresse-5:goto270
230 fori=0tolen(a$)
240 poke adresse+i,peek(1024+i)
245 if peek(1024+i)=32 then poke adresse+i,27
247 next
250 adresse=adresse+len(a$)
260 input"noch mehr";b$:if b$="j"then 200
270 fori=0to5:pokeadresse+i,0:next
280 sys 49152