home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / plandr.ba < prev    next >
Text File  |  2006-10-19  |  776b  |  14 lines
  1. 0 'PLANDR.BA Unknown
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 'Turns PLANET.DO into PLANET.CO
  4. 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
  5. 9 INPUT#1,A$:IFA$="END"THEN14
  6. 10 PRINT@140,Z:Z=Z+1:IFLEN(A$)<>4THEN13
  7. 11 GOSUB16:IFBG=0THENBG=T
  8. 12 AD=T:GOTO9
  9. 13 GOSUB16:POKE AD,T:AD=AD+1:GOTO9:CLS:PRINT""
  10. 14 PRINT" Begining Address:";BG:PRINT" Ending Address:  ";AD-1:PRINT" Length:          ";AD-BG:CLOSE:PRINT:PRINT"...hit F8 for menu"
  11. 15 SAVEM"PLANET.CO",BG,AD,BG
  12. 16 T=0:FORX=1TOLEN(A$):F=MID$(A$,X,1):IFASC(F)>47ANDASC(F)<58THENT1=ASC(F)-48ELSET1=ASC(F)-55
  13. 17 T=T*16+T1:NEXT:RETURN
  14.