home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
gam
/
plandr.ba
< prev
next >
Wrap
Text File
|
2006-10-19
|
776b
|
14 lines
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