13-6
FILE INFORMATION
FILENAME(S): 13-6
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:12:26
APPEARS ON: 2 disk(s)
FILE HASH
12ab0e80e34778c64261a00472fa38395987710422bb69e3ebd47dfe6f1318ab
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOTUS SOFT | 13-6 | PRG | DuncanTwain | 27 | 2 | DOWNLOAD FILE |
| PROG 64 WEST | 13-6 | PRG | DuncanTwain | 27 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 00 00 8F 20 2A 20 20 20 20 50 52 4F |....... * PRO| 00000010: 47 52 41 4D 20 31 33 2D 36 20 20 20 20 20 2A 00 |GRAM 13-6 *.| 00000020: 64 08 05 00 83 20 31 32 30 2C 31 36 30 2C 30 2C |d.... 120,160,0,| 00000030: 31 33 32 2C 32 35 32 2C 31 33 32 2C 32 35 33 2C |132,252,132,253,| 00000040: 31 33 32 2C 32 35 34 2C 31 36 32 2C 33 2C 31 34 |132,254,162,3,14| 00000050: 32 2C 37 34 2C 31 39 32 2C 31 36 39 2C 32 35 34 |2,74,192,169,254| 00000060: 2C 31 34 31 00 A9 08 06 00 83 20 30 2C 32 32 30 |,141...... 0,220| 00000070: 2C 31 36 32 2C 38 2C 37 32 2C 31 37 33 2C 31 2C |,162,8,72,173,1,| 00000080: 32 32 30 2C 32 30 35 2C 31 2C 32 32 30 2C 32 30 |220,205,1,220,20| 00000090: 38 2C 32 34 38 2C 37 34 2C 31 37 36 2C 32 31 2C |8,248,74,176,21,| 000000A0: 37 32 2C 31 34 32 2C 37 35 00 EF 08 07 00 83 20 |72,142,75...... | 000000B0: 31 39 32 2C 31 37 34 2C 37 34 2C 31 39 32 2C 31 |192,174,74,192,1| 000000C0: 38 35 2C 31 32 39 2C 32 33 35 2C 31 34 39 2C 32 |85,129,235,149,2| 000000D0: 35 31 2C 32 30 36 2C 37 34 2C 31 39 32 2C 32 34 |51,206,74,192,24| 000000E0: 30 2C 32 30 2C 31 30 34 2C 31 37 34 2C 37 35 00 |0,20,104,174,75.| 000000F0: 33 09 08 00 83 20 31 39 32 2C 32 30 30 2C 31 39 |3.... 192,200,19| 00000100: 32 2C 36 35 2C 31 37 36 2C 31 32 2C 32 30 32 2C |2,65,176,12,202,| 00000110: 32 30 38 2C 32 32 34 2C 35 36 2C 31 30 34 2C 34 |208,224,56,104,4| 00000120: 32 2C 31 34 31 2C 30 2C 32 32 30 2C 32 30 38 2C |2,141,0,220,208,| 00000130: 32 30 35 00 47 09 09 00 83 20 31 30 34 2C 31 30 |205.G.... 104,10| 00000140: 34 2C 38 38 2C 39 36 00 6C 09 14 00 81 20 4A B2 |4,88,96.l.... J.| 00000150: 34 39 31 35 32 20 A4 20 34 39 32 32 35 3A 20 87 |49152 . 49225: .| 00000160: 20 58 3A 20 97 20 4A 2C 58 3A 20 82 00 91 09 28 | X: . J,X: ....(| 00000170: 00 8D 20 33 30 30 30 3A 20 20 20 20 20 20 20 20 |.. 3000: | 00000180: 20 8F 20 49 4E 49 54 49 41 4C 49 53 45 20 53 49 | . INITIALISE SI| 00000190: 44 00 B7 09 2D 00 50 57 B2 34 30 30 3A 20 8D 20 |D...-.PW.400: . | 000001A0: 32 30 30 30 3A 20 8F 20 53 45 54 20 50 55 4C 53 |2000: . SET PULS| 000001B0: 45 20 57 49 44 54 48 00 EB 09 32 00 8D 20 34 30 |E WIDTH...2.. 40| 000001C0: 30 30 3A 20 20 20 20 20 20 20 20 20 8F 20 53 45 |00: . SE| 000001D0: 54 20 55 50 20 48 49 2F 4C 4F 20 46 52 45 51 55 |T UP HI/LO FREQU| 000001E0: 45 4E 43 59 20 56 41 4C 55 45 53 00 1E 0A 3C 00 |ENCY VALUES...<.| 000001F0: 8D 20 35 30 30 30 3A 20 20 20 20 20 20 20 20 20 |. 5000: | 00000200: 8F 20 49 4E 49 54 49 41 4C 49 53 45 20 54 52 41 |. INITIALISE TRA| 00000210: 4E 53 4C 41 54 49 4F 4E 20 54 41 42 4C 45 00 2C |NSLATION TABLE.,| 00000220: 0A 46 00 97 20 35 33 32 38 31 2C 38 00 56 0A 4A |.F.. 53281,8.V.J| 00000230: 00 42 4C 24 B2 22 20 20 20 90 12 1D 31 1D 32 1D |.BL$." ...1.2.| 00000240: 33 1D 1D 1D 35 1D 36 1D 1D 1D 38 1D 39 1D 30 1D |3...5.6...8.9.0.| 00000250: 1D 1D 2D 1D 5C 22 00 6B 0A 4B 00 99 20 22 93 22 |..-.\".k.K.. "."| 00000260: 20 42 4C 24 3A 20 99 20 42 4C 24 00 96 0A 4F 00 | BL$: . BL$...O.| 00000270: 57 48 24 B2 22 20 20 20 20 05 12 1D 51 1D 57 1D |WH$." ...Q.W.| 00000280: 45 1D 52 1D 54 1D 59 1D 55 1D 49 1D 4F 1D 50 1D |E.R.T.Y.U.I.O.P.| 00000290: 40 1D 2A 1D 5E 22 00 B2 0A 50 00 99 20 22 91 22 |@.*.^"...P.. "."| 000002A0: 20 57 48 24 3A 20 99 20 57 48 24 3A 20 99 20 57 | WH$: . WH$: . W| 000002B0: 48 24 00 D7 0A 5A 00 4C 31 B2 32 35 32 3A 20 4C |H$...Z.L1.252: L| 000002C0: 32 B2 32 35 33 3A 20 4C 33 B2 32 35 34 3A 20 53 |2.253: L3.254: S| 000002D0: 52 B2 34 39 31 35 32 00 04 0B 5F 00 57 4E B2 33 |R.49152..._.WN.3| 000002E0: 33 3A 20 57 46 B2 33 32 3A 20 20 8F 20 55 53 45 |3: WF.32: . USE| 000002F0: 20 56 41 52 49 41 42 4C 45 53 20 46 4F 52 20 53 | VARIABLES FOR S| 00000300: 50 45 45 44 00 0D 0B 64 00 9E 20 53 52 00 3D 0B |PEED...d.. SR.=.| 00000310: 6E 00 4E 31 B2 4D 41 25 28 C2 28 4C 31 29 29 3A |n.N1.MA%(.(L1)):| 00000320: 20 4E 32 B2 4D 41 25 28 C2 28 4C 32 29 29 3A 20 | N2.MA%(.(L2)): | 00000330: 4E 33 B2 4D 41 25 28 C2 28 4C 33 29 29 00 76 0B |N3.MA%(.(L3)).v.| 00000340: 73 00 8B 20 4E 31 B3 B1 30 20 A7 20 97 20 53 49 |s.. N1..0 . . SI| 00000350: AA 20 34 2C 57 4E 3A 20 97 20 53 49 20 20 20 2C |. 4,WN: . SI ,| 00000360: 4C 51 25 28 4E 31 29 3A 97 20 53 49 AA 31 2C 48 |LQ%(N1):. SI.1,H| 00000370: 51 25 28 4E 31 29 00 AF 0B 74 00 8B 20 4E 32 B3 |Q%(N1)...t.. N2.| 00000380: B1 30 20 A7 20 97 20 53 49 AA 31 31 2C 57 4E 3A |.0 . . SI.11,WN:| 00000390: 20 97 20 53 49 AA 37 20 2C 4C 51 25 28 4E 32 29 | . SI.7 ,LQ%(N2)| 000003A0: 3A 97 20 53 49 AA 38 2C 48 51 25 28 4E 32 29 00 |:. SI.8,HQ%(N2).| 000003B0: E9 0B 75 00 8B 20 4E 33 B3 B1 30 20 A7 20 97 20 |..u.. N3..0 . . | 000003C0: 53 49 AA 31 38 2C 57 4E 3A 20 97 20 53 49 AA 31 |SI.18,WN: . SI.1| 000003D0: 34 2C 4C 51 25 28 4E 33 29 3A 97 20 53 49 AA 31 |4,LQ%(N3):. SI.1| 000003E0: 35 2C 48 51 25 28 4E 33 29 00 11 0C 83 00 8B 20 |5,HQ%(N3)...... | 000003F0: C2 28 31 39 37 29 B2 34 20 A7 20 57 4E B2 33 33 |.(197).4 . WN.33| 00000400: 3A 20 57 46 B2 33 32 3A 20 20 20 8F 20 5B 46 31 |: WF.32: . [F1| 00000410: 5D 00 39 0C 84 00 8B 20 C2 28 31 39 37 29 B2 35 |].9.... .(197).5| 00000420: 20 A7 20 57 4E B2 31 37 3A 20 57 46 B2 31 36 3A | . WN.17: WF.16:| 00000430: 20 20 20 8F 20 5B 46 33 5D 00 6C 0C 85 00 8B 20 | . [F3].l.... | 00000440: C2 28 36 35 33 29 B2 31 20 A7 20 57 4E B2 36 35 |.(653).1 . WN.65| 00000450: 3A 20 57 46 B2 36 34 3A 20 8D 20 32 30 30 30 3A |: WF.64: . 2000:| 00000460: 20 8F 20 53 48 49 46 54 20 4B 45 59 00 86 0C 96 | . SHIFT KEY....| 00000470: 00 8B 20 C2 28 4C 31 29 B2 30 20 A7 20 97 20 53 |.. .(L1).0 . . S| 00000480: 49 AA 34 2C 57 46 00 9D 0C 97 00 8F 20 53 57 49 |I.4,WF...... SWI| 00000490: 54 43 48 20 4F 46 46 20 47 41 54 45 53 00 B8 0C |TCH OFF GATES...| 000004A0: 98 00 8B 20 C2 28 4C 32 29 B2 30 20 A7 20 97 20 |... .(L2).0 . . | 000004B0: 53 49 AA 31 31 2C 57 46 00 D3 0C 99 00 8B 20 C2 |SI.11,WF...... .| 000004C0: 28 4C 33 29 B2 30 20 A7 20 97 20 53 49 AA 31 38 |(L3).0 . . SI.18| 000004D0: 2C 57 46 00 DC 0C A0 00 89 31 30 30 00 FE 0C D0 |,WF......100....| 000004E0: 07 8F 20 2A 2A 2A 2A 20 41 4C 54 45 52 20 50 55 |.. **** ALTER PU| 000004F0: 4C 53 45 20 57 49 44 54 48 20 2A 2A 2A 2A 00 2C |LSE WIDTH ****.,| 00000500: 0D D5 07 50 57 B2 28 50 57 AA 35 30 29 20 AF 20 |...PW.(PW.50) . | 00000510: 34 30 39 35 3A 20 50 4C B2 50 57 20 AF 20 32 35 |4095: PL.PW . 25| 00000520: 35 3A 20 50 48 B2 50 57 AD 32 35 36 00 59 0D DA |5: PH.PW.256.Y..| 00000530: 07 81 20 49 B2 32 20 A4 20 31 36 20 A9 20 37 3A |.. I.2 . 16 . 7:| 00000540: 97 20 53 49 AA 49 2C 50 4C 3A 20 97 20 53 49 AA |. SI.I,PL: . SI.| 00000550: 49 AA 31 2C 50 48 3A 20 82 00 5F 0D E4 07 8E 00 |I.1,PH: .._.....| 00000560: 84 0D B8 0B 8F 20 2A 2A 2A 2A 20 53 45 54 20 53 |..... **** SET S| 00000570: 49 44 20 46 4F 52 20 33 20 56 4F 49 43 45 53 20 |ID FOR 3 VOICES | 00000580: 2A 2A 2A 2A 00 91 0D BB 0B 53 49 B2 35 34 32 37 |****.....SI.5427| 00000590: 32 00 AE 0D BD 0B 81 20 4A B2 53 49 20 A4 20 53 |2...... J.SI . S| 000005A0: 49 AA 32 34 3A 20 97 20 4A 2C 30 3A 20 82 00 C9 |I.24: . J,0: ...| 000005B0: 0D C2 0B 97 20 53 49 AA 20 35 2C 31 36 AC 35 AA |.... SI. 5,16.5.| 000005C0: 31 31 3A 20 8F 20 41 2C 44 00 DD 0D C3 0B 97 20 |11: . A,D...... | 000005D0: 53 49 AA 31 32 2C 31 36 AC 35 AA 31 31 00 F1 0D |SI.12,16.5.11...| 000005E0: C4 0B 97 20 53 49 AA 31 39 2C 31 36 AC 35 AA 31 |... SI.19,16.5.1| 000005F0: 31 00 0D 0E CC 0B 97 20 53 49 AA 20 36 2C 31 36 |1...... SI. 6,16| 00000600: AC 31 35 AA 31 32 3A 20 8F 20 53 2C 52 00 22 0E |.15.12: . S,R.".| 00000610: CD 0B 97 20 53 49 AA 31 33 2C 31 36 AC 31 35 AA |... SI.13,16.15.| 00000620: 31 32 00 37 0E CE 0B 97 20 53 49 AA 32 30 2C 31 |12.7.... SI.20,1| 00000630: 36 AC 31 35 AA 31 32 00 4F 0E D6 0B 97 20 53 49 |6.15.12.O.... SI| 00000640: AA 32 34 2C 33 3A 20 8F 20 56 4F 4C 55 4D 45 00 |.24,3: . VOLUME.| 00000650: 6A 0E E0 0B 97 20 53 49 AA 20 34 2C 30 3A 20 8F |j.... SI. 4,0: .| 00000660: 20 47 41 54 45 53 20 4F 46 46 00 78 0E E1 0B 97 | GATES OFF.x....| 00000670: 20 53 49 AA 31 31 2C 30 00 86 0E E2 0B 97 20 53 | SI.11,0...... S| 00000680: 49 AA 31 38 2C 30 00 8C 0E EA 0B 8E 00 BC 0E A0 |I.18,0..........| 00000690: 0F 8F 20 2A 2A 20 43 41 4C 43 55 4C 41 54 45 20 |.. ** CALCULATE | 000006A0: 41 52 52 41 59 20 4F 46 20 4E 4F 54 45 20 46 52 |ARRAY OF NOTE FR| 000006B0: 45 51 55 45 4E 43 49 45 53 20 2A 2A 00 D9 0E A5 |EQUENCIES **....| 000006C0: 0F 86 20 46 51 28 39 35 29 2C 4C 51 25 28 39 35 |.. FQ(95),LQ%(95| 000006D0: 29 2C 48 51 25 28 39 35 29 00 06 0F AA 0F 46 51 |),HQ%(95).....FQ| 000006E0: 28 39 35 29 B2 36 34 38 31 34 3A 20 8F 20 54 4F |(95).64814: . TO| 000006F0: 50 20 42 3B 20 36 37 32 39 30 20 46 4F 52 20 50 |P B; 67290 FOR P| 00000700: 41 4C 20 54 56 53 00 38 0F B4 0F 81 20 4A B2 39 |AL TVS.8.... J.9| 00000710: 34 20 A4 20 38 34 20 A9 20 AB 31 3A 20 46 51 28 |4 . 84 . .1: FQ(| 00000720: 4A 29 B2 46 51 28 4A AA 31 29 AD 28 32 AE 28 31 |J).FQ(J.1).(2.(1| 00000730: AD 31 32 29 29 3A 20 82 00 57 0F BE 0F 81 20 4A |.12)): ..W.... J| 00000740: B2 36 20 A4 20 30 20 A9 20 AB 31 3A 20 81 20 4B |.6 . 0 . .1: . K| 00000750: B2 31 20 A4 20 31 32 00 81 0F C8 0F 50 31 B2 4A |.1 . 12.....P1.J| 00000760: AC 31 32 AA 4B AB 31 3A 20 46 51 28 50 31 29 B2 |.12.K.1: FQ(P1).| 00000770: 46 51 28 50 31 AA 31 32 29 AD 32 3A 20 82 3A 20 |FQ(P1.12).2: .: | 00000780: 82 00 91 0F CD 0F 81 20 50 31 B2 31 20 A4 20 39 |....... P1.1 . 9| 00000790: 35 00 CA 0F D2 0F 4C 51 25 28 50 31 29 B2 46 51 |5.....LQ%(P1).FQ| 000007A0: 28 50 31 29 AB 32 35 36 AC B5 28 46 51 28 50 31 |(P1).256..(FQ(P1| 000007B0: 29 AD 32 35 36 29 3A 20 48 51 25 28 50 31 29 B2 |).256): HQ%(P1).| 000007C0: 46 51 28 50 31 29 AD 32 35 36 00 D3 0F DC 0F 82 |FQ(P1).256......| 000007D0: 3A 20 8E 00 02 10 88 13 8F 20 2A 2A 2A 20 54 52 |: ....... *** TR| 000007E0: 41 4E 53 4C 41 54 45 20 51 2C 57 2C 45 2C 52 20 |ANSLATE Q,W,E,R | 000007F0: 45 54 43 20 49 4E 54 4F 20 4E 4F 54 45 53 20 2A |ETC INTO NOTES *| 00000800: 2A 2A 00 11 10 8D 13 86 20 4D 41 25 28 32 35 35 |**...... MA%(255| 00000810: 29 00 3A 10 92 13 81 20 4A B2 20 30 20 A4 20 32 |).:.... J. 0 . 2| 00000820: 32 3A 20 87 20 56 24 2C 56 3A 20 4D 41 25 28 C6 |2: . V$,V: MA%(.| 00000830: 28 56 24 29 29 B2 56 3A 20 82 00 40 10 9C 13 8E |(V$)).V: ..@....| 00000840: 00 8C 10 7C 15 83 20 31 2C 34 32 2C 51 2C 34 33 |...|.. 1,42,Q,43| 00000850: 2C 32 2C 34 34 2C 57 2C 34 35 2C 33 2C 34 36 2C |,2,44,W,45,3,46,| 00000860: 45 2C 34 37 2C 52 2C 34 38 2C 35 2C 34 39 2C 54 |E,47,R,48,5,49,T| 00000870: 2C 35 30 2C 36 2C 35 31 2C 59 2C 35 32 2C 55 2C |,50,6,51,Y,52,U,| 00000880: 35 33 2C 38 2C 35 34 2C 49 2C 35 35 00 BF 10 86 |53,8,54,I,55....| 00000890: 15 83 20 39 2C 35 36 2C 4F 2C 35 37 2C 30 2C 35 |.. 9,56,O,57,0,5| 000008A0: 38 2C 50 2C 35 39 2C 40 2C 36 30 2C 2D 2C 36 31 |8,P,59,@,60,-,61| 000008B0: 2C 2A 2C 36 32 2C 5C 2C 36 33 2C 5E 2C 36 34 00 |,*,62,\,63,^,64.| 000008C0: 00 00 |.. |
....... * PROGRAM 13-6 *.D.... 12 0,160,0,132,252,132,253,132,254,162,3,14 2,74,192,169,254,141...... 0,220,162,8,7 2,173,1,220,205,1,220,208,248,74,176,21, 72,142,75...... 192,174,74,192,185,129,2 35,149,251,206,74,192,240,20,104,174,75. 3.... 192,200,192,65,176,12,202,208,224, 56,104,42,141,0,220,208,205.G.... 104,10 4,88,96.L.... J.49152 . 49225: . X: . J, X: ....(.. 3000: . INITIALISE SI D...-.PW.400: . 2000: . SET PULSE WIDTH. ..2.. 4000: . SET UP HI/LO FREQU ENCY VALUES...<.. 5000: . INITIA LISE TRANSLATION TABLE.,.F.. 53281,8.V.J .BL$." ...1.2.3...5.6...8.9.0...-.\".K .K.. "." BL$: . BL$...O.WH$." ...Q.W. E.R.T.Y.U.I.O.P.@.*.^"...P.. "." WH$: . WH$: . WH$.W.Z.L1.252: L2.253: L3.254: S R.49152..._.WN.33: WF.32: . USE VARIABL ES FOR SPEED...D.. SR.=.N.N1.MA%(B(L1)): N2.MA%(B(L2)): N3.MA%(B(L3)).V.S.. N1.. 0 . . SI. 4,WN: . SI ,LQ%(N1):. SI.1,H Q%(N1)...T.. N2..0 . . SI.11,WN: . SI.7 ,LQ%(N2):. SI.8,HQ%(N2)...U.. N3..0 . . SI.18,WN: . SI.14,LQ%(N3):. SI.15,HQ%(N3 )...... B(197).4 . WN.33: WF.32: . [F1 ].9.... B(197).5 . WN.17: WF.16: . [F3 ].L.... B(653).1 . WN.65: WF.64: . 2000: . SHIFT KEY...... B(L1).0 . . SI.4,WF.. .... SWITCH OFF GATES...... B(L2).0 . . SI.11,WF.S.... B(L3).0 . . SI.18,WF... . .100...P.. **** ALTER PULSE WIDTH ****., .U.PW.(PW.50) . 4095: PL.PW . 255: PH.PW .256.Y.Z.. I.2 . 16 . 7:. SI.I,PL: . SI. I.1,PH: .._.......... **** SET SID FOR 3 VOICES ****.....SI.54272...... J.SI . S I.24: . J,0: ..I.B.. SI. 5,16.5.11: . A, D...C.. SI.12,16.5.11...D.. SI.19,16.5.1 1...L.. SI. 6,16.15.12: . S,R.".M.. SI.1 3,16.15.12.7.N.. SI.20,16.15.12.O.V.. SI .24,3: . VOLUME.J.... SI. 4,0: . GATES O FF.X.... SI.11,0...... SI.18,0......... .. ** CALCULATE ARRAY OF NOTE FREQUENCIE S **.Y.... FQ(95),LQ%(95),HQ%(95).....FQ (95).64814: . TOP B; 67290 FOR PAL TVS.8 .... J.94 . 84 . .1: FQ(J).FQ(J.1).(2.(1 .12)): ..W.... J.6 . 0 . .1: . K.1 . 12. ..H.P1.J.12.K.1: FQ(P1).FQ(P1.12).2: .: ....M.. P1.1 . 95.J.R.LQ%(P1).FQ(P1).256 ..(FQ(P1).256): HQ%(P1).FQ(P1).256.S.... : ....... *** TRANSLATE Q,W,E,R ETC INTO NOTES ***...... MA%(255).:.... J. 0 . 2 2: . V$,V: MA%(F(V$)).V: ..@.......|.. 1 ,42,Q,43,2,44,W,45,3,46,E,47,R,48,5,49,T ,50,6,51,Y,52,U,53,8,54,I,55...... 9,56, O,57,0,58,P,59,@,60,-,61,*,62,\,63,^,64. ..
> CLICK IMAGE PREVIEW FOR FULL MODAL