10 'PROG4.BA author unknown 15 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 20 'This program saves itself 30 C$="SAVE"+CHR$(34)+"PROG3.DO"+CHR$(34)+",A"+CHR$(13)+"RUN 50"+CHR$(13)+CHR$(0) 40 C=VARPTR(C$):POKE 63020,PEEK(C+1):POKE 63021,PEEK(C+2):END 50 PRINT"The program continues at line 50":FILES 60 END