Here's my implementation in QBasic.  

    COMMON SHARED JAQBH$
    COMMON SHARED F$
    IF F$ = "" THEN F$ = "A.BAS"
    OPEN F$ FOR OUTPUT AS #1
    PRINT #1, JAQBH$
    DATA 20,16,28,24,16
    DATA "Just Another QBasic Hacker"
    OPEN "JAQBH.BAS" FOR INPUT AS #2
    FOR i% = 1 TO 5
            READ l%
            y$ = INPUT$(l%, #2)
            PRINT #1, y$
            y$ = INPUT$(2, #2)
    NEXT
    CLOSE #1
    CLOSE #2
    F$ = "CON"
    READ JAQBH$
    CHAIN "A.BAS"