REM このプログラムソースは、earthian1256 さんのブログ http://yutorinonatuyasumi.blog.fc2.com/より
DIM A$(100000),B$(100000)
PRINT
PRINT "テキストファイルを開いてください。"
FILE GETOPENNAME s$
OPEN #1: NAME s$
SET #1: POINTER BEGIN
LET J=1
DO
LINE INPUT #1: A$(J)
SET #1: POINTER IF MISSING THEN EXIT DO
LET J=J+1
LOOP
CLOSE #1
PRINT
PRINT "テキストファイル を htmlファイル に変換します。"
PRINT "ファイル名を入力してください。"
FILE GETSAVENAME s$,"html"
OPEN #4:NAME s$
ERASE #4
PRINT #4: ""
PRINT #4: ""
PRINT #4: ""
PRINT #4: "";s$;""
PRINT #4: ""
PRINT #4: ""
FOR i=1 TO J
LET B$(i)=A$(J+1-i)
NEXT i
DO WHILE J>0
PRINT #4: B$(J);"
"
LET J=J-1
LOOP
PRINT #4: ""
PRINT #4: ""
CLOSE #4
PRINT
PRINT "テキストファイルを"
PRINT ""&s$&"ファイルとして保存しました。"
PRINT
END