10 'PROG3.BA author unknown 15 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 20 'This program deletes lines 10, 20, 30 '30, and 40, LISTs itself, then 40 'continues execution at line 70. 50 C$="10"+CHR$(13)+"20"+CHR$(13)+"30"+CHR$(13)+"40"+CHR$(13)+"LIST"+CHR$(13)+"RUN 70"+CHR$(13)+CHR$(0) 60 C=VARPTR(C$):POKE 63020,PEEK(C+1):POKE 63021,PEEK(C+2):END 70 PRINT"The program continues at line 70." 80 END