home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PITCH-SWITCH / c64.bas
Unknown  |  2019-04-13  |  2.4 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% gt2 Kopftext: '4 REM PITCH SWITCH - RUN PRG default (weak)
100% detectItEasy Format: plain text[LF] default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 34 20 52 45 4d 20 50 49 | 54 43 48 20 53 57 49 54 |4 REM PI|TCH SWIT|
|00000010| 43 48 20 2d 20 52 55 4e | 20 50 52 47 0a 35 20 52 |CH - RUN| PRG.5 R|
|00000020| 45 4d 20 45 41 52 20 54 | 52 41 49 4e 49 4e 47 20 |EM EAR T|RAINING |
|00000030| 31 2c 20 43 36 34 20 56 | 45 52 53 49 4f 4e 0a 36 |1, C64 V|ERSION.6|
|00000040| 20 52 45 4d 20 4d 41 4a | 4f 52 20 53 43 41 4c 45 | REM MAJ|OR SCALE|
|00000050| 0a 37 20 4e 3d 31 30 0a | 38 20 44 49 4d 53 4c 24 |.7 N=10.|8 DIMSL$|
|00000060| 28 35 29 0a 39 20 53 4c | 24 28 31 29 3d 22 30 31 |(5).9 SL|$(1)="01|
|00000070| 37 30 33 37 30 31 39 30 | 36 33 30 32 31 31 35 34 |70370190|63021154|
|00000080| 30 32 32 32 32 37 30 32 | 35 31 37 37 30 32 38 32 |02222702|51770282|
|00000090| 31 34 30 33 32 30 39 34 | 30 33 34 30 37 35 22 0a |14032094|034075".|
|000000a0| 31 30 20 53 4c 24 28 32 | 29 3d 22 30 31 30 30 36 |10 SL$(2|)="01006|
|000000b0| 30 30 31 31 31 31 34 30 | 31 32 32 31 36 30 31 33 |00111140|12216013|
|000000c0| 31 35 36 30 31 35 30 37 | 30 30 31 37 30 33 37 30 |15601507|00170370|
|000000d0| 31 39 30 36 33 30 32 30 | 31 30 30 22 0a 31 31 20 |19063020|100".11 |
|000000e0| 53 4c 24 28 33 29 3d 22 | 30 32 32 32 32 37 30 32 |SL$(3)="|02222702|
|000000f0| 35 31 37 37 30 32 38 32 | 31 34 30 33 30 31 34 31 |51770282|14030141|
|00000100| 30 33 34 30 37 35 30 33 | 38 31 32 36 30 34 33 30 |03407503|81260430|
|00000110| 35 32 30 34 35 31 39 38 | 22 0a 31 32 20 53 4c 24 |52045198|".12 SL$|
|00000120| 28 34 29 3d 22 30 32 37 | 30 35 36 30 33 30 31 34 |(4)="027|05603014|
|00000130| 31 30 33 34 30 37 35 30 | 33 36 30 38 35 30 34 30 |10340750|36085040|
|00000140| 32 30 30 30 34 35 31 39 | 38 30 35 31 30 39 37 30 |20004519|80510970|
|00000150| 35 34 31 31 31 22 0a 31 | 33 20 53 4c 24 28 35 29 |54111".1|3 SL$(5)|
|00000160| 3d 22 30 30 37 31 36 33 | 30 30 38 31 34 37 30 30 |="007163|00814700|
|00000170| 39 31 35 39 30 31 30 30 | 36 30 30 31 31 31 31 34 |91590100|60011114|
|00000180| 30 31 32 32 31 36 30 31 | 34 31 30 37 30 31 35 30 |01221601|41070150|
|00000190| 37 30 22 0a 31 35 20 56 | 3d 35 34 32 39 36 3a 41 |70".15 V|=54296:A|
|000001a0| 32 3d 35 34 32 38 34 3a | 53 32 3d 35 34 32 38 35 |2=54284:|S2=54285|
|000001b0| 3a 48 32 3d 35 34 32 38 | 30 3a 4c 32 3d 35 34 32 |:H2=5428|0:L2=542|
|000001c0| 37 39 3a 57 32 3d 35 34 | 32 38 33 0a 31 36 20 53 |79:W2=54|283.16 S|
|000001d0| 43 3d 35 33 32 38 31 3a | 42 4f 3d 35 33 32 38 30 |C=53281:|BO=53280|
|000001e0| 3a 43 4f 3d 35 34 32 37 | 32 3a 43 52 3d 35 33 32 |:CO=5427|2:CR=532|
|000001f0| 37 32 0a 31 37 20 50 4f | 4b 45 43 52 2c 32 33 3a |72.17 PO|KECR,23:|
|00000200| 50 4f 4b 45 41 32 2c 31 | 32 3a 50 4f 4b 45 53 32 |POKEA2,1|2:POKES2|
|00000210| 2c 32 34 30 0a 31 39 20 | 50 4f 4b 45 53 43 2c 31 |,240.19 |POKESC,1|
|00000220| 3a 50 4f 4b 45 42 4f 2c | 36 0a 32 30 20 50 52 49 |:POKEBO,|6.20 PRI|
|00000230| 4e 54 22 93 90 12 20 20 | 20 20 20 20 20 20 20 20 |NT"... | |
|00000240| 20 20 20 d0 49 54 43 48 | 20 d3 57 49 54 43 48 20 | .ITCH| .WITCH |
|00000250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 92 22 | | ."|
|00000260| 0a 32 31 20 50 52 49 4e | 54 22 11 11 20 d4 48 49 |.21 PRIN|T".. .HI|
|00000270| 53 20 50 52 4f 47 52 41 | 4d 20 57 49 4c 4c 20 48 |S PROGRA|M WILL H|
|00000280| 45 4c 50 20 59 4f 55 20 | 54 4f 20 52 45 43 4f 47 |ELP YOU |TO RECOG|
|00000290| 4e 49 5a 45 22 3b 0a 32 | 32 20 50 52 49 4e 54 22 |NIZE";.2|2 PRINT"|
|000002a0| 50 49 54 43 48 20 44 49 | 46 46 45 52 45 4e 43 45 |PITCH DI|FFERENCE|
|000002b0| 53 20 42 45 54 57 45 45 | 4e 20 4e 4f 54 45 53 20 |S BETWEE|N NOTES |
|000002c0| 4f 46 20 41 22 3a 50 52 | 49 4e 54 22 4d 41 4a 4f |OF A":PR|INT"MAJO|
|000002d0| 52 20 53 43 41 4c 45 2e | 22 0a 32 33 20 50 52 49 |R SCALE.|".23 PRI|
|000002e0| 4e 54 22 11 20 d9 4f 55 | 20 4d 55 53 54 20 41 4e |NT". .OU| MUST AN|
|000002f0| 53 57 45 52 22 3b 4e 3b | 22 52 49 47 48 54 20 54 |SWER";N;|"RIGHT T|
|00000300| 4f 20 46 49 4e 49 53 48 | 20 54 48 45 22 3a 50 52 |O FINISH| THE":PR|
|00000310| 49 4e 54 22 47 41 4d 45 | 2e 22 0a 32 34 20 50 52 |INT"GAME|.".24 PR|
|00000320| 49 4e 54 22 11 20 c9 46 | 20 59 4f 55 20 4e 45 45 |INT". .F| YOU NEE|
|00000330| 44 20 54 4f 20 48 45 41 | 52 20 41 20 50 52 4f 42 |D TO HEA|R A PROB|
|00000340| 4c 45 4d 20 52 45 50 45 | 41 54 45 44 2c 22 3b 0a |LEM REPE|ATED,";.|
|00000350| 32 35 20 50 52 49 4e 54 | 22 50 52 45 53 53 20 54 |25 PRINT|"PRESS T|
|00000360| 48 45 20 27 46 31 27 20 | 4b 45 59 2e 22 0a 33 38 |HE 'F1' |KEY.".38|
|00000370| 20 50 52 49 4e 54 22 11 | 11 11 11 11 11 11 11 20 | PRINT".|....... |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 d0 52 45 53 53 | | .RESS|
|00000390| 20 41 4e 59 20 4b 45 59 | 2e 22 0a 34 30 20 47 45 | ANY KEY|.".40 GE|
|000003a0| 54 4d 24 3a 49 46 4d 24 | 3d 22 22 54 48 45 4e 34 |TM$:IFM$|=""THEN4|
|000003b0| 30 0a 34 32 20 50 4f 4b | 45 42 4f 2c 37 3a 52 3d |0.42 POK|EBO,7:R=|
|000003c0| 30 3a 57 3d 30 3a 50 52 | 49 4e 54 22 93 12 c4 49 |0:W=0:PR|INT"...I|
|000003d0| 46 46 49 43 55 4c 54 59 | 20 cc 45 56 45 4c 92 22 |FFICULTY| .EVEL."|
|000003e0| 0a 34 33 20 50 52 49 4e | 54 22 11 11 31 2e 2d cb |.43 PRIN|T"..1.-.|
|000003f0| 45 59 4e 4f 54 45 20 49 | 4e 54 45 52 56 41 4c 53 |EYNOTE I|NTERVALS|
|00000400| 20 4f 4e 20 54 48 45 20 | 53 41 4d 45 20 53 43 41 | ON THE |SAME SCA|
|00000410| 4c 45 2e 22 0a 34 34 20 | 50 52 49 4e 54 22 11 32 |LE.".44 |PRINT".2|
|00000420| 2e 2d cb 45 59 4e 4f 54 | 45 20 49 4e 54 45 52 56 |.-.EYNOT|E INTERV|
|00000430| 41 4c 53 20 4f 4e 20 56 | 41 52 59 49 4e 47 20 53 |ALS ON V|ARYING S|
|00000440| 43 41 4c 45 53 2e 22 0a | 34 35 20 50 52 49 4e 54 |CALES.".|45 PRINT|
|00000450| 22 11 33 2e 2d d6 41 52 | 59 49 4e 47 20 49 4e 54 |".3.-.AR|YING INT|
|00000460| 45 52 56 41 4c 53 20 4f | 4e 20 56 41 52 59 49 4e |ERVALS O|N VARYIN|
|00000470| 47 20 53 43 41 4c 45 53 | 2e 22 0a 34 37 20 50 52 |G SCALES|.".47 PR|
|00000480| 49 4e 54 22 11 11 11 11 | 11 11 11 11 11 20 c2 45 |INT"....|..... .E|
|00000490| 47 49 4e 20 42 59 20 53 | 45 4c 45 43 54 49 4e 54 |GIN BY S|ELECTINT|
|000004a0| 47 20 20 31 2c 32 2c 4f | 52 20 33 09 00 00 0a 35 |G 1,2,O|R 3....5|
|000004b0| 30 20 47 45 54 4c 24 3a | 49 46 4c 24 3d 22 22 54 |0 GETL$:|IFL$=""T|
|000004c0| 48 45 4e 35 30 0a 35 33 | 20 4c 3d 56 41 4c 28 4c |HEN50.53| L=VAL(L|
|000004d0| 24 29 0a 35 34 20 49 46 | 4c 3e 33 4f 52 4c 3c 31 |$).54 IF|L>3ORL<1|
|000004e0| 54 48 45 4e 35 30 0a 37 | 39 20 52 45 4d 20 50 4c |THEN50.7|9 REM PL|
|000004f0| 41 59 20 53 43 41 4c 45 | 0a 39 30 20 53 4e 3d 49 |AY SCALE|.90 SN=I|
|00000500| 4e 54 28 52 4e 44 28 31 | 29 2a 35 2b 31 29 0a 31 |NT(RND(1|)*5+1).1|
|00000510| 30 30 20 50 4f 4b 45 42 | 4f 2c 32 3a 50 52 49 4e |00 POKEB|O,2:PRIN|
|00000520| 54 22 93 c8 45 52 45 20 | 49 53 20 41 20 4d 41 4a |T"..ERE |IS A MAJ|
|00000530| 4f 52 20 53 43 41 4c 45 | 2e 22 0a 31 30 33 20 50 |OR SCALE|.".103 P|
|00000540| 4f 4b 45 56 2c 31 35 3a | 50 52 49 4e 54 22 13 11 |OKEV,15:|PRINT"..|
|00000550| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 11 |........|........|
|00000560| 22 0a 31 30 35 20 46 4f | 52 20 4b 3d 31 54 4f 38 |".105 FO|R K=1TO8|
|00000570| 0a 31 31 30 20 50 48 3d | 56 41 4c 28 4d 49 44 24 |.110 PH=|VAL(MID$|
|00000580| 28 53 4c 24 28 53 4e 29 | 2c 36 2a 4b 2d 35 2c 33 |(SL$(SN)|,6*K-5,3|
|00000590| 29 29 0a 31 31 31 20 50 | 4c 3d 56 41 4c 28 4d 49 |)).111 P|L=VAL(MI|
|000005a0| 44 24 28 53 4c 24 28 53 | 4e 29 2c 36 2a 4b 2d 32 |D$(SL$(S|N),6*K-2|
|000005b0| 2c 33 29 29 0a 31 32 30 | 20 50 4f 4b 45 48 32 2c |,3)).120| POKEH2,|
|000005c0| 50 48 3a 50 4f 4b 45 4c | 32 2c 50 4c 3a 50 4f 4b |PH:POKEL|2,PL:POK|
|000005d0| 45 57 32 2c 31 37 3a 50 | 52 49 4e 54 54 41 42 28 |EW2,17:P|RINTTAB(|
|000005e0| 32 2a 4b 2b 32 29 22 91 | 91 91 ac a5 22 0a 31 32 |2*K+2)".|....".12|
|000005f0| 31 20 50 52 49 4e 54 54 | 41 42 28 32 2a 4b 2b 32 |1 PRINTT|AB(2*K+2|
|00000600| 29 4b 0a 31 33 30 20 46 | 4f 52 49 3d 31 54 4f 32 |)K.130 F|ORI=1TO2|
|00000610| 30 30 3a 4e 45 58 54 49 | 0a 31 34 30 20 50 4f 4b |00:NEXTI|.140 POK|
|00000620| 45 57 32 2c 30 0a 31 35 | 30 20 4e 45 58 54 4b 3a |EW2,0.15|0 NEXTK:|
|00000630| 50 4f 4b 45 56 2c 30 0a | 31 36 30 20 52 45 4d 20 |POKEV,0.|160 REM |
|00000640| 47 49 56 45 20 50 52 4f | 42 4c 45 4d 0a 31 36 35 |GIVE PRO|BLEM.165|
|00000650| 20 49 46 41 4e 24 3d 22 | 85 22 54 48 45 4e 31 38 | IFAN$="|."THEN18|
|00000660| 30 0a 31 37 30 20 4e 4e | 3d 49 4e 54 28 52 4e 44 |0.170 NN|=INT(RND|
|00000670| 28 31 29 2a 38 2b 31 29 | 0a 31 37 31 20 4e 31 3d |(1)*8+1)|.171 N1=|
|00000680| 49 4e 54 28 52 4e 44 28 | 31 29 2a 38 2b 31 29 0a |INT(RND(|1)*8+1).|
|00000690| 31 37 32 20 49 46 4c 3c | 33 54 48 45 4e 4e 31 3d |172 IFL<|3THENN1=|
|000006a0| 31 0a 31 38 30 20 46 48 | 3d 56 41 4c 28 4d 49 44 |1.180 FH|=VAL(MID|
|000006b0| 24 28 53 4c 24 28 53 4e | 29 2c 36 2a 4e 31 2d 35 |$(SL$(SN|),6*N1-5|
|000006c0| 2c 33 29 29 0a 31 38 31 | 20 46 4c 3d 56 41 4c 28 |,3)).181| FL=VAL(|
|000006d0| 4d 49 44 24 28 53 4c 24 | 28 53 4e 29 2c 36 2a 4e |MID$(SL$|(SN),6*N|
|000006e0| 31 2d 32 2c 33 29 29 0a | 31 39 30 20 53 48 3d 56 |1-2,3)).|190 SH=V|
|000006f0| 41 4c 28 4d 49 44 24 28 | 53 4c 24 28 53 4e 29 2c |AL(MID$(|SL$(SN),|
|00000700| 36 2a 4e 4e 2d 35 2c 33 | 29 29 0a 31 39 31 20 53 |6*NN-5,3|)).191 S|
|00000710| 4c 3d 56 41 4c 28 4d 49 | 44 24 28 53 4c 24 28 53 |L=VAL(MI|D$(SL$(S|
|00000720| 4e 09 0a 31 39 35 20 46 | 4f 52 49 3d 31 54 4f 35 |N..195 F|ORI=1TO5|
|00000730| 30 30 3a 4e 45 58 54 49 | 0a 31 39 36 20 49 46 4c |00:NEXTI|.196 IFL|
|00000740| 3c 33 54 48 45 4e 32 30 | 30 0a 31 39 37 20 50 52 |<3THEN20|0.197 PR|
|00000750| 49 4e 54 22 13 c8 45 52 | 45 20 41 52 45 20 54 57 |INT"..ER|E ARE TW|
|00000760| 4f 20 4e 4f 54 45 53 20 | 4f 46 20 54 48 45 20 53 |O NOTES |OF THE S|
|00000770| 43 41 4c 45 2e 22 3a 57 | 4d 3d 30 3a 47 4f 54 4f |CALE.":W|M=0:GOTO|
|00000780| 32 30 35 0a 31 39 39 20 | 49 46 4c 3c 33 54 48 45 |205.199 |IFL<3THE|
|00000790| 4e 32 30 30 0a 32 30 30 | 20 50 52 49 4e 54 22 13 |N200.200| PRINT".|
|000007a0| c8 45 52 45 20 49 53 20 | 54 48 45 20 4b 45 59 4e |.ERE IS |THE KEYN|
|000007b0| 4f 54 45 20 46 4f 4c 4c | 4f 57 45 44 20 42 59 20 |OTE FOLL|OWED BY |
|000007c0| 4f 4e 45 20 4f 46 22 3a | 50 52 49 4e 54 22 54 48 |ONE OF":|PRINT"TH|
|000007d0| 45 20 4f 54 48 45 52 53 | 2e 22 3a 57 4d 3d 30 0a |E OTHERS|.":WM=0.|
|000007e0| 32 30 35 20 46 4f 52 49 | 3d 31 54 4f 35 30 30 3a |205 FORI|=1TO500:|
|000007f0| 4e 45 58 54 49 0a 32 30 | 39 20 50 4f 4b 45 56 2c |NEXTI.20|9 POKEV,|
|00000800| 31 35 0a 32 31 30 20 50 | 4f 4b 45 48 32 2c 46 48 |15.210 P|OKEH2,FH|
|00000810| 3a 50 4f 4b 45 4c 32 2c | 46 4c 3a 50 4f 4b 45 57 |:POKEL2,|FL:POKEW|
|00000820| 32 2c 31 37 0a 32 31 33 | 20 50 52 49 4e 54 22 13 |2,17.213| PRINT".|
|00000830| 11 11 11 11 11 11 11 11 | 11 11 11 11 11 11 11 22 |........|......."|
|00000840| 3a 46 4f 52 58 3d 31 54 | 4f 4e 31 3a 50 52 49 4e |:FORX=1T|ON1:PRIN|
|00000850| 54 54 41 42 28 32 2a 58 | 2b 32 29 22 91 22 3b 3a |TTAB(2*X|+2)".";:|
|00000860| 4e 45 58 54 58 0a 32 31 | 34 20 50 52 49 4e 54 22 |NEXTX.21|4 PRINT"|
|00000870| 12 ac a5 92 22 3a 50 52 | 49 4e 54 54 41 42 28 32 |....":PR|INTTAB(2|
|00000880| 2a 58 29 22 12 22 3b 4e | 31 3b 22 92 22 0a 32 32 |*X)".";N|1;".".22|
|00000890| 30 20 46 4f 52 49 3d 31 | 54 4f 33 30 30 3a 4e 45 |0 FORI=1|TO300:NE|
|000008a0| 58 54 49 0a 32 33 30 20 | 50 4f 4b 45 57 32 2c 30 |XTI.230 |POKEW2,0|
|000008b0| 0a 32 34 30 20 46 4f 52 | 49 3d 31 54 4f 33 30 30 |.240 FOR|I=1TO300|
|000008c0| 3a 4e 45 58 54 49 0a 32 | 35 30 20 50 4f 4b 45 48 |:NEXTI.2|50 POKEH|
|000008d0| 32 2c 53 48 3a 50 4f 4b | 45 4c 32 2c 53 4c 3a 50 |2,SH:POK|EL2,SL:P|
|000008e0| 4f 4b 45 57 32 2c 31 37 | 0a 32 36 30 20 46 4f 52 |OKEW2,17|.260 FOR|
|000008f0| 49 3d 31 54 4f 33 30 30 | 3a 4e 45 58 54 49 0a 32 |I=1TO300|:NEXTI.2|
|00000900| 37 30 20 50 4f 4b 45 57 | 32 2c 30 3a 50 4f 4b 45 |70 POKEW|2,0:POKE|
|00000910| 56 2c 30 0a 32 37 35 20 | 49 46 57 4d 3d 31 54 48 |V,0.275 |IFWM=1TH|
|00000920| 45 4e 36 31 30 0a 32 38 | 30 20 50 52 49 4e 54 22 |EN610.28|0 PRINT"|
|00000930| 13 d4 59 50 45 20 54 48 | 45 20 4e 55 4d 42 45 52 |..YPE TH|E NUMBER|
|00000940| 20 4f 46 20 54 48 45 20 | 53 45 43 4f 4e 44 20 4e | OF THE |SECOND N|
|00000950| 4f 54 45 2e 20 20 20 20 | 22 0a 32 38 31 20 50 52 |OTE. |".281 PR|
|00000960| 49 4e 54 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |INT" | |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 22 0a 32 39 30 20 | | ".290 |
|00000980| 47 45 54 41 4e 24 3a 49 | 46 41 4e 24 3d 22 22 54 |GETAN$:I|FAN$=""T|
|00000990| 48 45 4e 32 39 30 0a | |HEN290. | |
+--------+-------------------------+-------------------------+--------+--------+