home *** CD-ROM | disk | FTP | other *** search
- 1 REM ** GRUNT **
- 8 POKE53280,12:POKE53281,11:POKE646,1
- 10 C$=CHR$(147):M$=" M I D I D E L A Y"
- 20 L$="BE WITH YA IN A SEC..."
- 30 D$="[D]ELAY CHANGE":T$="[T]RANSPOSE CHANGE"
- 40 V$="[V]ELOCITY ADJUST":Q$="[Q]UIT"
- 100 GOSUB1000:PRINTTAB(9);L$:GOSUB2000:GOSUB4000:IFCSM%=757THEN120
- 110 GOSUB1000:PRINT" CHECKSUM ERROR! CHECK DATA STAEMENTS":PRINT:END
- 120 GOTO800
- 130 GOSUB1000
- 140 DT=(PEEK(49162)*256+PEEK(49161))/20
- 150 GOSUB1000:PRINTTAB(5);D$;TAB(30);"(";DT;")"
- 160 S$="+":T=PEEK(49163):IFT>231THENT=T-256:S$=""
- 170 PRINT:PRINTTAB(5);T$;TAB(30);"(";S$;T;")"
- 180 S$="+":V=PEEK(49164):IFV>128THENV=V-256:S$=""
- 190 PRINT:PRINTTAB(5);V$;TAB(30);"(";S$;V;")"
- 200 PRINT:PRINTTAB(5);Q$
- 210 PRINT:PRINT:PRINT"YOUR CHOICE [?]";
- 220 GETA$:IFA$=""THEN220
- 230 IFA$="D"THEN500
- 240 IFA$="T"THEN600
- 250 IFA$="V"THEN700
- 260 IFA$="Q"THEN999
- 270 GOTO150
- 500 GOSUB1000
- 510 PRINT"NEW DELAY TIME":PRINT
- 520 INPUT"IN MILLISECONDS (1 TO 3000) ";D
- 530 D=D*20
- 540 DH=INT(D/256):DL=D-(DH*256)
- 550 POKE49161,DL:POKE49162,DH
- 599 GOTO800
- 600 GOSUB1000
- 610 PRINT"NEW TRANSPOSE INTERVAL":PRINT:INPUT"IN SEMITONES (-24 TO +24) ";T
- 620 IFT<0THENT=256+T
- 630 POKE49163,T
- 699 GOTO800
- 700 GOSUB1000
- 710 PRINT"NEW VELOCITY ADJUSTMENT":PRINT:INPUT"(-127 TO +127) ";V
- 720 IFV<0THENV=256+V
- 730 POKE49164,V
- 799 GOTO800
- 800 GOSUB1000
- 810 PRINTTAB(14);CHR$(18);" DELAY ON ";CHR$(146)
- 820 PRINT:PRINTTAB(6);"HIT A KEY TO RETURN TO MENU"
- 830 SYSSADRS
- 899 GOTO1
- 999 PRINTC$:END
- 1000 REM ** MORE GRUNT **
- 1010 PRINTC$;TAB(8);M$
- 1020 FORI=0TO9:PRINT:NEXTI
- 1999 RETURN
- 2000 REM ** BLAH **
- 2010 SADRS=49152:EADRS=49679
- 2020 FORI=SADRSTOEADRS
- 2030 READOP$:GOSUB3000
- 2040 POKEI,OP
- 2050 NEXTI
- 2999 RETURN
- 3000 REM ** PUKE **
- 3010 OH$=LEFT$(OP$,1):OL$=RIGHT$(OP$,1)
- 3020 OH=VAL(OH$):IFOH=0ANDOH$<>"0"THENOH=ASC(OH$)-55
- 3030 OL=VAL(OL$):IFOL=0ANDOL$<>"0"THENOL=ASC(OL$)-55
- 3040 OP=OH*16+OL
- 3999 RETURN
- 4000 REM ** FART **
- 4010 CSM%=0
- 4020 FORI=SADRSTOEADRS
- 4030 CSM%=CSM%+PEEK(I)
- 4040 I=I+1
- 4050 CSM%=CSM%-PEEK(I)
- 4060 NEXTI
- 4999 RETURN
- 5000 DATA 4C,0F,C0,00,00,00,00,00,00,E8,03,0C,00,00,00,20
- 5001 DATA 2B,C0,20,9F,FF,2
- 5002 DATA A9,03,8D,08,DE,A9,95,8D,08,DE,60,78,20,3D,C0,20
- 5003 DATA 52,C0,20,6C,C0,20,83,C0,20,20,C0,58,60,A9,7F,8D
- 5004 DATA 0D,DC,A9,31,8D,04,DC,A9,00,8D,05,DC,A9,11,8D,0E
- 5005 DATA DC,60,A9,7F,8D,0D,DD,A9,31,8D,04,DD,A9,00,8D,05
- 5006 DATA DD,A9,13,8D,0E,DD,A9,82,8D,0D,DD,60,AD,14,03,8D
- 5007 DATA 10,C2,AD,15,03,8D,11,C2,A9,9A,8D,14,03,A9,C0,8D
- 5008 DATA 15,03,60,AD,18,03,8D,12,C2,AD,19,03,8D,13,C2,A9
- 5009 DATA CB,8D,18,03,A9,C0,8D,19,03,60,AD,08,DE,4A,B0,21
- 5010 DATA 4A,90,27,AD,06,C0,D0,07,A9,95,8D,08,DE,30,
- 5011 DATA 07,C0,EE,07,C0,CE,06,C0,B9,14,C3,8D,09,DE,4C,C7
- 5012 DATA C0,AD,09,DE,20,07,C1,4C,7E,EA,00,48,8A,48,98,48
- 5013 DATA AD,0D,DD,20,AA,C1,C9,FF,F0,06,20,B7,C1,4C,D3,C0
- 5014 DATA AD,03,C0,F0,1C,20,AA,C1,8D,06,DD,20,AA,C1,8D,07
- 5015 DATA DD,A9,80,8D,0D,C0,A9,59,8D,0F,DD,68,A8,68,AA,68
- 5016 DATA 40,4E,0D,C0,4C,FB,C0,48,30,34,AD,0E,C0,30,1C,F0
- 5017 DATA 1C,2C,0E,C0,70,03,20,5C,C1,CE,0E,C0,AD,0E,C0,29
- 5018 DATA 3F,8D,0E,C0,68,20,0B,C2,4C,9D,C1,68,60,A9,01,8D
- 5019 DATA 0E,C0,68,20,FA,C1,20,9D,C1,A9,FF,4C,9D,C1,29,F0
- 5020 DATA C9,90,F0,0B,C9
- 5021 DATA 5C,C1,68,20,9D,C1,A9,41,8D,0E,C0,60,2C,0D,C0,30
- 5022 DATA 18,AD,09,C0,8D,06,DD,AD,0A,C0,8D,07,DD,A9,59,8D
- 5023 DATA 0F,DD,A9,80,8D,0D,C0,30,16,AD,06,DC,49,FF,C9,FF
- 5024 DATA D0,02,29,FE,20,9D,C1,AD,07,DC,49,FF,20,9D,C1,A9
- 5025 DATA FF,8D,06,DC,8D,07,DC,A9,59,8D,0F,DC,60,AC,05,C0
- 5026 DATA EE,05,C0,EE,03,C0,99,14,C2,60,AE,04,C0,EE,04,C0
- 5027 DATA CE,03,C0,BD,14,C2,60,48,AD,08,DE,29,02,D0,14,AE
- 5028 DATA 08,C0,68,9D,14,C3,EE,08,C0,EE,06,C0,A9,B5,8D,08
- 5029 DATA DE,30,04,68,8D,09,DE,60,78,AD,10,C2,8D,1
- 5030 DATA 11,C2,8D,15,03,AD,12,C2,8D,18,03,AD,13,C2,8D,19
- 5031 DATA 03,A9,03,8D,08,DE,20,84,FF,60,F0,0E,18,6D,0C,C0
- 5032 DATA 30,06,D0,06,A9,01,D0,02,A9,7F,60,18,6D,0B,C0,60
- 8224
-