XIXB
FILE INFORMATION
FILENAME(S): XIXB
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-12-02 23:22:59
APPEARS ON: 1 disk(s)
FILE HASH
034b7451f652f82e7dab2c3cd5061913eb01531963f348f42163b3f3ce6080a6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VIZAWRITE DEUTSC | XIXB | PRG | swasti, dinkel | 6 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 70 64 3A 79 24 28 37 32 29 0D 64 3A 7A 24 28 |.pd:y$(72).d:z$(| 00000010: 31 29 0D 63 3A 79 24 3D 22 30 30 30 30 30 30 30 |1).c:y$="0000000| 00000020: 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000| 00000030: 30 22 0D 63 3A 79 24 3D 79 24 21 21 79 24 21 21 |0".c:y$=y$!!y$!!| 00000040: 79 24 0D 6A 3A 40 70 0D 2A 73 63 72 65 65 6E 20 |y$.j:@p.*screen | 00000050: 67 3A 73 30 0D 74 73 68 3A 56 4F 49 43 45 28 31 |g:s0.tsh:VOICE(1| 00000060: 2D 33 29 20 20 20 20 56 4F 4C 28 30 2D 31 35 29 |-3) VOL(0-15)| 00000070: 20 20 20 20 52 45 53 0D 3A 28 30 2D 31 35 29 0D | RES.:(0-15).| 00000080: 74 3A 0D 3A 0D 74 3A 52 45 47 49 53 54 45 52 0D |t:.:.t:REGISTER.| 00000090: 3A 20 23 41 20 20 20 20 20 20 3C 2D 20 4C 6F 77 |: #A <- Low| 000000A0: 20 46 72 65 71 20 20 20 20 41 74 74 61 63 6B 28 | Freq Attack(| 000000B0: 30 2D 31 35 29 0D 3A 20 23 42 A0 20 20 20 20 20 |0-15).: #B. | 000000C0: 3C 2D 20 48 69 67 68 20 22 20 20 20 20 20 20 44 |<- High " D| 000000D0: 65 63 61 79 20 28 30 2D 31 35 29 0D 3A 20 23 43 |ecay (0-15).: #C| 000000E0: 20 20 20 20 20 20 3C 2D 20 4C 6F 77 20 50 75 6C | <- Low Pul| 000000F0: 73 65 0D 3A 20 23 44 20 20 20 20 20 20 3C 2D 20 |se.: #D <- | 00000100: 48 69 67 68 20 22 20 20 20 20 20 53 75 73 74 61 |High " Susta| 00000110: 69 6E 28 30 2D 31 35 29 0D 3A 20 23 45 20 20 20 |in(0-15).: #E | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 52 65 6C 65 61 73 65 28 30 2D 31 35 29 0D 3A | Release(0-15).:| 00000140: 20 23 46 20 0D 3A 20 23 47 0D 3A 20 32 31 20 20 | #F .: #G.: 21 | 00000150: 20 20 20 20 3C 2D 20 43 75 74 20 46 72 65 71 20 | <- Cut Freq | 00000160: 20 20 20 20 53 77 69 74 63 68 65 73 0D 3A 20 32 | Switches.: 2| 00000170: 32 20 20 20 20 20 20 3C 2D 20 48 69 67 68 20 22 |2 <- High "| 00000180: 20 20 20 20 20 46 69 6C 74 65 72 20 20 20 43 75 | Filter Cu| 00000190: 74 33 0D 3A 20 32 33 20 20 20 20 20 20 20 20 20 |t3.: 23 | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 48 69 67 68 20 | High | 000001B0: 20 20 20 20 42 61 6E 64 0D 3A 20 32 34 20 20 20 | Band.: 24 | 000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001D0: 20 4C 6F 77 20 20 20 20 20 20 53 79 6E 63 0D 3A | Low Sync.:| 000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001F0: 20 20 20 20 20 20 20 52 69 6E 67 0D 3A 0D 3A 20 | Ring.:.: | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 57 41 56 | WAV| 00000210: 45 46 4F 52 4D 0D 3A 20 20 20 20 20 20 20 20 20 |EFORM.: | 00000220: 20 20 20 20 20 20 20 4E 6F 69 73 65 20 31 32 38 | Noise 128| 00000230: 0D 3A 20 20 20 50 75 6C 73 65 20 36 34 20 20 53 |.: Pulse 64 S| 00000240: 61 77 74 6F 6F 74 68 20 33 32 20 20 54 72 69 61 |awtooth 32 Tria| 00000250: 6E 67 6C 65 20 31 36 0D 67 3A 73 35 0D 65 3A 0D |ngle 16.g:s5.e:.| 00000260: 2A 66 69 6C 6C 0D 63 3A 6B 3D 79 24 28 68 2A 32 |*fill.c:k=y$(h*2| 00000270: 31 2D 31 33 2C 33 29 0D 63 3A 6C 3D 79 24 28 68 |1-13,3).c:l=y$(h| 00000280: 2A 32 31 2D 31 30 2C 33 29 0D 63 3A 6D 3D 79 24 |*21-10,3).c:m=y$| 00000290: 28 68 2A 32 31 2D 37 2C 33 29 0D 63 3A 6E 3D 79 |(h*21-7,3).c:n=y| 000002A0: 24 28 68 2A 32 31 2D 34 2C 33 29 0D 63 3A 6F 3D |$(h*21-4,3).c:o=| 000002B0: 79 24 28 68 2A 32 31 2D 31 2C 33 29 0D 63 3A 70 |y$(h*21-1,3).c:p| 000002C0: 3D 79 24 28 68 2A 32 31 2B 32 2C 33 29 0D 63 3A |=y$(h*21+2,3).c:| 000002D0: 71 3D 79 24 28 68 2A 32 31 2B 35 2C 33 29 0D 67 |q=y$(h*21+5,3).g| 000002E0: 3A 6D 38 38 2C 31 38 34 3B 74 0D 74 3A 23 68 20 |:m88,184;t.t:#h | 000002F0: 20 0D 67 3A 6D 31 39 32 2C 31 38 34 3B 74 0D 74 | .g:m192,184;t.t| 00000300: 3A 23 69 20 20 0D 67 3A 6D 33 30 34 2C 31 38 34 |:#i .g:m304,184| 00000310: 3B 74 0D 74 68 3A 23 6A 20 20 0D 67 3A 6D 33 32 |;t.th:#j .g:m32| 00000320: 2C 31 36 30 3B 74 0D 74 3A 23 6B 20 20 0D 67 3A |,160;t.t:#k .g:| 00000330: 6D 33 32 2C 31 35 32 3B 74 0D 74 3A 23 6C 20 20 |m32,152;t.t:#l | 00000340: 0D 67 3A 6D 33 32 2C 31 34 34 3B 74 0D 74 3A 23 |.g:m32,144;t.t:#| 00000350: 6D 20 20 0D 67 3A 6D 33 32 2C 31 33 36 3B 74 0D |m .g:m32,136;t.| 00000360: 74 3A 23 6E 20 20 0D 67 3A 6D 33 32 2C 31 32 38 |t:#n .g:m32,128| 00000370: 3B 74 0D 74 3A 23 6F 20 20 0D 67 3A 6D 33 32 2C |;t.t:#o .g:m32,| 00000380: 31 32 30 3B 74 0D 74 3A 23 70 20 20 0D 67 3A 6D |120;t.t:#p .g:m| 00000390: 33 32 2C 31 31 32 3B 74 0D 74 3A 23 71 20 20 0D |32,112;t.t:#q .| 000003A0: 67 3A 6D 33 32 2C 31 30 34 3B 74 0D 74 3A 23 72 |g:m32,104;t.t:#r| 000003B0: 20 20 0D 67 3A 6D 33 32 2C 39 36 3B 74 0D 74 3A | .g:m32,96;t.t:| 000003C0: 23 73 20 20 0D 67 3A 6D 33 32 2C 38 38 3B 74 0D |#s .g:m32,88;t.| 000003D0: 74 3A 23 74 20 20 0D 67 3A 6D 33 32 2C 38 30 3B |t:#t .g:m32,80;| 000003E0: 74 0D 74 3A 23 75 20 20 0D 67 3A 6D 31 38 34 2C |t.t:#u .g:m184,| 000003F0: 35 36 3B 74 0D 74 3A 23 76 20 20 0D 63 3A 77 3D |56;t.t:#v .c:w=| 00000400: 70 2F 31 36 0D 63 3A 78 3D 70 2D 77 2A 31 36 0D |p/16.c:x=p-w*16.| 00000410: 67 3A 6D 32 39 36 2C 31 36 30 3B 74 0D 74 3A 23 |g:m296,160;t.t:#| 00000420: 77 20 20 0D 67 3A 6D 32 39 36 2C 31 35 32 3B 74 |w .g:m296,152;t| 00000430: 0D 74 3A 23 78 20 20 0D 63 3A 77 3D 71 2F 31 36 |.t:#x .c:w=q/16| 00000440: 0D 63 3A 78 3D 71 2D 77 2A 31 36 0D 67 3A 6D 32 |.c:x=q-w*16.g:m2| 00000450: 39 36 2C 31 33 36 3B 74 0D 74 3A 23 77 20 20 0D |96,136;t.t:#w .| 00000460: 67 3A 6D 32 39 36 2C 31 32 38 3B 74 0D 74 3A 23 |g:m296,128;t.t:#| 00000470: 78 20 20 0D 67 3A 6D 32 34 30 2C 39 36 3B 74 0D |x .g:m240,96;t.| 00000480: 63 3A 7A 24 3D 79 24 28 31 29 0D 74 3A 24 7A 24 |c:z$=y$(1).t:$z$| 00000490: 20 20 0D 67 3A 6D 33 30 34 2C 39 36 3B 74 0D 63 | .g:m304,96;t.c| 000004A0: 3A 7A 24 3D 79 24 28 32 29 0D 74 3A 24 7A 24 0D |:z$=y$(2).t:$z$.| 000004B0: 67 3A 6D 32 34 30 2C 38 38 3B 74 0D 63 3A 7A 24 |g:m240,88;t.c:z$| 000004C0: 3D 79 24 28 33 29 0D 74 3A 24 7A 24 20 20 0D 67 |=y$(3).t:$z$ .g| 000004D0: 3A 6D 33 30 34 2C 38 38 3B 74 0D 63 3A 7A 24 3D |:m304,88;t.c:z$=| 000004E0: 79 24 28 34 29 0D 74 3A 24 7A 24 20 20 0D 67 3A |y$(4).t:$z$ .g:| 000004F0: 6D 32 34 30 2C 38 30 3B 74 0D 74 3A 24 7A 24 20 |m240,80;t.t:$z$ | 00000500: 20 0D 67 3A 6D 33 30 34 2C 38 30 3B 74 0D 63 3A | .g:m304,80;t.c:| 00000510: 7A 24 3D 79 24 28 36 29 0D 74 3A 24 7A 24 20 20 |z$=y$(6).t:$z$ | 00000520: 0D 67 3A 6D 32 34 30 2C 37 32 3B 74 0D 63 3A 7A |.g:m240,72;t.c:z| 00000530: 24 3D 79 24 28 37 29 0D 74 3A 24 7A 24 0D 65 3A |$=y$(7).t:$z$.e:| 00000540: 0D 70 72 3A 0D 74 68 73 3A 20 20 56 4F 49 43 45 |.pr:.ths: VOICE| 00000550: A0 4E 55 4D 42 45 52 20 28 31 2D 33 29 0D 6A 3A |.NUMBER (1-3).j:| 00000560: 6E 65 78 74 31 0D 2A 6E 65 78 74 20 67 3A 6D 38 |next1.*next g:m8| 00000570: 38 2C 31 38 34 3B 74 0D 2A 6E 65 78 74 31 20 61 |8,184;t.*next1 a| 00000580: 73 3A 23 68 0D 6A 28 68 3D 30 21 68 3E 33 29 3A |s:#h.j(h=0!h>3):| 00000590: 6E 65 78 74 0D 63 3A 61 3D 28 68 2D 31 29 2A 37 |next.c:a=(h-1)*7| 000005A0: 0D 63 3A 62 3D 61 2B 31 0D 63 3A 63 3D 61 2B 32 |.c:b=a+1.c:c=a+2| 000005B0: 0D 63 3A 64 3D 61 2B 33 0D 63 3A 65 3D 61 2B 34 |.c:d=a+3.c:e=a+4| 000005C0: 0D 63 3A 66 3D 61 2B 35 0D 63 3A 67 3D 61 2B 36 |.c:f=a+5.c:g=a+6| 000005D0: 0D 75 3A 73 63 72 65 65 6E 0D 75 3A 66 69 6C 6C |.u:screen.u:fill| 000005E0: 0D 67 3A 6D 31 39 32 2C 31 38 34 3B 74 0D 61 3A |.g:m192,184;t.a:| 000005F0: 0D 63 28 25 62 3C 3E 63 68 72 28 30 29 29 3A 69 |.c(%b<>chr(0)):i| 00000600: 3D 25 62 0D 67 3A 6D 33 30 34 2C 31 38 34 3B 74 |=%b.g:m304,184;t| 00000610: 0D 61 3A 0D 63 28 25 62 3C 3E 63 68 72 28 30 29 |.a:.c(%b<>chr(0)| 00000620: 29 3A 6A 3D 25 62 0D 67 3A 6D 33 32 2C 31 36 30 |):j=%b.g:m32,160| 00000630: 3B 74 0D 61 3A 0D 63 28 25 62 3C 3E 63 68 72 28 |;t.a:.c(%b<>chr(| 00000640: 30 29 29 3A 6B 3D 25 62 0D 67 3A 6D 33 32 2C 31 |0)):k=%b.g:m32,1| 00000650: 35 32 3B 74 0D 61 3A 0D 63 28 25 62 3C 3E 63 68 |52;t.a:.c(%b<>ch| 00000660: 72 28 30 29 29 3A 6C 3D 25 62 0D 67 3A 6D 33 32 |r(0)):l=%b.g:m32| 00000670: 2C 31 34 34 3B 74 0D 61 3A 0D 63 28 25 62 3C 3E |,144;t.a:.c(%b<>| 00000680: 63 68 72 28 30 29 29 3A 6D 3D 25 62 0D 67 3A 6D |chr(0)):m=%b.g:m| 00000690: 33 32 2C 31 33 36 3B 74 0D 61 3A 0D 63 28 25 62 |32,136;t.a:.c(%b| 000006A0: 3C 3E 63 68 72 28 30 29 29 3A 6E 3D 25 62 0D 67 |<>chr(0)):n=%b.g| 000006B0: 3A 6D 32 39 36 2C 31 36 30 3B 74 0D 61 3A 0D 63 |:m296,160;t.a:.c| 000006C0: 28 25 62 3C 3E 63 68 72 28 30 29 29 3A 77 3D 25 |(%b<>chr(0)):w=%| 000006D0: 62 0D 67 3A 6D 32 39 36 2C 31 35 32 3B 74 0D 61 |b.g:m296,152;t.a| 000006E0: 3A 0D 63 28 25 62 3C 3E 63 68 72 28 30 29 29 3A |:.c(%b<>chr(0)):| 000006F0: 78 3D 25 62 0D 63 3A 70 3D 31 36 2A 77 20 2B 20 |x=%b.c:p=16*w + | 00000700: 78 0D 67 3A 6D 33 32 2C 31 32 30 3B 74 0D 74 3A |x.g:m32,120;t.t:| 00000710: 23 70 20 20 0D 67 3A 6D 32 39 36 2C 31 33 36 3B |#p .g:m296,136;| 00000720: 74 0D 61 3A 0D 63 28 25 62 3C 3E 63 68 72 28 30 |t.a:.c(%b<>chr(0| 00000730: 29 29 3A 77 3D 25 62 0D 67 3A 6D 32 39 36 2C 31 |)):w=%b.g:m296,1| 00000740: 32 38 3B 74 0D 61 3A 0D 63 28 25 62 3C 3E 63 68 |28;t.a:.c(%b<>ch| 00000750: 72 28 30 29 29 3A 78 3D 25 62 0D 63 3A 71 3D 31 |r(0)):x=%b.c:q=1| 00000760: 36 2A 77 20 2B 20 78 0D 67 3A 6D 33 32 2C 31 31 |6*w + x.g:m32,11| 00000770: 32 3B 74 0D 74 3A 23 71 0D 67 3A 6D 33 32 2C 31 |2;t.t:#q.g:m32,1| 00000780: 30 34 3B 74 0D 61 3A 0D 63 28 25 62 3C 3E 63 68 |04;t.a:.c(%b<>ch| 00000790: 72 28 30 29 29 3A 72 3D 25 62 0D 67 3A 6D 33 32 |r(0)):r=%b.g:m32| 000007A0: 2C 39 36 3B 74 0D 61 3A 0D 63 28 25 62 3C 3E 63 |,96;t.a:.c(%b<>c| 000007B0: 68 72 28 30 29 29 3A 73 3D 25 62 0D 67 3A 6D 32 |hr(0)):s=%b.g:m2| 000007C0: 34 30 2C 39 36 3B 74 0D 61 73 3A 0D 63 28 25 62 |40,96;t.as:.c(%b| 000007D0: 3C 3E 63 68 72 28 31 33 29 29 3A 79 24 28 31 29 |<>chr(13)):y$(1)| 000007E0: 3D 25 62 0D 63 3A 79 24 28 32 2C 36 29 3D 22 31 |=%b.c:y$(2,6)="1| 000007F0: 31 31 31 31 31 22 0D 67 3A 6D 33 30 34 2C 39 36 |11111".g:m304,96| 00000800: 3B 74 0D 61 73 3A 0D 63 28 25 62 3C 3E 31 29 3A |;t.as:.c(%b<>1):| 00000810: 79 24 28 32 29 3D 30 0D 67 3A 6D 32 34 30 2C 38 |y$(2)=0.g:m240,8| 00000820: 38 3B 74 0D 61 73 3A 0D 63 28 25 62 3C 3E 31 29 |8;t.as:.c(%b<>1)| 00000830: 3A 79 24 28 33 29 3D 30 0D 67 3A 6D 33 30 34 2C |:y$(3)=0.g:m304,| 00000840: 38 38 3B 74 0D 61 73 3A 0D 63 28 25 62 3C 3E 31 |88;t.as:.c(%b<>1| 00000850: 29 3A 79 24 28 34 29 3D 30 0D 67 3A 6D 32 34 30 |):y$(4)=0.g:m240| 00000860: 2C 38 30 3B 74 0D 61 73 3A 0D 63 28 25 62 3C 3E |,80;t.as:.c(%b<>| 00000870: 31 29 3A 79 24 28 35 29 3D 30 0D 67 3A 6D 33 30 |1):y$(5)=0.g:m30| 00000880: 34 2C 38 30 3B 74 0D 61 73 3A 0D 63 28 25 62 3C |4,80;t.as:.c(%b<| 00000890: 3E 31 29 3A 79 24 28 36 29 3D 30 0D 67 3A 6D 32 |>1):y$(6)=0.g:m2| 000008A0: 34 30 2C 37 32 3B 74 0D 61 73 3A 0D 63 28 25 62 |40,72;t.as:.c(%b| 000008B0: 3C 3E 31 29 3A 79 24 28 37 29 3D 30 0D 63 3A 74 |<>1):y$(7)=0.c:t| 000008C0: 3D 31 36 2A 6A 20 2B 20 79 24 28 31 29 0D 63 28 |=16*j + y$(1).c(| 000008D0: 25 62 3C 3E 63 68 72 28 30 29 29 3A 76 3D 25 62 |%b<>chr(0)):v=%b| 000008E0: 0D 63 3A 76 20 3D 20 28 76 2F 32 29 2A 32 0D 63 |.c:v = (v/2)*2.c| 000008F0: 3A 30 20 3D 20 76 2B 32 2A 79 24 28 36 29 2B 34 |:0 = v+2*y$(6)+4| 00000900: 2A 79 24 28 37 29 2A 79 28 34 29 2B 31 36 2A 79 |*y$(7)*y(4)+16*y| 00000910: 28 35 29 2B 69 0D 67 3A 6D 33 32 2C 31 32 38 3B |(5)+i.g:m32,128;| 00000920: 74 0D 74 3A 23 30 20 20 0D 63 3A 79 24 28 68 2A |t.t:#0 .c:y$(h*| 00000930: 32 31 2D 31 33 2C 33 29 3D 6B 0D 63 3A 79 24 28 |21-13,3)=k.c:y$(| 00000940: 68 2A 32 31 2D 31 30 2C 33 29 3D 6C 0D 63 3A 79 |h*21-10,3)=l.c:y| 00000950: 24 28 68 2A 32 31 2D 37 2C 33 29 3D 6D 0D 63 3A |$(h*21-7,3)=m.c:| 00000960: 79 24 28 68 2A 32 31 2D 34 2C 33 29 3D 6E 0D 63 |y$(h*21-4,3)=n.c| 00000970: 3A 79 24 28 68 2A 32 31 2D 31 2C 33 29 3D 6F 0D |:y$(h*21-1,3)=o.| 00000980: 63 3A 79 24 28 68 2A 32 31 2B 32 2C 33 29 3D 70 |c:y$(h*21+2,3)=p| 00000990: 0D 63 3A 79 24 28 68 2A 32 31 2B 35 2C 33 29 3D |.c:y$(h*21+5,3)=| 000009A0: 71 0D 74 73 3A 4E 6F 77 20 77 65 27 6C 6C 20 73 |q.ts:Now we'll s| 000009B0: 65 74 20 74 68 6F 73 65 2E 0D 76 3A 61 2C 6B 3B |et those..v:a,k;| 000009C0: 62 2C 6C 3B 63 2C 6D 3B 64 2C 6E 3B 66 2C 70 3B |b,l;c,m;d,n;f,p;| 000009D0: 67 2C 71 3B 32 31 2C 72 3B 32 32 2C 73 0D 76 3A |g,q;21,r;22,s.v:| 000009E0: 32 33 2C 74 3B 32 34 2C 75 0D 63 3A 77 3D 79 24 |23,t;24,u.c:w=y$| 000009F0: 28 32 30 2C 33 29 0D 63 3A 78 3D 79 24 28 34 31 |(20,3).c:x=y$(41| 00000A00: 2C 33 29 0D 63 3A 6F 3D 79 24 28 36 32 2C 33 29 |,3).c:o=y$(62,3)| 00000A10: 0D 74 3A 0D 3A 56 6F 69 63 65 73 20 74 6F 20 70 |.t:.:Voices to p| 00000A20: 6C 61 79 20 28 59 20 6F 72 20 4E 29 0D 74 68 3A |lay (Y or N).th:| 00000A30: 4E 75 6D 62 65 72 20 31 3F 0D 61 73 3A 0D 6D 3A |Number 1?.as:.m:| 00000A40: 59 21 79 0D 63 79 3A 77 3D 77 2B 31 0D 74 68 3A |Y!y.cy:w=w+1.th:| 00000A50: 20 20 4E 75 6D 62 65 72 20 32 3F 0D 61 73 3A 0D | Number 2?.as:.| 00000A60: 6D 3A 59 21 79 0D 63 79 3A 78 3D 78 2B 31 0D 74 |m:Y!y.cy:x=x+1.t| 00000A70: 68 3A 20 20 20 20 20 4E 75 6D 62 65 72 20 33 3F |h: Number 3?| 00000A80: 0D 61 73 3A 0D 6D 3A 59 21 79 0D 63 79 3A 6F 3D |.as:.m:Y!y.cy:o=| 00000A90: 6F 2B 31 0D 76 3A 34 2C 77 3B 31 31 2C 78 3B 31 |o+1.v:4,w;11,x;1| 00000AA0: 38 2C 30 0D 63 3A 77 3D 30 0D 77 3A 36 30 0D 76 |8,0.c:w=0.w:60.v| 00000AB0: 3A 34 2C 30 3B 31 31 2C 30 3B 31 38 2C 30 0D 63 |:4,0;11,0;18,0.c| 00000AC0: 3A 6F 20 3D 20 79 24 28 68 2A 32 31 2D 31 2C 33 |:o = y$(h*21-1,3| 00000AD0: 29 0D 6A 3A 6E 65 78 74 0D 00 |).j:next.. |
.PD:Y$(72).D:Z$(1).C:Y$="000000000000000
000000000".C:Y$=Y$!!Y$!!Y$.J:@P.*SCREEN
G:S0.TSH:VOICE(1-3) VOL(0-15) RES.
:(0-15).T:.:.T:REGISTER.: #A <- LOW
FREQ ATTACK(0-15).: #B <- HIGH
" DECAY (0-15).: #C <- LOW PUL
SE.: #D <- HIGH " SUSTAIN(0-15)
.: #E RELEASE(0-15).:
#F .: #G.: 21 <- CUT FREQ SWIT
CHES.: 22 <- HIGH " FILTER CU
T3.: 23 HIGH BAND
.: 24 LOW SYNC.:
RING.:.:
WAVEFORM.: NOISE 128
.: PULSE 64 SAWTOOTH 32 TRIANGLE 16.
G:S5.E:.*FILL.C:K=Y$(H*21-13,3).C:L=Y$(H
*21-10,3).C:M=Y$(H*21-7,3).C:N=Y$(H*21-4
,3).C:O=Y$(H*21-1,3).C:P=Y$(H*21+2,3).C:
Q=Y$(H*21+5,3).G:M88,184;T.T:#H .G:M192
,184;T.T:#I .G:M304,184;T.TH:#J .G:M32
,160;T.T:#K .G:M32,152;T.T:#L .G:M32,1
44;T.T:#M .G:M32,136;T.T:#N .G:M32,128
;T.T:#O .G:M32,120;T.T:#P .G:M32,112;T
.T:#Q .G:M32,104;T.T:#R .G:M32,96;T.T:
#S .G:M32,88;T.T:#T .G:M32,80;T.T:#U
.G:M184,56;T.T:#V .C:W=P/16.C:X=P-W*16.
G:M296,160;T.T:#W .G:M296,152;T.T:#X .
C:W=Q/16.C:X=Q-W*16.G:M296,136;T.T:#W .
G:M296,128;T.T:#X .G:M240,96;T.C:Z$=Y$(
1).T:$Z$ .G:M304,96;T.C:Z$=Y$(2).T:$Z$.
G:M240,88;T.C:Z$=Y$(3).T:$Z$ .G:M304,88
;T.C:Z$=Y$(4).T:$Z$ .G:M240,80;T.T:$Z$
.G:M304,80;T.C:Z$=Y$(6).T:$Z$ .G:M240,
72;T.C:Z$=Y$(7).T:$Z$.E:.PR:.THS: VOICE
NUMBER (1-3).J:NEXT1.*NEXT G:M88,184;T.
*NEXT1 AS:#H.J(H=0!H>3):NEXT.C:A=(H-1)*7
.C:B=A+1.C:C=A+2.C:D=A+3.C:E=A+4.C:F=A+5
.C:G=A+6.U:SCREEN.U:FILL.G:M192,184;T.A:
.C(%B<>CHR(0)):I=%B.G:M304,184;T.A:.C(%B
<>CHR(0)):J=%B.G:M32,160;T.A:.C(%B<>CHR(
0)):K=%B.G:M32,152;T.A:.C(%B<>CHR(0)):L=
%B.G:M32,144;T.A:.C(%B<>CHR(0)):M=%B.G:M
32,136;T.A:.C(%B<>CHR(0)):N=%B.G:M296,16
0;T.A:.C(%B<>CHR(0)):W=%B.G:M296,152;T.A
:.C(%B<>CHR(0)):X=%B.C:P=16*W + X.G:M32,
120;T.T:#P .G:M296,136;T.A:.C(%B<>CHR(0
)):W=%B.G:M296,128;T.A:.C(%B<>CHR(0)):X=
%B.C:Q=16*W + X.G:M32,112;T.T:#Q.G:M32,1
04;T.A:.C(%B<>CHR(0)):R=%B.G:M32,96;T.A:
.C(%B<>CHR(0)):S=%B.G:M240,96;T.AS:.C(%B
<>CHR(13)):Y$(1)=%B.C:Y$(2,6)="111111".G
:M304,96;T.AS:.C(%B<>1):Y$(2)=0.G:M240,8
8;T.AS:.C(%B<>1):Y$(3)=0.G:M304,88;T.AS:
.C(%B<>1):Y$(4)=0.G:M240,80;T.AS:.C(%B<>
1):Y$(5)=0.G:M304,80;T.AS:.C(%B<>1):Y$(6
)=0.G:M240,72;T.AS:.C(%B<>1):Y$(7)=0.C:T
=16*J + Y$(1).C(%B<>CHR(0)):V=%B.C:V = (
V/2)*2.C:0 = V+2*Y$(6)+4*Y$(7)*Y(4)+16*Y
(5)+I.G:M32,128;T.T:#0 .C:Y$(H*21-13,3)
=K.C:Y$(H*21-10,3)=L.C:Y$(H*21-7,3)=M.C:
Y$(H*21-4,3)=N.C:Y$(H*21-1,3)=O.C:Y$(H*2
1+2,3)=P.C:Y$(H*21+5,3)=Q.TS:NOW WE'LL S
ET THOSE..V:A,K;B,L;C,M;D,N;F,P;G,Q;21,R
;22,S.V:23,T;24,U.C:W=Y$(20,3).C:X=Y$(41
,3).C:O=Y$(62,3).T:.:VOICES TO PLAY (Y O
R N).TH:NUMBER 1?.AS:.M:Y!Y.CY:W=W+1.TH:
NUMBER 2?.AS:.M:Y!Y.CY:X=X+1.TH: N
UMBER 3?.AS:.M:Y!Y.CY:O=O+1.V:4,W;11,X;1
8,0.C:W=0.W:60.V:4,0;11,0;18,0.C:O = Y$(
H*21-1,3).J:NEXT..
> CLICK IMAGE PREVIEW FOR FULL MODAL