OPEN "C:\WINDOWS\DESKTOP\name.txt" FOR APPEND AS #1
PRINT "Cheapo Doc Write"
DO WHILE (NOT (cont = 2))
INPUT stri$
WRITE #1, stri$
INPUT "(1-Next Line 2-Exit)", cont
LOOP
CLOSE #1