Compucolor.org – Virtual Media

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