Listing of file='SOUND.BAS;01' on disk='vmedia/action_soundware-sector.ccvf'
25 REM SOUND 26 REM COPYRIGHT 4-79 27 REM CAP ELECTRONICS 60000 REM SOUND PATCH 60005 PLOT 6,7,15,12,14,3,29,15 60006 REM USER NOTE: CHANGE DA IN STATEMENT 60010 TO: 60007 REM 40770 FOR 8K MACHINES 60008 REM 48962 FOR 16K MACHINES 60009 REM OR 65346 FOR 32K MACHINES 60010 DA= 40770:REM 60011 REM USER NOTE ^ 60015 AD= 32940:GOSUB 60100:CLEAR 100 60019 REM 60020 FINDS TOP OF BASIC MEMORY 60020 TM= PEEK (32940)+ PEEK (32941)* 256 60024 REM 60025 SETS THE CALL VECTOR 60025 AD= 33283:DA= TM+ 8:GOSUB 60100 60026 REM 60027 CHECKS IF MACHINE LANGUAGE ALREADY LOADED 60027 A= 0:FOR N= TM+ 176TO TM+ 182:A= A+ PEEK (N):NEXT 60030 IF A= 1445THEN 60090 60035 PRINT "WORKING" 60040 RESTORE 60200 60049 REM 60050 LOADS MACHINE LANGUAGE 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 60090 GOTO 61000 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$(0)= "MENU" 61020 PG$(1)= "BREAKO" 61030 PG$(2)= "CATERP" 61040 PG$(3)= "SNAKES" 61050 PG$(4)= "TARGET" 61060 PG$(5)= "SKETCH" 61070 PG$(6)= "POPSHT" 61100 REM RETURN TO CALLING PROGRAM 61200 LOAD PG$(PEEK (32936)):RUN