Listing of file='PATCH.BAS;01' on disk='vmedia/multi_peripheral_interface_demo-sector.ccvf'
60000 REM *** MODIFIED SOUND/SCROLL/NOECHO PATCH LOADER *** 60010 REM 60020 TM= PEEK (32941)* 256+ PEEK (32940) 60030 SA= 48640 60040 IF TM> 49151THEN SA= 65024 60050 AD= 32940:DA= SA- 1:GOSUB 60160 60060 CLEAR 200 60070 SA= PEEK (32941)* 256+ PEEK (32940)+ 1 60080 S$= "16" 60090 IF SA> 49151THEN S$= "32" 60100 PLOT 27,4:PRINT "LOAD PAT";S$;".PRG":PLOT 27,27 60110 POKE 33282,195:AD= 33283:DA= SA+ 6:GOSUB 60160 60120 POKE SA,50:POKE SA+ 1,0 60130 POKE SA+ 2,15:POKE SA+ 3,0 60140 POKE SA+ 4,0:POKE SA+ 5,0:POKE SA+ 6,0 60150 GOTO 150 60160 REM *** STORE AN ADDRESS IN MEMORY *** 60170 REM 60180 POKE AD+ 1,INT (DA/ 256) 60190 ZZ= INT (DA- INT (DA/ 256)* 256) 60200 POKE AD,ZZ 60210 RETURN