DECLARE FUNCTION link$ (a$) DECLARE FUNCTION fer$ (a$) DECLARE FUNCTION var$ (a$) DIM SHARED q$ q$ = CHR$(34) OPEN "c:\windows\desktop\docume~1.htm" FOR INPUT AS #1 OPEN "kernal.htm" FOR OUTPUT AS #2 flag = 0 ON ERROR GOTO 100 PRINT #2, "Commodore 64 Super Reference - Kernal" PRINT #2, "" DO LINE INPUT #1, n$ ln$ = LCASE$(n$) IF ln$ = "end" THEN EXIT DO LINE INPUT #1, desc$ LINE INPUT #1, h$ LINE INPUT #1, d$ LINE INPUT #1, ina$ LINE INPUT #1, inx$ LINE INPUT #1, iny$ LINE INPUT #1, pre$ LINE INPUT #1, er$ LINE INPUT #1, st$ LINE INPUT #1, munga$ LINE INPUT #1, mungx$ LINE INPUT #1, mungy$ LINE INPUT #1, x$ PRINT #2, "
" PRINT #2, "" + n$ + " - " + desc$ + "

" PRINT #2, "" PRINT #2, "
Preparation" + link$(pre$) PRINT #2, "
Send.A" + var$(ina$) PRINT #2, "
.X" + var$(inx$) PRINT #2, "
.Y" + var$(iny$) PRINT #2, "
Stack usage" + st$ PRINT #2, "
Returns.A" + var$(munga$) PRINT #2, "
.X" + var$(mungx$) PRINT #2, "
.Y" + var$(mungy$) PRINT #2, "
Errors" + link$(er$) PRINT #2, "
" LOOP UNTIL flag CLOSE 1 PRINT #2, "

" PRINT #2, "All pages were generated with a text editor.
" PRINT #2, "All images (except counter art and host ads) are generated, owned and (c) by me.
" PRINT #2, "
" PRINT #2, "Home - Files - Super Reference
" PRINT #2, "" CLOSE 2 END 100 flag = 1: RESUME NEXT FUNCTION link$ (a$) a$ = a$ + " " tmp$ = "" l$ = "" FOR t = 1 TO LEN(a$) x$ = MID$(a$, t, 1) IF x$ >= "A" AND x$ <= "Z" THEN l$ = l$ + x$ ELSE IF LEN(l$) THEN IF LEN(l$) > 2 THEN tmp$ = tmp$ + "" + l$ + "" ELSE tmp$ = tmp$ + l$ END IF END IF tmp$ = tmp$ + x$ l$ = "" END IF NEXT link$ = tmp$ END FUNCTION FUNCTION var$ (a$) IF a$ = "undefined" OR a$ = "ignored" OR a$ = "preserved" THEN var$ = "" + a$ + "" ELSE var$ = a$ END IF END FUNCTION