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