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