Listing of file='SWDEMO.BAS;0B' on disk='vmedia/multi_peripheral_interface_demo-sector.ccvf'
100 REM *** SOUNDWARE DEMO MENU ***
110 REM
120 REM MICROCOMPUTER TECHNOLOGY
130 REM
140 GOTO 60200
150 REM
190 BD$= " xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
200 BL$= " "
220 OUT 8,247
230 PLOT 6,7,12,15
240 GOSUB 790
250 TM= PEEK (32940)+ 256* PEEK (32941)+ 1
260 PRINT " "
270 PLOT 14,3,1,2
280 PRINT " cf tu ab pb nu cf tf {d tu a a pb tu {e tf ab tu "
290 PLOT 3,1,4
300 PRINT " gd vw vw as lw gd vi a| vw l l as vw l vi no vw "
310 PLOT 3,1,6
320 PRINT " "
330 PLOT 3,1,6,15
340 PRINT " BY MICROCOMPUTER TECHNOLOGY "
350 POKE TM,50:POKE TM+ 2,15:POKE TM+ 4,0
360 REM SCREEN FILLER
370 N= 15
380 PLOT 14,6,0,3,10,N
390 PRINT "D DEMO (BY CAP ELECTRONICS)"
400 PLOT 3,10,N+ 2
410 PRINT "J JOYSTICK DRAWING PROGRAM"
420 PLOT 3,10,N+ 4
430 PRINT "I INFORMATION ON SOUND/SCROLL/NOECHO PATCH"
440 PLOT 3,10,N+ 6
450 PRINT "S SOUND DESIGNER FOR AY-3-8910"
460 PLOT 3,10,N+ 8
470 PRINT "Q QUIT"
480 PLOT 3,2,26:PRINT BL$
490 PLOT 15,3,15,26:PRINT "ENTER YOUR CHOICE: ";
500 OUT 8,255:CH= CALL (2):OUT 8,247:CH$= CHR$ (CH)
510 PRINT CH$
520 REM CHOOSER
530 NN= VAL (CH$)
540 X= CALL (0)
550 IF CH$= "D"THEN GOSUB 620:GOTO 700
560 IF CH$= "J"THEN GOSUB 620:GOTO 730
570 IF CH$= "I"THEN GOSUB 620:GOTO 760
580 IF CH$= "S"THEN GOSUB 620:GOTO 900
590 IF CH$= "Q"THEN GOSUB 620:GOTO 670
600 GOTO 480
610 RETURN
620 REM SCROLL CENTER OF SCREEN
630 X= 2:Y= 10:H= 20:W= 60:C= 1:GOSUB 60000
640 FOR NN= 1TO 20:XC= CALL (1):NEXT
650 OUT 8,255:RETURN
660 REM ENDING
670 PLOT 3,22,19,14
680 PLOT 6,0:OUT 8,255
690 PRINT "EXIT":PLOT 27,11,15:END
700 REM GOTO DEMO
710 PLOT 3,19,19,14:PRINT "HERE COMES THE DEMO PROGRAM"
720 LOAD "SOUNDD":RUN
730 REM GOTO COMPOSER
740 PLOT 3,19,19,14:PRINT "HERE COMES THE JOYSTICK ROUTINE"
750 LOAD "JOYPLT":RUN
760 REM GOTO INFO
770 PLOT 3,19,19,14:PRINT "HERE COMES SOME INFORMATION"
775 PLOT 3,9,23:PRINT "FOR SOUNDWARE SOFTWARE CONTACT CAP ELECTRONICS"
776 PLOT 3,9,25:INPUT "HIT <RETURN>";A$
780 LOAD "SOUNDI":RUN
790 REM BORDER DRAWER
800 PLOT 6,0,12,15,3,0,0
810 PLOT 6,10,27,24
820 PRINT BD$:PLOT 3,0,8:PRINT BD$:PLOT 3,0,31:PRINT BD$
830 PLOT 27,10,3,0,0:PRINT BD$
840 PLOT 3,63,0:PRINT BD$
850 PLOT 27,24,3,1,1
860 POKE TM,50:POKE TM+ 2,15
870 RETURN
900 REM
910 PLOT 3,19,19,14:PRINT "HERE COMES THE SOUND GENERATOR"
920 LOAD "SNDGEN":RUN
60000 REM SCROLLING SUBROUTINE
60010 DA= 28672+ 128* Y+ X+ X:AD= TM+ 126:GOSUB 60360
60020 DA= 128- W- W:AD= TM+ 149:GOSUB 60360
60030 POKE TM+ 129,H- 1:POKE TM+ 131,W* (C+ 1)
60040 POKE TM+ 143,35* (1- C):RETURN
60200 REM *** MODIFIED SOUND/SCROLL/NOECHO PATCH LOADER ***
60210 REM
60220 TM= PEEK (32941)* 256+ PEEK (32940)
60230 SA= 48640
60240 IF TM> 49151THEN SA= 65024
60250 AD= 32940:DA= SA- 1:GOSUB 60360
60260 CLEAR 200
60270 SA= PEEK (32941)* 256+ PEEK (32940)+ 1
60280 S$= "16"
60290 IF SA> 49151THEN S$= "32"
60300 PLOT 27,4:PRINT "LOAD PAT";S$;".PRG":PLOT 27,27
60310 POKE 33282,195:AD= 33283:DA= SA+ 6:GOSUB 60360
60320 POKE SA,50:POKE SA+ 1,0
60330 POKE SA+ 2,15:POKE SA+ 3,0
60340 POKE SA+ 4,0:POKE SA+ 5,0:POKE SA+ 6,0
60350 GOTO 150
60360 REM *** STORE AN ADDRESS IN MEMORY ***
60370 REM
60380 POKE AD+ 1,INT (DA/ 256)
60390 ZZ= INT (DA- INT (DA/ 256)* 256)
60400 POKE AD,ZZ
60410 RETURN