Listing of file='SOUND.BAS;01' on disk='vmedia/chip_15-sector.ccvf'
1 REM LOAD SOUNDWARE MACHINE LANGUAGE 2 TM= PEEK (32940)+ PEEK (32941)* 256 3 DA= 65346:REM 32K 4 IF TM< 65346THEN DA= 60962:REM 32K WITH FRED32 5 IF TM< 60962THEN DA= 48962:REM 16K 6 IF TM< 48962THEN DA= 44578:REM 16K WITH FRED16 7 IF TM< 44578THEN DA= 40770:REM 8K 8 IF TM< > DATHEN POKE DA+ 180,0 10 AD= 32940:GOSUB 60100:REM RESET MAX RAM 20 CLEAR 200 500 GOTO 60000 600 GOTO 61000 60000 REM SOUND PATCH 60005 PLOT 6,7,15,12,14,3,29,15 60020 TM= PEEK (32940)+ PEEK (32941)* 256 60025 AD= 33283:DA= TM+ 8:GOSUB 60100 60027 A= 0:FOR N= TM+ 176TO TM+ 182:A= A+ PEEK (N):NEXT 60030 IF A= 1445THEN 600 60035 PRINT " WORKING" 60040 RESTORE 60200 60050 FOR N= 1TO 200:READ A:IF A> 255THEN N= 220:GOTO 60080 60060 IF A< 0THEN DA= TM- A:AD= TM+ N:GOSUB 60100:GOTO 60080 60070 POKE TM+ N,A 60080 NEXT :GOTO 600 60100 Z1= INT (DA/ 256):Z2= DA- Z1* 256 60110 POKE AD,Z2:N= N+ 1:POKE AD+ 1,Z1:RETURN 60199 REM MACHINE LANGUAGE DATA 60200 DATA 50,0,15,0,0,0,0,123,254,0,194,-121,30,8,243 60210 DATA 58,-6,87,58,-7,254,0,194,-33,122,50,-7,42,-1 60220 DATA 34,-49,42,-3,34,-46,33,-22,1,50,0,11,120,177 60230 DATA 194,-51,123,238,2,211,4,95,43,124,181,194 60240 DATA -48,58,-5,254,0,202,-100,61,50,-5,58,-49,130 60250 DATA 50,-49,58,-7,103,122,50,-7,84,195,-45,50,-7 60260 DATA 50,-4,50,-2,62,15,50,-3,62,50,50,-1,251,201 60270 DATA 254,1,194,-158,33,0,0,6,4,14,17,17,128,0,25 60280 DATA 126,17,128,255,25,119,35,0,13,194,-133,17,8 60290 DATA 0,25,5,194,-131,201 60300 DATA 254,2,194,-182,245,229,197,205,36,0,194,-166 60310 DATA 95,175,87,50,255,129,193,225,241,201,201 60320 DATA 300 61000 REM RETURN LINKAGE 61010 PG$(1)= "OILCO" 61020 PG$(2)= "SONG" 61100 REM RETURN TO CALLING PROGRAM 61110 LOAD PG$(PEEK (32936)):RUN 64000 REM SCROLLING SUBROUTINE 64010 DA= 28672+ 128* Y+ X+ X:AD= TM+ 126:GOSUB 60100 64015 DA= 128- W- W:AD= TM+ 149:GOSUB 60100 64020 POKE TM+ 129,H- 1:POKE TM+ 131,W* (C+ 1) 64030 POKE TM+ 143,35* (1- C):RETURN