home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh16a.d64 / rundschreiben (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  231b  |  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.