Compucolor.org – Virtual Media

Listing of file='XFER79.BAS;01' on disk='vmedia/comtronics-sector.ccvf'

65000 PLOT  12,14:PRINT  "BASIC SOURCE TRANSFER TO COMPUCOLOR 11 (V8.79)"
65010 REM  UPDATED 18 FEB 81 JDN
65090 DATA 123,230,127,95,33,0,0,195,218,3,23
65100 EB= 256* PEEK (32941)+ PEEK (32940)
65110 EB= EB- 11:Z= EB:AD= 32940:GOSUB 65200
65115 RESTORE 65090
65130 FOR I= 1TO 11:READ X:POKE EB+ I,X:NEXT I
65140 Z= EB+ 11:AD= EB+ 6:GOSUB 65200
65160 POKE 33221,195:Z= EB+ 1:AD= 33222:GOSUB 65200
65165 CLEAR  100:INPUT "ENTER LINE SPEED (3 =300, 4=1200): ";S
65167 IF  S= > 4 THEN  PRINT "NOTE: AT SPEEDS >300 BAUD, XFER REQUIRES A PAUSE OR FILL CHARACTERS BETWEEN LINES."
65170 INPUT "ENTER COMMAND STRING TO REMOTE COMPUTER :";CM$
65180 OUT 8,255:PLOT 14,27,18,S,15,27,13
65190 PRINT CM$;CHR$ (13):POKE 33265,0:POKE 33251,31:END
65200 HI= INT (Z/ 256):POKE AD,Z- 256* HI:POKE AD+ 1,HI:RETURN