home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / co2ba.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  24 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS,    937-5039 Newsletter, 932-8856 Voice
  2. 1 REM CO2BA Rick Perry 4/23/85 Revised by Robert Benson 3/20/88
  3. 10 CLEAR256,HIMEM:CLS:FILES:LINEINPUT"Input .CO file name: ";A$
  4. 15 ONERRORGOTO110:LOADMA$
  5. 20 ONERRORGOTO:GOSUB50
  6. 25 X=64206:P=PEEK(X)+256*PEEK(X+1):IFP<>HIMEMTHENCLEAR256,P:GOSUB50:GOTO15
  7. 30 Q=P-1+PEEK(X+2)+256*PEEK(X+3):R=PEEK(X+4)+256*PEEK(X+5)
  8. 35 OPENA$+".do"FOROUTPUTAS1:PRINT"Working...":C=0:GOSUB60
  9. 40 FORJ=PTOQ:Z=PEEK(J):GOSUB95:NEXT
  10. 45 Z=C:GOSUB95:PRINT#1,:CLOSE:BEEP:MENU
  11. 50 A$="":FORJ=63109TO63129:A=PEEK(J):IFA=0ORA=46THENJ=63129ELSEA$=A$+CHR$(A)
  12. 55 NEXT:RETURN
  13. 60 Q$=CHR$(34):PRINT#1,"1 READP:CLEAR256,P:READP,Q,R,A$:C=P+Q+R"
  14. 65 PRINT#1,"2 PRINT"Q$"Working..."Q$
  15. 70 PRINT#1,"3 FORJ=PTOQ:READX:C=C+X:POKEJ,X:NEXT:READZ"
  16. 75 PRINT#1,"4 IFC<>ZTHENSOUND9394,9:PRINT"Q$"Checksum is wrong"Q$":END"
  17. 80 PRINT#1,"5 BEEP:PRINT"Q$"Done!"Q$":SAVEMA$,P,Q,R";
  18. 85 K=9:N=32:Z=P:GOSUB95:Z=Q:GOSUB95:Z=R:GOSUB95
  19. 90 PRINT#1,","Q$;A$;Q$;:N=32:RETURN
  20. 95 N=N+1:IFN>32THEN105ELSEPRINT#1,",";
  21. 100 PRINT#1,MID$(STR$(Z),2);:C=C+Z:RETURN
  22. 105 N=1:K=K+1:PRINT#1,:PRINT#1,MID$(STR$(K),2)" DATA";:GOTO100
  23. 110 IFERR=7THENRESUMENEXTELSEONERRORGOTO:RESUME
  24.