Listing of file='PATCH.BAS;01' on disk='vmedia/chip_78-sector.ccvf'
0 GOTO 1000 100 REM 110 REM 120 REM SUPERPATCH PROGRAM 130 REM 140 REM PROGRAM STARTS AT 1000 150 REM COMMONLY USED SUBROUTINES ARE PLACED HERE FOR SPEED 160 REM 170 REM USE THIS AREA FOR YOUR COMMENTS 180 REM 190 REM 200 REM APPEND YOUR PROGRAM TO THIS START-UP PROGRAM 210 REM TO SIMPLIFY THINGS, START YOUR PROGRAM AT 220 REM LINE 2000. YOU WILL ALSO NEED THE PROGRAM 'X' 230 REM ON THE DISC WHICH IS LOADED BY THIS START-UP 240 REM ROUTINE. 250 REM 260 REM 400 REM SOUND PATCH 410 POKE LO+ 4,NS 420 POKE LO+ 5,S1 430 POKE LO+ 6,S2 440 Z1= INT (P/ 256):Z2= P- Z1* 256:POKE LO,Z2:POKE LO+ 1,Z1 450 Z1= INT (D/ 256):Z2= D- Z1* 256:POKE LO+ 2,Z2:POKE LO+ 3,Z3 460 RETURN 500 REM SCROLL PATCH 510 Z= 28672+ X+ X:IF D< > 2THEN Z= Z+ 128* Y:IF D= 3THEN Z= Z+ W+ W- (2- C) 520 IF D= 2THEN Z= Z+ 128* (Y+ H- 1) 530 AD= SM+ 2:ZZ= INT (Z/ 256):POKE AD,Z- 256* ZZ:POKE AD+ 1,ZZ 540 POKE SM+ 5,H+ (D< 3):POKE SM+ 7,W* (C+ 1)+ (D> 2)* (1+ C) 550 POKE SM+ 9,128+ 126* (D= 4)- 126* (D= 3):POKE SM+ 10,- 255* (D= 2OR D= 3):POKE SM+ 14,128+ 126* (D= 3)- 126* (D= 4) 560 POKE SM+ 15,- 255* (D= 1OR D= 4):POKE SM+ 19,- (2- C)* (D< > 3)- (254+ C)* (D= 3):POKE SM+ 20,- 255* (D= 3) 570 IF D= 1OR D= 4THEN Z= 130+ (2* (D= 1))- W- W:GOTO 590 580 Z= 128+ 2* (D= 3)+ W+ W:IF D= 2THEN Z= 256- Z 590 POKE SM+ 27,Z:POKE SM+ 28,- 255* (D= 2):RETURN 1000 PLOT 12,3,64,0:PLOT 27,4:PRINT "RUN X.PRG":PLOT 27,27 1010 CLEAR 100 1020 POKE 33283,0:POKE 33284,240 1030 X= CALL (0) 1040 TM= PEEK (32941)* 256+ PEEK (32940) 1050 SM= TM+ 182:LO= TM+ 1 2000 REM 2010 REM START YOUR PROGRAM HERE 2020 REM