home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / rundschreiben (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-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.