0 'PLANDR.BA Unknown 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 'Turns PLANET.DO into PLANET.CO 8 CLS:DEFSTRF:DEFSNGT:PRINT@45,"Building PLANET.CO":PRINT@125,"Count 2674:":OPEN"PLANET.DO"FORINPUTAS1:INPUT#1,A$:GOSUB16:CLEAR256,T:DEFSTRF:DEFSNGT:OPEN"PLANET.DO"FORINPUTAS1:IFEOF(1)THEN14 9 INPUT#1,A$:IFA$="END"THEN14 10 PRINT@140,Z:Z=Z+1:IFLEN(A$)<>4THEN13 11 GOSUB16:IFBG=0THENBG=T 12 AD=T:GOTO9 13 GOSUB16:POKE AD,T:AD=AD+1:GOTO9:CLS:PRINT"" 14 PRINT" Begining Address:";BG:PRINT" Ending Address: ";AD-1:PRINT" Length: ";AD-BG:CLOSE:PRINT:PRINT"...hit F8 for menu" 15 SAVEM"PLANET.CO",BG,AD,BG 16 T=0:FORX=1TOLEN(A$):F=MID$(A$,X,1):IFASC(F)>47ANDASC(F)<58THENT1=ASC(F)-48ELSET1=ASC(F)-55 17 T=T*16+T1:NEXT:RETURN