0 'DETOKE.BA - BY: by Seth Ringheiser 413/499-4605 mod. by Bill Templeton 415/820-3777 1 'Club 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 20 CLEAR500:DEFINT A-S:MAXFILES=2:U$=CHR$(27):V$=U$+"p":W$=U$+"q 30 CLS:PRINT@14,V$" DETOKE.100 "W$:PRINT@51,"by Seth Ringheiser 40 PRINT@125,"Run FLSTAT.100 or RFU.100";TAB(48);"for start address...":OPEN"basic"FORINPUTAS1:DIMBASIC$(129) 50 OPEN"output"FOROUTPUTAS2 60 INPUT#1,BASIC$(A):A=A+1:IFNOTEOF(1)THEN60 70 PRINT@205,"Start address";:INPUTN:S=N:PRINT@254,V$" Working... "W$; 80 LN=PEEK(N+2)+PEEK(N+3)*256:N=N+4:PRINT#2,LN; 90 A=PEEK(N):IFA>127THENIFBASIC$(A-128)=""THENPRINT#2,;ELSEPRINT#2,BASIC$(A-128);:N=N+1:GOTO90 100 PRINT#2,CHR$(A);:IFA=0ANDPEEK(N+1)=0ANDPEEK(N+2)=0THEN130ELSEIFA=0THEN120 110 N=N+1:GOTO90 120 PRINT#2,:N=N+1:GOTO80 130 PRINT#2,:PRINT#2,"<<< EOF >>>";N:PRINT#2,"Size of file";N-S:PRINT@254,V$" <<< EOF >>> "W$;:FORT=1TO100:NEXT:MENU