home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / utl / cocopy.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  28 lines
  1. 0 'COCOPY.BA  MacSwain 02/84
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 ' 80 MICRO (Jan '84, P171) has a COM/CMD program that enables
  4. 3 ' transfer of TRS80 Model 100 files, to or from Models 1/3/4
  5. 4 ' for disk storage.
  6. 5 ' Unfortunately, the Model 100 ROM does not provide for the
  7. 6 ' saving or loading of ".CO" (assembly lang.) files via the
  8. 7 ' com port, as it does for ".BA" & ".DO".  "COCOPY.BA" gives
  9. 8 ' you that capability.
  10. 9 CLS:PRINT:PRINTTAB(10);CHR$(27)+"p";"*****  COCOPY  *****";CHR$(27)+"q"
  11. 10 PRINTTAB(10);CHR$(27)+"p";"macswain enterprises";CHR$(27)+"q":PRINT:LINE(57,5)-(181,25),1,B:LINE(60,7)-(179,7)
  12. 11 LINE(59,7)-(59,23):PRINTTAB(8);"<S>ave or <L>oad CO File";
  13. 12 K$=INKEY$:IFK$="L"ORK$="l"THEN22ELSEIFK$="S"ORK$="s"THEN13ELSEIFK$=CHR$(27)THENMENUELSE12
  14. 13 Z=63930:PRINT:PRINTTAB(3);"On Model 1/3 Run: 'COM I FILENAME'":INPUT"Then Enter CO Filename (No Ext)";A$:FORX=0TO198STEP11
  15. 14 IF(PEEK(X+Z)AND160)=160THENGOSUB16
  16. 15 NEXTX:PRINTTAB(13);"FILE NOT FOUND";:FORW=1TO500:NEXTW:GOTO9
  17. 16 B$="":A=LEN(A$):FORY=1TOA:B$=B$+CHR$(PEEK(X+Z+2+Y)):NEXTY:IFA$<>B$THENRETURN
  18. 17 IFA<6ANDPEEK(X+Z+2+Y)<>32THENRETURN
  19. 18 B=(PEEK(X+Z+2)*256)+PEEK(X+Z+1):H$="0123456789ABCDEF":OPEN"COM:98E1E"FOROUTPUTAS1:X=6+(PEEK(B+3)*256)+PEEK(B+2):FORY=0TOX-1
  20. 19 G=G+1:C$="":C$=C$+MID$(H$,((PEEK(B+Y)AND240)/16)+1,1)+MID$(H$,(PEEK(B+Y)AND15)+1,1):PRINT#1,C$;
  21. 20 IFG=16THENPRINT#1,",";:G=0:NEXTY:ELSENEXTY
  22. 21 PRINT#1,CHR$(26):CLOSE1:PRINTTAB(15);"FILE SAVED";:FORW=1TO500:NEXT:GOTO9
  23. 22 PRINT:PRINTTAB(3);"On Model 1/3 Run: 'COM O FILENAME'":OPEN"COM:98E1E"FORINPUTAS1
  24. 23 INPUT#1,B$:H$="BCDEF":R=LEN(B$):X=1:GOSUB23:LD=A*16+B:X=3:GOSUB23:LD=((A*16+B)*256)+LD:PRINT"START ";LD:X=5:GOSUB23
  25. 24 LN=A*16+B:X=7:GOSUB23:LN=((A*16+B)*256)+LN:PRINT"LENGTH";LN:X=9:GOSUB23:ST=A*16+B:X=11:GOSUB23:ST=((A*16+B)*256)+ST
  26. 25 PRINT"ENTRY ";ST:INPUT"Create CO Filename (No Ext)";F$:Z=LD:FORX=13TORSTEP2:GOSUB23:POKEZ,A*16+B:Z=Z+1:NEXTX:INPUT#1,B$
  27. 26 R=LEN(B$):FORX=1TORSTEP2:GOSUB23:POKEZ,A*16+B:Z=Z+1:NEXTX
  28.