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