10 PRINT "riddzzle.bas - 12/29/2002 - lrb"
15 REM 12/29/2002 - added tags around "text"
16 REM 12/29/2002 - padded lines w/ trailing space
20 ON ERROR GOTO 250
30 OPEN "o",2,"RIDDZZLE.HTM"
40 INPUT "enter input file name";IFN$
50 INPUT "enter background color; eg. lblue";BGC$
60 INPUT "enter author of text and date range";AAD$
70 INPUT "enter font size, eg. 2";FSZ$
80 INPUT "enter page number";PGN$
90 OPEN "i",1,IFN$
100 LINE INPUT #1,L$ : L$=L$+" "
110 HDG$=""+L$+""
120 HDG$=HDG$+""+L$+"
"
130 PRINT #2,HDG$
140 FTG$=""+AAD$+"
"
150 FTG$=FTG$+""+PGN$+""
160 REM
170 FOR I=1 TO LEN(L$)
180 C$=MID$(L$,I,1) : IF C$ >="A" AND C$ <="Z" THEN C$=CHR$(ASC(C$)+97-65)
190 IF INSTR("abcdefghijklmnopqrstuvwxyz",C$)<>0 THEN 210
200 PRINT #2,""+C$+" " : GOTO 220
210 PRINT #2,"
"
220 NEXT
230 LINE INPUT #1,L$ : L$=L$+" "
240 GOTO 160
250 REM
260 PRINT #2,FTG$
270 CLOSE #2 : CLOSE #1
280 SYSTEM