home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 January
/
64er_Magazin_87-01_1987_Markt__Technik_de.d64
/
rundschr.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
231b
|
8 lines
10 input"dateinamen";dn$
20 d$=dn$+left$(" ",15-len(dn$))+"r,s,w"
30 open3,8,3,d$
40 input"wieviele daten in einem satz ";a
50 for i=1 to a:inputx$:print#3,x$:next
60 print"noch einen satz (j/n)?":poke198,0:wait 198,1:getx$:if x$="j" then50
70 print#3,1:close3