SX KERNAL
FILE INFORMATION
FILENAME(S): SX KERNAL
FILE TYPE(S): DEL
FILE SIZE: 11.7K
FIRST SEEN: 2025-11-30 21:24:59
APPEARS ON: 1 disk(s)
FILE HASH
e939238c7a4d9524c0dcba1728e7cd53977a11d231a013646470348d9e11a27c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL | SX KERNAL | DEL | DuncanTwain | 25 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 45 4D 45 4E 54 2E 0D 10 83 2D 2D 2D 2D 2D 2D 2D |EMENT....-------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 0D 2A 29 0D 0D 20 82 0D |--------.*).. ..|
00000030: 10 85 43 52 20 3D 20 31 33 3B 0D 10 85 48 4F 4D |..CR = 13;...HOM|
00000040: 45 20 3D 20 31 34 37 3B 0D 10 85 44 49 53 41 42 |E = 147;...DISAB|
00000050: 4C 45 5F 43 41 53 45 20 3D 20 38 3B 0D 10 85 50 |LE_CASE = 8;...P|
00000060: 45 52 49 4F 44 20 3D 20 31 30 30 3B 20 28 2A 20 |ERIOD = 100; (* |
00000070: 44 45 4D 4F 20 53 50 45 45 44 20 2A 29 0D 10 85 |DEMO SPEED *)...|
00000080: 54 52 55 45 20 3D 20 31 3B 10 82 46 41 4C 53 45 |TRUE = 1;..FALSE|
00000090: 20 3D 20 30 3B 0D 10 85 4F 4E 20 3D 20 54 52 55 | = 0;...ON = TRU|
000000A0: 45 3B 20 4F 46 46 20 3D 20 46 41 4C 53 45 3B 0D |E; OFF = FALSE;.|
000000B0: 0D 28 2A 2D 2D 2D 2D 2D 20 E2 43 4F 4E 53 54 41 |.(*----- .CONSTA|
000000C0: 4E 54 53 20 2D 2D 2D 2D 2D 2D 2A 29 0D 10 85 43 |NTS ------*)...C|
000000D0: 4F 4C 4F 55 52 20 3D 20 31 3B 0D 10 85 50 4F 49 |OLOUR = 1;...POI|
000000E0: 4E 54 49 54 20 3D 20 32 3B 0D 10 85 45 58 50 41 |NTIT = 2;...EXPA|
000000F0: 4E 44 58 20 3D 20 34 3B 0D 10 85 45 58 50 41 4E |NDX = 4;...EXPAN|
00000100: 44 59 20 3D 20 35 3B 0D 10 85 42 45 48 49 4E 44 |DY = 5;...BEHIND|
00000110: 42 4B 20 3D 20 36 3B 0D 10 85 41 43 54 49 56 45 |BK = 6;...ACTIVE|
00000120: 20 3D 20 37 3B 0D 0D 10 85 42 4F 52 44 45 52 20 | = 7;....BORDER |
00000130: 3D 20 31 31 3B 0D 10 85 42 41 43 4B 47 4E 44 20 |= 11;...BACKGND |
00000140: 3D 20 31 32 3B 0D 10 85 43 48 41 52 43 4F 4C 4F |= 12;...CHARCOLO|
00000150: 55 52 20 3D 20 31 30 3B 0D 10 85 44 49 53 50 4C |UR = 10;...DISPL|
00000160: 41 59 53 43 52 45 45 4E 20 3D 20 36 3B 0D 10 85 |AYSCREEN = 6;...|
00000170: 42 49 54 4D 41 50 20 3D 20 31 3B 0D 10 85 4D 55 |BITMAP = 1;...MU|
00000180: 4C 54 49 43 4F 4C 4F 55 52 20 3D 20 32 3B 0D 10 |LTICOLOUR = 2;..|
00000190: 85 43 48 41 52 47 45 4E 42 41 53 45 20 3D 20 38 |.CHARGENBASE = 8|
000001A0: 3B 0D 0D 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;..(*-----------|
000001B0: 20 43 4F 4C 4F 55 52 53 20 2D 2D 2D 2D 2D 2D 2D | COLOURS -------|
000001C0: 2D 2D 2D 2A 29 0D 0D 10 85 42 4C 41 43 4B 20 3D |---*)....BLACK =|
000001D0: 20 30 3B 0D 10 85 57 48 49 54 45 20 3D 20 31 3B | 0;...WHITE = 1;|
000001E0: 0D 10 85 52 45 44 20 3D 20 32 3B 0D 10 85 43 59 |...RED = 2;...CY|
000001F0: 41 4E 20 3D 20 33 3B 0D 10 85 50 55 52 50 4C 45 |AN = 3;...PURPLE|
00000200: 20 3D 20 34 3B 0D 10 85 47 52 45 45 4E 20 3D 20 | = 4;...GREEN = |
00000210: 35 3B 0D 10 85 42 4C 55 45 20 3D 20 36 3B 0D 10 |5;...BLUE = 6;..|
00000220: 85 59 45 4C 4C 4F 57 20 3D 20 37 3B 0D 10 85 4F |.YELLOW = 7;...O|
00000230: 52 41 4E 47 45 20 3D 20 38 3B 0D 10 85 42 52 4F |RANGE = 8;...BRO|
00000240: 57 4E 20 3D 20 39 3B 0D 10 85 4C 49 47 48 54 5F |WN = 9;...LIGHT_|
00000250: 52 45 44 20 3D 20 31 30 3B 0D 10 85 44 41 52 4B |RED = 10;...DARK|
00000260: 5F 47 52 45 59 20 3D 20 31 31 3B 0D 10 85 4D 45 |_GREY = 11;...ME|
00000270: 44 49 55 4D 5F 47 52 45 59 20 3D 20 31 32 3B 0D |DIUM_GREY = 12;.|
00000280: 10 85 4C 49 47 48 54 5F 47 52 45 45 4E 20 3D 20 |..LIGHT_GREEN = |
00000290: 31 33 3B 0D 10 85 4C 49 47 48 54 5F 42 4C 55 45 |13;...LIGHT_BLUE|
000002A0: 20 3D 20 31 34 3B 0D 10 85 4C 49 47 48 54 5F 47 | = 14;...LIGHT_G|
000002B0: 52 45 59 20 3D 20 31 35 3B 0D 0D 0D 28 2A 2D 2D |REY = 15;...(*--|
000002C0: 2D 2D 2D 2D 2D 20 4E 4F 54 45 20 46 52 45 51 55 |----- NOTE FREQU|
000002D0: 45 4E 43 49 45 53 20 2D 2D 2D 2D 2D 2A 29 0D 0D |ENCIES -----*)..|
000002E0: 43 20 3D 20 33 34 33 33 34 3B 0D 44 20 3D 20 33 |C = 34334;.D = 3|
000002F0: 38 35 33 39 3B 0D 45 20 3D 20 34 33 32 35 38 3B |8539;.E = 43258;|
00000300: 0D 46 20 3D 20 34 35 38 33 30 3B 0D 46 53 20 3D |.F = 45830;.FS =|
00000310: 20 34 38 35 35 36 3B 0D 47 20 3D 20 35 31 34 34 | 48556;.G = 5144|
00000320: 33 3B 0D 41 20 3D 20 35 37 37 34 33 3B 0D 42 20 |3;.A = 57743;.B |
00000330: 3D 20 36 34 38 31 34 3B 0D 0D 28 2A 2D 2D 2D 20 |= 64814;..(*--- |
00000340: E3 45 46 46 45 43 54 53 20 43 4F 4E 53 54 41 4E |.EFFECTS CONSTAN|
00000350: 54 53 20 2D 2D 2A 29 0D 0D 56 4F 4C 55 4D 45 20 |TS --*)..VOLUME |
00000360: 3D 20 34 3B 0D 43 55 54 4F 46 46 56 4F 49 43 45 |= 4;.CUTOFFVOICE|
00000370: 33 20 3D 20 39 3B 0D 46 52 45 51 55 45 4E 43 59 |3 = 9;.FREQUENCY|
00000380: 20 3D 20 31 3B 0D 41 54 54 41 43 4B 20 3D 20 34 | = 1;.ATTACK = 4|
00000390: 3B 0D 44 45 43 41 59 20 3D 20 35 3B 0D 53 55 53 |;.DECAY = 5;.SUS|
000003A0: 54 41 49 4E 20 3D 20 36 3B 0D 52 45 4C 45 41 53 |TAIN = 6;.RELEAS|
000003B0: 45 20 3D 20 37 3B 0D 50 4C 41 59 49 54 20 3D 20 |E = 7;.PLAYIT = |
000003C0: 38 3B 0D 54 52 49 41 4E 47 4C 45 20 3D 20 31 31 |8;.TRIANGLE = 11|
000003D0: 3B 0D 53 41 57 54 4F 4F 54 48 20 3D 20 31 32 3B |;.SAWTOOTH = 12;|
000003E0: 0D 4E 4F 49 53 45 20 3D 20 31 34 3B 0D 0D 28 2A |.NOISE = 14;..(*|
000003F0: 2D 2D 2D 2D 20 47 4C 4F 42 41 4C 20 56 41 52 49 |---- GLOBAL VARI|
00000400: 41 42 4C 45 53 20 2D 2D 2D 2D 2D 2A 29 0D 0D 83 |ABLES -----*)...|
00000410: 49 2C 4A 2C 0D 10 84 47 50 41 53 43 41 4C 5F 43 |I,J,...GPASCAL_C|
00000420: 4F 4C 4F 55 52 2C 0D 10 84 52 4F 55 4E 44 20 3A |OLOUR,...ROUND :|
00000430: 20 FE 3B 0D 10 84 50 4F 49 4E 54 2C 0D 10 84 53 | .;...POINT,...S|
00000440: 43 4F 4C 2C 0D 10 84 50 4F 53 4E 20 3A 20 84 5B |COL,...POSN : .[|
00000450: 38 5D 20 85 FE 3B 0D 0D 86 53 45 54 5F 43 4F 4C |8] ..;...SET_COL|
00000460: 4F 55 52 53 20 28 42 41 43 4B 2C 46 4F 52 45 29 |OURS (BACK,FORE)|
00000470: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000490: 2A 2A 2A 29 0D 88 0D 10 82 E2 28 42 4F 52 44 45 |***)......(BORDE|
000004A0: 52 2C 20 42 41 43 4B 2C 0D 10 8C 42 41 43 4B 47 |R, BACK,...BACKG|
000004B0: 4E 44 2C 20 42 41 43 4B 2C 0D 10 8C 43 48 41 52 |ND, BACK,...CHAR|
000004C0: 43 4F 4C 4F 55 52 2C 20 46 4F 52 45 29 0D 89 3B |COLOUR, FORE)..;|
000004D0: 0D 0D 86 49 4E 49 54 3B 0D 28 2A 2A 2A 2A 2A 2A |...INIT;.(******|
000004E0: 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 28 2A 2D 2D 2D |*******)...(*---|
000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000500: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D A8 54 48 |------------..TH|
00000510: 45 20 53 43 52 45 45 4E 2C 20 53 45 54 20 42 41 |E SCREEN, SET BA|
00000520: 43 4B 47 52 4F 55 4E 44 0D 8D 42 4F 52 44 45 52 |CKGROUND..BORDER|
00000530: 20 9B 42 4C 41 43 4B 2C 20 44 49 53 41 42 4C 45 | .BLACK, DISABLE|
00000540: 20 95 0D 53 48 49 46 54 49 4E 47 20 28 41 53 20 | ..SHIFTING (AS |
00000550: 54 45 58 54 20 49 53 20 49 4E 20 55 50 50 45 52 |TEXT IS IN UPPER|
00000560: 20 8D 0D 4C 4F 57 45 52 20 95 29 2C 20 8D 44 45 | ..LOWER .), .DE|
00000570: 46 49 4E 45 20 4F 55 52 0D DF 53 48 41 50 45 53 |FINE OUR..SHAPES|
00000580: 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..--------------|
00000590: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000005A0: 2D 2D 2A 29 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B |--*)..(.(HOME));|
000005B0: 0D A3 28 32 34 2C 31 29 3B 0D 53 45 54 5F 43 4F |..(24,1);.SET_CO|
000005C0: 4C 4F 55 52 53 20 28 42 4C 41 43 4B 2C 20 57 48 |LOURS (BLACK, WH|
000005D0: 49 54 45 29 3B 0D 9D 28 AB 28 44 49 53 41 42 4C |ITE);..(.(DISABL|
000005E0: 45 5F 43 41 53 45 29 29 3B 0D A5 28 31 32 38 2C |E_CASE));..(128,|
000005F0: 10 82 28 2A 10 82 27 47 27 10 82 2A 29 0D 10 82 |..(*..'G'..*)...|
00000600: 24 46 46 46 46 46 30 2C 20 24 43 30 30 30 33 30 |$FFFFF0, $C00030|
00000610: 2C 20 24 43 46 46 46 46 30 2C 0D 10 82 24 43 43 |, $CFFFF0,...$CC|
00000620: 30 30 30 30 2C 20 24 43 43 30 30 30 30 2C 20 24 |0000, $CC0000, $|
00000630: 43 43 30 30 30 30 2C 0D 10 82 24 43 43 33 46 46 |CC0000,...$CC3FF|
00000640: 30 2C 20 24 43 43 33 30 33 30 2C 20 24 43 43 33 |0, $CC3030, $CC3|
00000650: 46 33 30 2C 0D 10 82 24 43 43 30 33 33 30 2C 20 |F30,...$CC0330, |
00000660: 24 43 43 30 33 33 30 2C 20 24 43 46 46 46 33 30 |$CC0330, $CFFF30|
00000670: 2C 0D 10 82 24 43 30 30 30 33 30 2C 20 24 46 46 |,...$C00030, $FF|
00000680: 46 46 46 30 29 3B 0D A5 28 31 32 39 2C 10 82 28 |FFF0);..(129,..(|
00000690: 2A 10 82 27 2D 27 10 82 2A 29 0D 10 82 30 2C 30 |*..'-'..*)...0,0|
000006A0: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 0D 10 82 24 46 |,0,0,0,0,0,...$F|
000006B0: 46 30 30 30 30 2C 20 24 43 33 30 30 30 30 2C 20 |F0000, $C30000, |
000006C0: 24 46 46 30 30 30 30 29 3B 0D A5 28 31 33 30 2C |$FF0000);..(130,|
000006D0: 10 82 28 2A 10 82 27 50 27 10 82 2A 29 0D 10 82 |..(*..'P'..*)...|
000006E0: 24 46 46 46 46 46 30 2C 20 24 43 30 30 30 33 30 |$FFFFF0, $C00030|
000006F0: 2C 20 24 43 46 46 46 33 30 2C 0D 10 82 24 43 43 |, $CFFF30,...$CC|
00000700: 30 33 33 30 2C 20 24 43 43 30 33 33 30 2C 20 24 |0330, $CC0330, $|
00000710: 43 43 30 33 33 30 2C 0D 10 82 24 43 46 46 46 33 |CC0330,...$CFFF3|
00000720: 30 2C 20 24 43 30 30 30 33 30 2C 20 24 43 46 46 |0, $C00030, $CFF|
00000730: 46 46 30 2C 0D 10 82 24 43 43 30 30 30 30 2C 20 |FF0,...$CC0000, |
00000740: 24 43 43 30 30 30 30 2C 20 24 43 43 30 30 30 30 |$CC0000, $CC0000|
00000750: 2C 0D 10 82 24 43 43 30 30 30 30 2C 20 24 46 43 |,...$CC0000, $FC|
00000760: 30 30 30 30 29 3B 0D A5 28 31 33 31 2C 10 82 28 |0000);..(131,..(|
00000770: 2A 10 82 27 41 27 10 82 2A 29 0D 10 82 24 46 46 |*..'A'..*)...$FF|
00000780: 46 46 46 30 2C 20 24 43 30 30 30 33 30 2C 20 24 |FFF0, $C00030, $|
00000790: 43 46 46 46 33 30 2C 0D 10 82 24 43 43 30 33 33 |CFFF30,...$CC033|
000007A0: 30 2C 20 24 43 43 30 33 33 30 2C 20 24 43 43 30 |0, $CC0330, $CC0|
000007B0: 33 33 30 2C 0D 10 82 24 43 43 30 33 33 30 2C 20 |330,...$CC0330, |
000007C0: 24 43 46 46 46 33 30 2C 20 24 43 30 30 30 33 30 |$CFFF30, $C00030|
000007D0: 2C 0D 10 82 24 43 46 46 46 33 30 2C 20 24 43 43 |,...$CFFF30, $CC|
000007E0: 30 33 33 30 2C 20 24 43 43 30 33 33 30 2C 0D 10 |0330, $CC0330,..|
000007F0: 82 24 43 43 30 33 33 30 2C 20 24 46 43 30 33 46 |.$CC0330, $FC03F|
00000800: 30 29 3B 0D A5 28 31 33 32 2C 10 82 28 2A 10 82 |0);..(132,..(*..|
00000810: 27 53 27 10 82 2A 29 0D 10 82 24 46 46 46 46 46 |'S'..*)...$FFFFF|
00000820: 30 2C 20 24 43 30 30 30 33 30 2C 20 24 43 46 46 |0, $C00030, $CFF|
00000830: 46 46 30 2C 0D 10 82 24 43 43 30 30 30 30 2C 20 |FF0,...$CC0000, |
00000840: 24 43 43 30 30 30 30 2C 20 24 43 46 46 46 46 30 |$CC0000, $CFFFF0|
00000850: 2C 0D 10 82 24 43 30 30 30 33 30 2C 20 24 46 46 |,...$C00030, $FF|
00000860: 46 46 33 30 2C 20 24 30 30 30 33 33 30 2C 0D 10 |FF30, $000330,..|
00000870: 82 24 30 30 30 33 33 30 2C 20 24 30 30 30 33 33 |.$000330, $00033|
00000880: 30 2C 20 24 46 46 46 46 33 30 2C 0D 10 82 24 43 |0, $FFFF30,...$C|
00000890: 30 30 30 33 30 2C 20 24 46 46 46 46 46 30 29 3B |00030, $FFFFF0);|
000008A0: 0D A5 28 31 33 33 2C 10 82 28 2A 10 82 27 43 27 |..(133,..(*..'C'|
000008B0: 10 82 2A 29 0D 10 82 24 46 46 46 46 43 30 2C 20 |..*)...$FFFFC0, |
000008C0: 24 43 30 30 30 43 30 2C 20 24 43 46 46 46 43 30 |$C000C0, $CFFFC0|
000008D0: 2C 0D 10 82 24 43 43 30 30 30 30 2C 20 24 43 43 |,...$CC0000, $CC|
000008E0: 30 30 30 30 2C 20 24 43 43 30 30 30 30 2C 0D 10 |0000, $CC0000,..|
000008F0: 82 24 43 43 30 30 30 30 2C 20 24 43 43 30 30 30 |.$CC0000, $CC000|
00000900: 30 2C 20 24 43 43 30 30 30 30 2C 0D 10 82 24 43 |0, $CC0000,...$C|
00000910: 43 30 30 30 30 2C 20 24 43 43 30 30 30 30 2C 20 |C0000, $CC0000, |
00000920: 24 43 46 46 46 43 30 2C 0D 10 82 24 43 30 30 30 |$CFFFC0,...$C000|
00000930: 43 30 2C 20 24 46 46 46 46 43 30 29 3B 0D A5 28 |C0, $FFFFC0);..(|
00000940: 31 33 34 2C 10 82 28 2A 10 82 27 4C 27 10 82 2A |134,..(*..'L'..*|
00000950: 29 0D 10 82 24 46 43 30 30 30 30 2C 20 24 43 43 |)...$FC0000, $CC|
00000960: 30 30 30 30 2C 20 24 43 43 30 30 30 30 2C 0D 10 |0000, $CC0000,..|
00000970: 82 24 43 43 30 30 30 30 2C 20 24 43 43 30 30 30 |.$CC0000, $CC000|
00000980: 30 2C 20 24 43 43 30 30 30 30 2C 0D 10 82 24 43 |0, $CC0000,...$C|
00000990: 43 30 30 30 30 2C 20 24 43 43 30 30 30 30 2C 20 |C0000, $CC0000, |
000009A0: 24 43 43 30 30 30 30 2C 0D 10 82 24 43 43 30 30 |$CC0000,...$CC00|
000009B0: 30 30 2C 20 24 43 43 30 30 30 30 2C 20 24 43 46 |00, $CC0000, $CF|
000009C0: 46 46 30 30 2C 0D 10 82 24 43 30 30 33 30 30 2C |FF00,...$C00300,|
000009D0: 20 24 46 46 46 46 30 30 29 3B 0D A5 28 31 33 35 | $FFFF00);..(135|
000009E0: 2C 10 82 28 2A 10 82 4D 41 4E 20 31 20 2A 29 0D |,..(*..MAN 1 *).|
000009F0: 10 82 30 2C 0D 10 82 24 30 30 38 30 30 30 2C 20 |..0,...$008000, |
00000A00: 24 30 31 43 30 30 30 2C 20 24 30 31 43 30 30 30 |$01C000, $01C000|
00000A10: 2C 0D 10 82 24 30 31 38 30 30 30 2C 20 24 30 33 |,...$018000, $03|
00000A20: 38 30 30 30 2C 20 24 30 37 38 30 30 30 2C 0D 10 |8000, $078000,..|
00000A30: 82 24 30 33 36 30 30 30 2C 20 24 30 33 38 30 30 |.$036000, $03800|
00000A40: 30 2C 20 24 30 36 43 30 30 30 2C 0D 10 82 24 30 |0, $06C000,...$0|
00000A50: 36 43 30 30 30 29 3B 0D A5 28 31 33 36 2C 10 82 |6C000);..(136,..|
00000A60: 28 2A 10 82 4D 41 4E 20 32 20 2A 29 0D 10 82 24 |(*..MAN 2 *)...$|
00000A70: 30 30 38 30 30 30 2C 20 24 30 31 43 30 30 30 2C |008000, $01C000,|
00000A80: 20 24 30 31 43 30 30 30 2C 0D 10 82 24 30 46 38 | $01C000,...$0F8|
00000A90: 30 30 30 2C 20 24 30 39 46 30 30 30 2C 20 24 30 |000, $09F000, $0|
00000AA0: 33 30 30 30 30 2C 0D 10 82 24 30 33 30 30 30 30 |30000,...$030000|
00000AB0: 2C 20 24 30 37 43 30 30 30 2C 20 24 30 45 45 30 |, $07C000, $0EE0|
00000AC0: 30 30 2C 0D 10 82 24 31 43 36 30 30 30 2C 20 24 |00,...$1C6000, $|
00000AD0: 31 38 30 30 30 30 29 3B 0D A5 28 31 33 37 2C 10 |180000);..(137,.|
00000AE0: 82 28 2A 10 82 4D 41 4E 20 33 20 2A 29 0D 10 82 |.(*..MAN 3 *)...|
00000AF0: 30 2C 0D 10 82 24 30 30 38 30 30 30 2C 20 24 30 |0,...$008000, $0|
00000B00: 31 43 30 30 30 2C 20 24 30 31 43 30 30 30 2C 0D |1C000, $01C000,.|
00000B10: 10 82 24 30 37 38 30 30 30 2C 20 24 30 39 43 30 |..$078000, $09C0|
00000B20: 30 30 2C 20 24 31 33 33 30 30 30 2C 0D 10 82 24 |00, $133000,...$|
00000B30: 30 33 30 30 30 30 2C 20 24 30 33 38 30 30 30 2C |030000, $038000,|
00000B40: 20 24 31 45 45 30 30 30 2C 0D 10 82 24 30 30 36 | $1EE000,...$006|
00000B50: 30 30 30 2C 20 24 30 30 36 30 30 30 29 3B 0D A5 |000, $006000);..|
00000B60: 28 31 33 38 2C 10 82 28 2A 10 82 4D 41 4E 20 34 |(138,..(*..MAN 4|
00000B70: 20 2A 29 0D 10 82 24 30 30 38 30 30 30 2C 20 24 | *)...$008000, $|
00000B80: 30 31 43 30 30 30 2C 20 24 30 31 43 30 30 30 2C |01C000, $01C000,|
00000B90: 0D 10 82 24 30 30 38 30 30 30 2C 20 24 30 33 45 |...$008000, $03E|
00000BA0: 30 30 30 2C 20 24 30 35 44 30 30 30 2C 0D 10 82 |000, $05D000,...|
00000BB0: 24 30 35 44 30 30 30 2C 20 24 30 35 44 30 30 30 |$05D000, $05D000|
00000BC0: 2C 20 24 30 31 43 30 30 30 2C 0D 10 82 24 30 31 |, $01C000,...$01|
00000BD0: 34 30 30 30 2C 20 24 30 31 34 30 30 30 2C 20 24 |4000, $014000, $|
00000BE0: 30 33 36 30 30 30 29 3B 0D A5 28 31 33 39 2C 10 |036000);..(139,.|
00000BF0: 82 28 2A 10 82 4D 41 4E 20 35 20 2A 29 0D 10 82 |.(*..MAN 5 *)...|
00000C00: 24 30 30 38 30 30 30 2C 20 24 30 31 43 30 30 30 |$008000, $01C000|
00000C10: 2C 20 24 30 31 43 30 30 30 2C 0D 10 82 24 30 30 |, $01C000,...$00|
00000C20: 38 30 30 30 2C 20 24 30 33 45 30 30 30 2C 20 24 |8000, $03E000, $|
00000C30: 30 35 44 30 30 30 2C 0D 10 82 24 30 31 44 30 30 |05D000,...$01D00|
00000C40: 30 2C 20 24 30 31 43 30 30 30 2C 20 24 30 31 34 |0, $01C000, $014|
00000C50: 30 30 30 2C 0D 10 82 24 30 31 36 30 30 30 2C 20 |000,...$016000, |
00000C60: 24 30 31 30 30 30 30 2C 20 24 30 33 30 30 30 30 |$010000, $030000|
00000C70: 29 3B 0D A5 28 31 34 30 2C 10 82 28 2A 10 82 4D |);..(140,..(*..M|
00000C80: 41 4E 20 36 20 2A 29 0D 10 82 24 30 30 38 30 30 |AN 6 *)...$00800|
00000C90: 30 2C 20 24 30 31 43 30 30 30 2C 20 24 30 31 43 |0, $01C000, $01C|
00000CA0: 30 30 30 2C 0D 10 82 24 30 30 38 30 30 30 2C 20 |000,...$008000, |
00000CB0: 24 30 33 45 30 30 30 2C 20 24 30 35 44 30 30 30 |$03E000, $05D000|
00000CC0: 2C 0D 10 82 24 30 35 43 30 30 30 2C 20 24 30 31 |,...$05C000, $01|
00000CD0: 43 30 30 30 2C 20 24 30 31 34 30 30 30 2C 0D 10 |C000, $014000,..|
00000CE0: 82 24 30 33 34 30 30 30 2C 20 24 30 30 34 30 30 |.$034000, $00400|
00000CF0: 30 2C 20 24 30 30 36 30 30 30 29 3B 0D A5 28 33 |0, $006000);..(3|
00000D00: 32 2C 10 82 28 2A 20 42 41 54 20 31 20 2A 29 0D |2,..(* BAT 1 *).|
00000D10: 10 82 24 30 32 30 34 30 2C 20 24 30 46 36 46 30 |..$02040, $0F6F0|
00000D20: 2C 20 24 33 46 46 46 43 2C 0D 10 82 24 36 46 46 |, $3FFFC,...$6FF|
00000D30: 46 36 2C 20 24 38 35 46 41 31 2C 20 24 30 30 36 |F6, $85FA1, $006|
00000D40: 30 30 29 3B 0D A5 28 33 33 2C 10 82 28 2A 20 42 |00);..(33,..(* B|
00000D50: 41 54 20 32 20 2A 29 0D 10 82 24 30 32 30 34 30 |AT 2 *)...$02040|
00000D60: 2C 20 24 30 36 36 36 30 2C 20 24 30 36 46 36 30 |, $06660, $06F60|
00000D70: 2C 0D 10 82 24 30 46 46 46 30 2C 20 24 31 33 46 |,...$0FFF0, $13F|
00000D80: 43 38 2C 20 24 30 30 36 30 30 29 3B 0D A5 28 33 |C8, $00600);..(3|
00000D90: 34 2C 10 82 28 2A 20 42 41 54 20 33 20 2A 29 0D |4,..(* BAT 3 *).|
00000DA0: 10 82 24 30 31 30 38 30 2C 20 24 30 33 36 43 30 |..$01080, $036C0|
00000DB0: 2C 20 24 30 33 46 43 30 2C 0D 10 82 24 30 35 46 |, $03FC0,...$05F|
00000DC0: 41 30 2C 20 24 30 31 36 38 30 2C 20 24 30 30 36 |A0, $01680, $006|
00000DD0: 30 30 29 3B 0D 89 3B 0D 0D 0D 86 50 41 55 53 45 |00);..;....PAUSE|
00000DE0: 20 28 58 29 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A | (X);.(*********|
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 10 82 E3 |*********)......|
00000E00: 28 33 2C 20 58 29 0D 89 3B 0D 0D 86 53 4C 4F 57 |(3, X)..;...SLOW|
00000E10: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
00000E20: 29 0D 88 0D 10 82 50 41 55 53 45 20 28 50 45 52 |).....PAUSE (PER|
00000E30: 49 4F 44 29 3B 0D 10 82 FF 0D 89 3B 0D 0D 86 46 |IOD);......;...F|
00000E40: 41 4E 43 59 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A |ANCY;.(*********|
00000E50: 2A 2A 2A 2A 2A 29 0D 83 49 2C 20 58 20 3A 20 FE |*****)..I, X : .|
00000E60: 3B 0D 88 0D 10 82 47 50 41 53 43 41 4C 5F 43 4F |;.....GPASCAL_CO|
00000E70: 4C 4F 55 52 20 3A 3D 20 47 50 41 53 43 41 4C 5F |LOUR := GPASCAL_|
00000E80: 43 4F 4C 4F 55 52 0D 10 94 2B 20 31 3B 0D 10 82 |COLOUR...+ 1;...|
00000E90: 95 47 50 41 53 43 41 4C 5F 43 4F 4C 4F 55 52 20 |.GPASCAL_COLOUR |
00000EA0: 8C 37 20 85 0D 10 83 30 3A 20 58 20 3A 3D 20 57 |.7 ....0: X := W|
00000EB0: 48 49 54 45 3B 0D 10 83 31 3A 20 58 20 3A 3D 20 |HITE;...1: X := |
00000EC0: 43 59 41 4E 3B 0D 10 83 32 3A 20 58 20 3A 3D 20 |CYAN;...2: X := |
00000ED0: 59 45 4C 4C 4F 57 3B 0D 10 83 33 3A 20 58 20 3A |YELLOW;...3: X :|
00000EE0: 3D 20 4D 45 44 49 55 4D 5F 47 52 45 59 3B 0D 10 |= MEDIUM_GREY;..|
00000EF0: 83 34 3A 20 58 20 3A 3D 20 4C 49 47 48 54 5F 47 |.4: X := LIGHT_G|
00000F00: 52 45 45 4E 3B 0D 10 83 35 3A 20 58 20 3A 3D 20 |REEN;...5: X := |
00000F10: 4C 49 47 48 54 5F 42 4C 55 45 3B 0D 10 83 36 3A |LIGHT_BLUE;...6:|
00000F20: 20 58 20 3A 3D 20 4C 49 47 48 54 5F 47 52 45 59 | X := LIGHT_GREY|
00000F30: 0D 10 82 89 3B 0D 10 82 9A 49 20 3A 3D 20 31 20 |....;....I := 1 |
00000F40: 9B 38 20 97 0D 10 85 DF 28 49 2C 20 43 4F 4C 4F |.8 .....(I, COLO|
00000F50: 55 52 2C 20 58 29 3B 0D 10 82 53 4C 4F 57 0D 89 |UR, X);...SLOW..|
00000F60: 3B 0D 0D 86 50 4C 41 59 20 28 56 43 2C 20 4E 4F |;...PLAY (VC, NO|
00000F70: 54 45 2C 20 4C 45 4E 47 54 48 29 3B 0D 28 2A 2A |TE, LENGTH);.(**|
00000F80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D |**************).|
00000FA0: 88 0D E1 28 56 43 2C 20 50 4C 41 59 49 54 2C 20 |...(VC, PLAYIT, |
00000FB0: 4F 46 46 2C 0D 10 87 56 43 2C 20 46 52 45 51 55 |OFF,...VC, FREQU|
00000FC0: 45 4E 43 59 2C 20 4E 4F 54 45 20 8F 32 2C 0D 10 |ENCY, NOTE .2,..|
00000FD0: 87 56 43 2C 20 50 4C 41 59 49 54 2C 20 4F 4E 29 |.VC, PLAYIT, ON)|
00000FE0: 3B 0D 92 4C 45 4E 47 54 48 20 3E 20 30 20 93 0D |;..LENGTH > 0 ..|
00000FF0: 10 82 50 41 55 53 45 20 28 4C 45 4E 47 54 48 20 |..PAUSE (LENGTH |
00001000: 2A 20 32 35 29 0D 89 3B 0D 0D 86 54 55 4E 45 3B |* 25)..;...TUNE;|
00001010: 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 |.(*************)|
00001020: 0D 88 0D 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...(*-----------|
00001030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D D0 4C 41 59 20 |----------..LAY |
00001040: 4F 55 52 20 C2 41 43 48 20 50 49 45 43 45 2E 0D |OUR .ACH PIECE..|
00001050: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001060: 2D 2D 2D 2D 2D 2A 29 0D E3 28 56 4F 4C 55 4D 45 |-----*)..(VOLUME|
00001070: 2C 20 31 35 29 3B 0D 50 41 55 53 45 20 28 32 30 |, 15);.PAUSE (20|
00001080: 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 33 20 97 0D |);..I := 1 .3 ..|
00001090: 10 82 E1 28 49 2C 20 41 54 54 41 43 4B 2C 20 32 |...(I, ATTACK, 2|
000010A0: 2C 0D 10 89 49 2C 20 44 45 43 41 59 2C 20 31 30 |,...I, DECAY, 10|
000010B0: 2C 0D 10 89 49 2C 20 53 55 53 54 41 49 4E 2C 20 |,...I, SUSTAIN, |
000010C0: 31 30 2C 0D 10 89 49 2C 20 52 45 4C 45 41 53 45 |10,...I, RELEASE|
000010D0: 2C 20 32 2C 0D 10 89 49 2C 20 54 52 49 41 4E 47 |, 2,...I, TRIANG|
000010E0: 4C 45 2C 20 4F 4E 29 3B 0D 0D 9A 52 4F 55 4E 44 |LE, ON);...ROUND|
000010F0: 20 3A 3D 20 31 20 9B 32 20 97 0D 88 0D 0D 10 82 | := 1 .2 .......|
00001100: 28 2A 10 82 42 41 52 20 31 10 82 2A 29 0D 10 82 |(*..BAR 1..*)...|
00001110: 50 4C 41 59 20 28 31 2C 20 44 2C 20 30 29 3B 0D |PLAY (1, D, 0);.|
00001120: 10 82 50 4C 41 59 20 28 32 2C 20 42 20 8F 32 2C |..PLAY (2, B .2,|
00001130: 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 33 2C 20 | 0);...PLAY (3, |
00001140: 47 20 8F 32 2C 20 32 29 3B 0D 10 82 50 4C 41 59 |G .2, 2);...PLAY|
00001150: 20 28 31 2C 20 47 20 8F 31 2C 20 31 29 3B 0D 10 | (1, G .1, 1);..|
00001160: 82 50 4C 41 59 20 28 31 2C 20 41 20 8F 31 2C 20 |.PLAY (1, A .1, |
00001170: 31 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 42 |1);...PLAY (1, B|
00001180: 20 8F 31 2C 20 30 29 3B 0D 10 82 50 4C 41 59 20 | .1, 0);...PLAY |
00001190: 28 32 2C 20 41 20 8F 32 2C 20 31 29 3B 0D 10 82 |(2, A .2, 1);...|
000011A0: 50 4C 41 59 20 28 31 2C 20 43 2C 20 31 29 3B 0D |PLAY (1, C, 1);.|
000011B0: 10 82 28 2A 10 82 42 41 52 20 32 10 82 2A 29 0D |..(*..BAR 2..*).|
000011C0: 10 82 E1 28 33 2C 20 50 4C 41 59 49 54 2C 20 4F |...(3, PLAYIT, O|
000011D0: 46 46 29 3B 0D 10 82 50 4C 41 59 20 28 32 2C 20 |FF);...PLAY (2, |
000011E0: 42 20 8F 32 2C 20 30 29 3B 0D 10 82 50 4C 41 59 |B .2, 0);...PLAY|
000011F0: 20 28 31 2C 20 44 2C 20 32 29 3B 0D 10 82 50 4C | (1, D, 2);...PL|
00001200: 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 32 29 3B |AY (1, G .1, 2);|
00001210: 0D 10 82 50 4C 41 59 20 28 31 2C 20 47 20 8F 31 |...PLAY (1, G .1|
00001220: 2C 20 32 29 3B 0D 10 82 28 2A 10 82 42 41 52 20 |, 2);...(*..BAR |
00001230: 33 10 82 2A 29 0D 10 82 50 4C 41 59 20 28 32 2C |3..*)...PLAY (2,|
00001240: 20 43 20 8F 31 2C 20 30 29 3B 0D 10 82 50 4C 41 | C .1, 0);...PLA|
00001250: 59 20 28 31 2C 20 45 2C 20 32 29 3B 0D 10 82 50 |Y (1, E, 2);...P|
00001260: 4C 41 59 20 28 31 2C 20 43 2C 20 31 29 3B 0D 10 |LAY (1, C, 1);..|
00001270: 82 50 4C 41 59 20 28 31 2C 20 44 2C 20 31 29 3B |.PLAY (1, D, 1);|
00001280: 0D 10 82 50 4C 41 59 20 28 31 2C 20 45 2C 20 31 |...PLAY (1, E, 1|
00001290: 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 46 53 |);...PLAY (1, FS|
000012A0: 2C 20 31 29 3B 0D 10 82 28 2A 10 82 42 41 52 20 |, 1);...(*..BAR |
000012B0: 34 10 82 2A 29 0D 10 82 50 4C 41 59 20 28 32 2C |4..*)...PLAY (2,|
000012C0: 20 42 20 8F 32 2C 20 30 29 3B 0D 10 82 50 4C 41 | B .2, 0);...PLA|
000012D0: 59 20 28 31 2C 20 47 2C 20 32 29 3B 0D 10 82 50 |Y (1, G, 2);...P|
000012E0: 4C 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 32 29 |LAY (1, G .1, 2)|
000012F0: 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 47 20 8F |;...PLAY (1, G .|
00001300: 31 2C 20 32 29 3B 0D 10 82 28 2A 10 82 42 41 52 |1, 2);...(*..BAR|
00001310: 20 35 10 82 2A 29 0D 10 82 50 4C 41 59 20 28 32 | 5..*)...PLAY (2|
00001320: 2C 20 41 20 8F 32 2C 20 30 29 3B 0D 10 82 50 4C |, A .2, 0);...PL|
00001330: 41 59 20 28 31 2C 20 43 2C 20 32 29 3B 0D 10 82 |AY (1, C, 2);...|
00001340: 50 4C 41 59 20 28 31 2C 20 44 2C 20 31 29 3B 0D |PLAY (1, D, 1);.|
00001350: 10 82 50 4C 41 59 20 28 31 2C 20 43 2C 20 31 29 |..PLAY (1, C, 1)|
00001360: 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 42 20 8F |;...PLAY (1, B .|
00001370: 31 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 28 31 |1, 1);...PLAY (1|
00001380: 2C 20 41 20 8F 31 2C 20 31 29 3B 0D 10 82 28 2A |, A .1, 1);...(*|
00001390: 10 82 42 41 52 20 36 10 82 2A 29 0D 10 82 50 4C |..BAR 6..*)...PL|
000013A0: 41 59 20 28 32 2C 20 47 20 8F 32 2C 20 30 29 3B |AY (2, G .2, 0);|
000013B0: 0D 10 82 50 4C 41 59 20 28 31 2C 20 42 20 8F 31 |...PLAY (1, B .1|
000013C0: 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C |, 2);...PLAY (1,|
000013D0: 20 43 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 28 | C, 1);...PLAY (|
000013E0: 31 2C 20 42 20 8F 31 2C 20 31 29 3B 0D 10 82 50 |1, B .1, 1);...P|
000013F0: 4C 41 59 20 28 31 2C 20 41 20 8F 31 2C 20 31 29 |LAY (1, A .1, 1)|
00001400: 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 47 20 8F |;...PLAY (1, G .|
00001410: 31 2C 20 31 29 3B 0D 10 82 92 52 4F 55 4E 44 20 |1, 1);....ROUND |
00001420: 3D 20 31 20 93 0D 10 84 88 0D 10 84 28 2A 10 82 |= 1 ........(*..|
00001430: 42 41 52 20 37 10 82 2A 29 0D 10 84 50 4C 41 59 |BAR 7..*)...PLAY|
00001440: 20 28 32 2C 20 44 20 8F 31 2C 20 30 29 3B 0D 10 | (2, D .1, 0);..|
00001450: 84 50 4C 41 59 20 28 31 2C 20 46 53 20 8F 31 2C |.PLAY (1, FS .1,|
00001460: 20 32 29 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 | 2);...PLAY (2, |
00001470: 42 20 8F 32 2C 20 30 29 3B 0D 10 84 50 4C 41 59 |B .2, 0);...PLAY|
00001480: 20 28 31 2C 20 47 20 8F 31 2C 20 31 29 3B 0D 10 | (1, G .1, 1);..|
00001490: 84 50 4C 41 59 20 28 31 2C 20 41 20 8F 31 2C 20 |.PLAY (1, A .1, |
000014A0: 31 29 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 47 |1);...PLAY (2, G|
000014B0: 20 8F 32 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 | .2, 0);...PLAY |
000014C0: 28 31 2C 20 42 20 8F 31 2C 20 31 29 3B 0D 10 84 |(1, B .1, 1);...|
000014D0: 50 4C 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 31 |PLAY (1, G .1, 1|
000014E0: 29 3B 0D 10 84 28 2A 10 82 42 41 52 20 38 10 82 |);...(*..BAR 8..|
000014F0: 2A 29 0D 10 84 50 4C 41 59 20 28 32 2C 20 44 20 |*)...PLAY (2, D |
00001500: 8F 31 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 28 |.1, 0);...PLAY (|
00001510: 31 2C 20 41 20 8F 31 2C 20 32 29 3B 0D 10 84 50 |1, A .1, 2);...P|
00001520: 4C 41 59 20 28 32 2C 20 44 20 8F 32 2C 20 31 29 |LAY (2, D .2, 1)|
00001530: 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 43 20 8F |;...PLAY (2, C .|
00001540: 31 2C 20 31 29 3B 0D 10 84 50 4C 41 59 20 28 32 |1, 1);...PLAY (2|
00001550: 2C 20 42 20 8F 32 2C 20 31 29 3B 0D 10 84 50 4C |, B .2, 1);...PL|
00001560: 41 59 20 28 32 2C 20 41 20 8F 32 2C 20 31 29 3B |AY (2, A .2, 1);|
00001570: 0D 10 84 89 0D 10 82 94 0D 10 84 88 0D 10 84 28 |...............(|
00001580: 2A 10 82 42 41 52 20 31 35 10 82 2A 29 0D 10 84 |*..BAR 15..*)...|
00001590: 50 4C 41 59 20 28 32 2C 20 43 20 8F 31 2C 20 30 |PLAY (2, C .1, 0|
000015A0: 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 41 20 |);...PLAY (1, A |
000015B0: 8F 31 2C 20 32 29 3B 0D 10 84 50 4C 41 59 20 28 |.1, 2);...PLAY (|
000015C0: 32 2C 20 44 20 8F 31 2C 20 30 29 3B 0D 10 84 50 |2, D .1, 0);...P|
000015D0: 4C 41 59 20 28 31 2C 20 42 20 8F 31 2C 20 31 29 |LAY (1, B .1, 1)|
000015E0: 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 41 20 8F |;...PLAY (1, A .|
000015F0: 31 2C 20 31 29 3B 0D 10 84 50 4C 41 59 20 28 32 |1, 1);...PLAY (2|
00001600: 2C 20 44 20 8F 32 2C 20 30 29 3B 0D 10 84 50 4C |, D .2, 0);...PL|
00001610: 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 31 29 3B |AY (1, G .1, 1);|
00001620: 0D 10 84 50 4C 41 59 20 28 31 2C 20 46 53 20 8F |...PLAY (1, FS .|
00001630: 31 2C 20 31 29 3B 0D 10 84 28 2A 10 82 42 41 52 |1, 1);...(*..BAR|
00001640: 20 31 36 10 82 2A 29 0D 10 84 50 4C 41 59 20 28 | 16..*)...PLAY (|
00001650: 32 2C 20 47 20 8F 32 2C 20 30 29 3B 0D 10 84 50 |2, G .2, 0);...P|
00001660: 4C 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 34 29 |LAY (1, G .1, 4)|
00001670: 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 47 20 8F |;...PLAY (2, G .|
00001680: 33 2C 20 32 29 3B 0D 10 84 89 3B 0D 89 3B 0D 9A |3, 2);....;..;..|
00001690: 49 20 3A 3D 20 31 20 9B 33 20 97 0D 10 82 E1 28 |I := 1 .3 .....(|
000016A0: 49 2C 20 50 4C 41 59 49 54 2C 20 4F 46 46 29 3B |I, PLAYIT, OFF);|
000016B0: 0D 50 41 55 53 45 20 28 20 31 30 30 29 3B 0D E3 |.PAUSE ( 100);..|
000016C0: 28 56 4F 4C 55 4D 45 2C 20 30 29 0D 89 3B 0D 0D |(VOLUME, 0)..;..|
000016D0: 86 4D 4F 56 45 5F 50 41 53 43 41 4C 20 28 57 48 |.MOVE_PASCAL (WH|
000016E0: 49 43 48 2C 20 4E 45 57 58 2C 0D 10 96 4E 45 57 |ICH, NEWX,...NEW|
000016F0: 59 2C 20 4D 4F 56 45 53 29 3B 0D 28 2A 2A 2A 2A |Y, MOVES);.(****|
00001700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 |***************)|
00001710: 0D 88 0D 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...(*-----------|
00001720: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001730: 2D 2D 2D 2D 0D CD 4F 56 45 20 54 48 45 20 4E 4F |----..OVE THE NO|
00001740: 4D 49 4E 41 54 45 44 20 DF 46 52 4F 4D 20 49 54 |MINATED .FROM IT|
00001750: 53 0D 43 55 52 52 45 4E 54 20 50 4F 53 49 54 49 |S.CURRENT POSITI|
00001760: 4F 4E 20 9B 54 48 45 20 4E 45 57 20 58 20 8D 0D |ON .THE NEW X ..|
00001770: 59 20 43 4F 4F 52 44 49 4E 41 54 45 53 2C 20 49 |Y COORDINATES, I|
00001780: 4E 20 54 48 45 20 4E 4F 4D 49 4E 41 54 45 44 0D |N THE NOMINATED.|
00001790: 4E 55 4D 42 45 52 20 85 4D 4F 56 45 53 2E 0D 2D |NUMBER .MOVES..-|
000017A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000017B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A |---------------*|
000017C0: 29 0D 10 82 F4 28 57 48 49 43 48 2C 0D 10 84 EC |)....(WHICH,....|
000017D0: 28 57 48 49 43 48 29 2C 0D 10 84 EE 28 57 48 49 |(WHICH),....(WHI|
000017E0: 43 48 29 2C 0D 10 84 28 4E 45 57 58 20 2D 20 EC |CH),...(NEWX - .|
000017F0: 28 57 48 49 43 48 29 29 0D 10 87 2A 20 32 35 36 |(WHICH))...* 256|
00001800: 20 2F 20 4D 4F 56 45 53 2C 0D 10 84 28 4E 45 57 | / MOVES,...(NEW|
00001810: 59 20 2D 20 EE 28 57 48 49 43 48 29 29 0D 10 87 |Y - .(WHICH))...|
00001820: 2A 20 32 35 36 20 2F 20 4D 4F 56 45 53 2C 0D 10 |* 256 / MOVES,..|
00001830: 84 4D 4F 56 45 53 29 0D 89 3B 0D 0D 86 42 52 49 |.MOVES)..;...BRI|
00001840: 4E 47 5F 50 41 53 43 41 4C 3B 0D 28 2A 2A 2A 2A |NG_PASCAL;.(****|
00001850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001860: 2A 29 0D 0D 86 46 4C 41 53 48 5F 42 4F 52 44 45 |*)...FLASH_BORDE|
00001870: 52 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |R;.(************|
00001880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 49 20 3A |*********)...I :|
00001890: 3D 20 31 3B 0D 98 0D 10 83 49 20 3A 3D 20 49 20 |= 1;.....I := I |
000018A0: 2B 20 31 3B 0D 10 83 AA 28 32 39 30 29 3B 0D 10 |+ 1;....(290);..|
000018B0: 83 E2 28 42 4F 52 44 45 52 2C 20 49 29 3B 0D 10 |..(BORDER, I);..|
000018C0: 83 50 41 55 53 45 20 28 31 35 29 3B 0D 99 F3 28 |.PAUSE (15);...(|
000018D0: 38 29 20 3D 20 30 3B 0D 89 3B 0D 0D 88 20 28 2A |8) = 0;..;... (*|
000018E0: 20 42 52 49 4E 47 5F 50 41 53 43 41 4C 20 2A 29 | BRING_PASCAL *)|
000018F0: 0D A3 28 38 2C 20 31 29 3B 0D E2 28 43 48 41 52 |..(8, 1);..(CHAR|
00001900: 43 4F 4C 4F 55 52 2C 20 50 55 52 50 4C 45 29 3B |COLOUR, PURPLE);|
00001910: 0D FF 28 22 D4 48 49 53 20 44 45 4D 4F 4E 53 54 |..(".HIS DEMONST|
00001920: 52 41 54 49 4F 4E 20 50 52 4F 47 52 41 4D 20 49 |RATION PROGRAM I|
00001930: 53 20 57 52 49 54 54 45 4E 22 29 3B 0D 53 4C 4F |S WRITTEN");.SLO|
00001940: 57 3B 0D FF 28 22 45 4E 54 49 52 45 4C 59 20 49 |W;..("ENTIRELY I|
00001950: 4E 20 C7 2D D0 41 53 43 41 4C 2E 20 20 C9 54 20 |N .-.ASCAL. .T |
00001960: 44 4F 45 53 20 4E 4F 54 20 55 53 45 22 29 3B 0D |DOES NOT USE");.|
00001970: 53 4C 4F 57 3B 0D FF 28 22 41 4E 59 20 D0 C5 C5 |SLOW;..("ANY ...|
00001980: CB 53 2C 20 D0 CF CB C5 53 20 28 4F 52 20 53 49 |.S, ....S (OR SI|
00001990: 4D 49 4C 41 52 29 2C 20 20 4F 52 22 29 3B 0D 53 |MILAR), OR");.S|
000019A0: 4C 4F 57 3B 0D FF 28 22 4D 41 43 48 49 4E 45 2D |LOW;..("MACHINE-|
000019B0: 43 4F 44 45 20 53 55 42 52 4F 55 54 49 4E 45 53 |CODE SUBROUTINES|
000019C0: 2E 22 29 3B 0D 53 4C 4F 57 3B 0D F7 28 31 2C 20 |.");.SLOW;..(1, |
000019D0: 37 2C 20 33 32 2C 20 33 33 2C 20 33 34 2C 20 33 |7, 32, 33, 34, 3|
000019E0: 33 29 3B 0D DF 28 31 2C 20 45 58 50 41 4E 44 58 |3);..(1, EXPANDX|
000019F0: 2C 20 4F 46 46 2C 0D 10 88 31 2C 20 43 4F 4C 4F |, OFF,...1, COLO|
00001A00: 55 52 2C 20 42 4C 55 45 2C 0D 10 88 31 2C 20 45 |UR, BLUE,...1, E|
00001A10: 58 50 41 4E 44 59 2C 20 4F 46 46 29 3B 0D F4 28 |XPANDY, OFF);..(|
00001A20: 31 2C 30 2C 31 33 30 2C 31 38 30 2C 20 30 2C 20 |1,0,130,180, 0, |
00001A30: 35 30 30 29 3B 0D 98 99 F3 28 31 29 20 3D 20 30 |500);....(1) = 0|
00001A40: 3B 0D DF 28 31 2C 20 41 43 54 49 56 45 2C 20 4F |;..(1, ACTIVE, O|
00001A50: 46 46 29 3B 0D 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D |FF);.(*---------|
00001A60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001A70: 2D 2D 2D 2D 2D 0D C4 45 46 49 4E 45 20 45 41 43 |-----..EFINE EAC|
00001A80: 48 20 4C 45 54 54 45 52 20 28 49 4E 20 C7 2D D0 |H LETTER (IN .-.|
00001A90: 41 53 43 41 4C 29 0D 9A 49 54 53 20 50 4F 53 49 |ASCAL)..ITS POSI|
00001AA0: 54 49 4F 4E 20 4F 4E 20 54 48 45 20 4C 49 4E 45 |TION ON THE LINE|
00001AB0: 2C 20 49 54 53 0D DF 50 4F 49 4E 54 45 52 20 28 |, ITS..POINTER (|
00001AC0: 54 48 45 20 4C 45 54 54 45 52 20 27 41 27 0D 4F |THE LETTER 'A'.O|
00001AD0: 43 43 55 52 53 20 54 57 49 43 45 29 20 8D 49 54 |CCURS TWICE) .IT|
00001AE0: 53 20 43 4F 4C 4F 55 52 2E 0D 2D 2D 2D 2D 2D 2D |S COLOUR..------|
00001AF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 0D 50 4F 53 4E |---------*).POSN|
00001B10: 20 5B 31 5D 20 3A 3D 20 32 35 3B 0D 50 4F 53 4E | [1] := 25;.POSN|
00001B20: 20 5B 32 5D 20 3A 3D 20 37 30 3B 0D 50 4F 53 4E | [2] := 70;.POSN|
00001B30: 20 5B 33 5D 20 3A 3D 20 39 30 3B 0D 50 4F 53 4E | [3] := 90;.POSN|
00001B40: 20 5B 34 5D 20 3A 3D 20 31 33 35 3B 0D 50 4F 53 | [4] := 135;.POS|
00001B50: 4E 20 5B 35 5D 20 3A 3D 20 31 38 30 3B 0D 50 4F |N [5] := 180;.PO|
00001B60: 53 4E 20 5B 36 5D 20 3A 3D 20 32 32 35 3B 0D 50 |SN [6] := 225;.P|
00001B70: 4F 53 4E 20 5B 37 5D 20 3A 3D 20 32 36 35 3B 0D |OSN [7] := 265;.|
00001B80: 50 4F 53 4E 20 5B 38 5D 20 3A 3D 20 33 31 30 3B |POSN [8] := 310;|
00001B90: 0D 50 4F 49 4E 54 20 5B 31 5D 20 3A 3D 20 31 32 |.POINT [1] := 12|
00001BA0: 38 3B 0D 50 4F 49 4E 54 20 5B 32 5D 20 3A 3D 20 |8;.POINT [2] := |
00001BB0: 31 32 39 3B 0D 50 4F 49 4E 54 20 5B 33 5D 20 3A |129;.POINT [3] :|
00001BC0: 3D 20 31 33 30 3B 0D 50 4F 49 4E 54 20 5B 34 5D |= 130;.POINT [4]|
00001BD0: 20 3A 3D 20 31 33 31 3B 0D 50 4F 49 4E 54 20 5B | := 131;.POINT [|
00001BE0: 35 5D 20 3A 3D 20 31 33 32 3B 0D 50 4F 49 4E 54 |5] := 132;.POINT|
00001BF0: 20 5B 36 5D 20 3A 3D 20 31 33 33 3B 0D 50 4F 49 | [6] := 133;.POI|
00001C00: 4E 54 20 5B 37 5D 20 3A 3D 20 31 33 31 3B 0D 50 |NT [7] := 131;.P|
00001C10: 4F 49 4E 54 20 5B 38 5D 20 3A 3D 20 31 33 34 3B |OINT [8] := 134;|
00001C20: 0D 53 43 4F 4C 20 5B 31 5D 20 3A 3D 20 33 3B 0D |.SCOL [1] := 3;.|
00001C30: 53 43 4F 4C 20 5B 32 5D 20 3A 3D 20 34 3B 0D 53 |SCOL [2] := 4;.S|
00001C40: 43 4F 4C 20 5B 33 5D 20 3A 3D 20 37 3B 0D 53 43 |COL [3] := 7;.SC|
00001C50: 4F 4C 20 5B 34 5D 20 3A 3D 20 38 3B 0D 53 43 4F |OL [4] := 8;.SCO|
00001C60: 4C 20 5B 35 5D 20 3A 3D 20 31 30 3B 0D 53 43 4F |L [5] := 10;.SCO|
00001C70: 4C 20 5B 36 5D 20 3A 3D 20 31 31 3B 0D 53 43 4F |L [6] := 11;.SCO|
00001C80: 4C 20 5B 37 5D 20 3A 3D 20 31 32 3B 0D 53 43 4F |L [7] := 12;.SCO|
00001C90: 4C 20 5B 38 5D 20 3A 3D 20 31 33 3B 0D 9A 49 20 |L [8] := 13;..I |
00001CA0: 3A 3D 20 31 20 9B 38 20 97 0D 10 82 DF 28 49 2C |:= 1 .8 .....(I,|
00001CB0: 20 43 4F 4C 4F 55 52 2C 20 53 43 4F 4C 20 5B 49 | COLOUR, SCOL [I|
00001CC0: 5D 2C 0D 10 8A 49 2C 20 50 4F 49 4E 54 49 54 2C |],...I, POINTIT,|
00001CD0: 20 50 4F 49 4E 54 20 5B 49 5D 2C 0D 10 8A 49 2C | POINT [I],...I,|
00001CE0: 20 42 45 48 49 4E 44 42 4B 2C 20 4F 4E 2C 0D 10 | BEHINDBK, ON,..|
00001CF0: 8A 49 2C 20 45 58 50 41 4E 44 58 2C 20 4F 4E 2C |.I, EXPANDX, ON,|
00001D00: 0D 10 8A 49 2C 20 45 58 50 41 4E 44 59 2C 20 4F |...I, EXPANDY, O|
00001D10: 4E 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 |N);..I := 1 .8 .|
00001D20: 0D 10 82 F4 28 49 2C 20 30 2C 20 32 32 30 2C 20 |....(I, 0, 220, |
00001D30: 32 35 36 2C 0D 10 8E 30 2C 20 31 35 30 29 3B 0D |256,...0, 150);.|
00001D40: 46 4C 41 53 48 5F 42 4F 52 44 45 52 3B 0D 9D 28 |FLASH_BORDER;..(|
00001D50: AB 28 48 4F 4D 45 29 29 3B 0D 9A 49 20 3A 3D 20 |.(HOME));..I := |
00001D60: 31 20 9B 38 10 82 97 0D 10 82 4D 4F 56 45 5F 50 |1 .8......MOVE_P|
00001D70: 41 53 43 41 4C 20 28 49 2C 20 50 4F 53 4E 20 5B |ASCAL (I, POSN [|
00001D80: 49 5D 2C 20 35 35 2C 0D 10 8F 33 30 30 29 3B 0D |I], 55,...300);.|
00001D90: 46 4C 41 53 48 5F 42 4F 52 44 45 52 3B 0D 50 41 |FLASH_BORDER;.PA|
00001DA0: 55 53 45 20 28 31 30 30 29 3B 0D 53 45 54 5F 43 |USE (100);.SET_C|
00001DB0: 4F 4C 4F 55 52 53 20 28 42 4C 41 43 4B 2C 20 59 |OLOURS (BLACK, Y|
00001DC0: 45 4C 4C 4F 57 29 3B 0D 89 3B 0D 0D 86 50 41 47 |ELLOW);..;...PAG|
00001DD0: 45 31 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |E1;.(***********|
00001DE0: 2A 2A 2A 29 0D 0D 86 49 4E 54 52 4F 3B 0D 28 2A |***)...INTRO;.(*|
00001DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 |*************)..|
00001E00: 0D A3 28 31 30 2C 20 31 29 3B 0D FF 0D 28 22 D4 |..(10, 1);...(".|
00001E10: C8 C5 20 C3 CF CD D0 C9 CC C5 D2 20 D7 C8 C9 C3 |.. ........ ....|
00001E20: C8 20 D3 D5 D0 D0 CF D2 D4 D3 20 C1 CC CC 20 CF |. ........ ... .|
00001E30: C6 20 D4 C8 C5 22 29 3B 0D FF 0D 28 22 C6 C5 C1 |. ...");...("...|
00001E40: D4 D5 D2 C5 D3 20 CF C6 20 D9 CF D5 D2 20 C3 CF |..... .. .... ..|
00001E50: CD CD CF C4 CF D2 C5 20 36 34 20 2E 2E 2E 22 29 |....... 64 ...")|
00001E60: 3B 0D FF 3B 0D 89 3B 0D 0D 88 20 28 2A 20 50 41 |;..;..;... (* PA|
00001E70: 47 45 31 20 2A 29 0D 49 4E 54 52 4F 3B 0D 9A 49 |GE1 *).INTRO;..I|
00001E80: 20 3A 3D 20 31 20 9B 35 30 30 20 97 0D 88 0D 10 | := 1 .500 .....|
00001E90: 82 DF 28 49 20 8C 38 20 2B 20 31 2C 20 43 4F 4C |..(I .8 + 1, COL|
00001EA0: 4F 55 52 2C 0D 10 8A 49 20 8C 31 35 20 2B 20 31 |OUR,...I .15 + 1|
00001EB0: 29 3B 0D 10 82 AA 28 32 35 30 29 3B 0D 89 3B 0D |);....(250);..;.|
00001EC0: 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 42 4C |.SET_COLOURS (BL|
00001ED0: 55 45 2C 20 4C 49 47 48 54 5F 47 52 45 45 4E 29 |UE, LIGHT_GREEN)|
00001EE0: 3B 0D 49 4E 54 52 4F 3B 0D 47 50 41 53 43 41 4C |;.INTRO;.GPASCAL|
00001EF0: 5F 43 4F 4C 4F 55 52 20 3A 3D 20 35 3B 0D FF 28 |_COLOUR := 5;..(|
00001F00: 22 2A 20 20 53 50 52 49 54 45 53 22 29 3B 0D 46 |"* SPRITES");.F|
00001F10: 41 4E 43 59 3B 0D FF 28 22 2A 20 20 47 52 41 50 |ANCY;..("* GRAP|
00001F20: 48 49 43 53 22 29 3B 0D 46 41 4E 43 59 3B 0D FF |HICS");.FANCY;..|
00001F30: 28 22 2A 20 20 53 4F 55 4E 44 20 45 46 46 45 43 |("* SOUND EFFEC|
00001F40: 54 53 22 29 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 |TS");.FANCY;..("|
00001F50: 2A 20 20 43 4C 4F 43 4B 22 29 3B 0D 46 41 4E 43 |* CLOCK");.FANC|
00001F60: 59 3B 0D FF 28 22 2A 20 20 49 4E 54 45 52 56 41 |Y;..("* INTERVA|
00001F70: 4C 20 54 49 4D 45 52 22 29 3B 0D 46 41 4E 43 59 |L TIMER");.FANCY|
00001F80: 3B 0D FF 28 22 2A 20 20 43 55 52 53 4F 52 20 50 |;..("* CURSOR P|
00001F90: 4F 53 49 54 49 4F 4E 49 4E 47 22 29 3B 0D 46 41 |OSITIONING");.FA|
00001FA0: 4E 43 59 3B 0D FF 28 22 2A 20 20 50 41 44 44 4C |NCY;..("* PADDL|
00001FB0: 45 53 22 29 3B 0D 46 41 4E 43 59 3B 0D 9A 49 20 |ES");.FANCY;..I |
00001FC0: 3A 3D 20 31 20 9B 38 10 82 97 0D 10 82 4D 4F 56 |:= 1 .8......MOV|
00001FD0: 45 5F 50 41 53 43 41 4C 20 28 49 2C 20 33 30 30 |E_PASCAL (I, 300|
00001FE0: 2C 0D 10 84 32 33 20 2D 20 28 32 38 20 2A 20 28 |,...23 - (28 * (|
00001FF0: 49 20 3E 20 32 29 29 20 2B 20 49 20 2A 20 32 38 |I > 2)) + I * 28|
00002000: 2C 0D 10 84 32 30 30 29 3B 0D DF 28 32 2C 20 41 |,...200);..(2, A|
00002010: 43 54 49 56 45 2C 20 4F 46 46 29 3B 0D 9D 28 22 |CTIVE, OFF);..("|
00002020: 2A 20 20 4A 4F 59 53 54 49 43 4B 53 22 29 3B 20 |* JOYSTICKS"); |
00002030: 46 41 4E 43 59 3B 0D FF 3B 0D F7 28 32 2C 20 35 |FANCY;..;..(2, 5|
00002040: 2C 20 31 33 35 2C 20 31 33 36 2C 0D 10 95 31 33 |, 135, 136,...13|
00002050: 37 29 3B 0D DF 28 32 2C 20 45 58 50 41 4E 44 58 |7);..(2, EXPANDX|
00002060: 2C 20 4F 46 46 2C 0D 10 88 32 2C 20 45 58 50 41 |, OFF,...2, EXPA|
00002070: 4E 44 59 2C 20 4F 46 46 2C 0D 10 88 32 2C 20 42 |NDY, OFF,...2, B|
00002080: 45 48 49 4E 44 42 4B 2C 20 4F 46 46 2C 0D 10 88 |EHINDBK, OFF,...|
00002090: 32 2C 20 43 4F 4C 4F 55 52 2C 20 57 48 49 54 45 |2, COLOUR, WHITE|
000020A0: 29 3B 0D F4 28 32 2C 20 35 30 2C 20 32 32 35 2C |);..(2, 50, 225,|
000020B0: 20 32 35 36 2C 0D 10 8C 30 2C 20 32 34 30 29 3B | 256,...0, 240);|
000020C0: 0D 0D FF 28 22 2A 20 20 53 4D 4F 4F 54 48 20 53 |...("* SMOOTH S|
000020D0: 43 52 4F 4C 4C 49 4E 47 22 29 3B 0D 46 41 4E 43 |CROLLING");.FANC|
000020E0: 59 3B 0D FF 28 22 2A 20 20 43 4F 4C 4C 49 53 49 |Y;..("* COLLISI|
000020F0: 4F 4E 20 44 45 54 45 43 54 49 4F 4E 22 29 3B 0D |ON DETECTION");.|
00002100: 46 41 4E 43 59 3B 0D FF 28 22 2A 20 20 41 4E 49 |FANCY;..("* ANI|
00002110: 4D 41 54 49 4F 4E 22 29 3B 0D 0D 98 99 90 F3 28 |MATION");......(|
00002120: 32 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 |2);..I := 1 .8 .|
00002130: 0D 10 82 92 49 20 3C 3E 20 32 20 93 0D 10 82 4D |....I <> 2 ....M|
00002140: 4F 56 45 5F 50 41 53 43 41 4C 20 28 49 2C 20 EC |OVE_PASCAL (I, .|
00002150: 28 49 29 2C 0D 10 8F 31 39 35 2C 20 35 30 29 3B |(I),...195, 50);|
00002160: 0D 98 99 90 F3 28 38 29 3B 0D F4 28 32 2C 20 EC |.....(8);..(2, .|
00002170: 28 32 29 2C 0D 10 8F EE 28 32 29 2C 0D 10 8F 32 |(2),....(2),...2|
00002180: 35 36 2C 20 30 2C 20 32 30 29 3B 0D 98 99 90 F3 |56, 0, 20);.....|
00002190: 28 32 29 3B 0D F7 28 32 2C 20 35 2C 20 31 33 39 |(2);..(2, 5, 139|
000021A0: 2C 20 31 33 38 2C 0D 10 95 31 34 30 2C 20 31 33 |, 138,...140, 13|
000021B0: 38 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 |8);..I := 1 .8 .|
000021C0: 0D 10 82 F4 28 49 2C 20 EC 28 49 29 2C 0D 10 91 |....(I, .(I),...|
000021D0: EE 28 49 29 2C 0D 10 91 30 2C 20 2D 31 32 38 2C |.(I),...0, -128,|
000021E0: 20 34 30 30 29 3B 0D 98 99 F3 28 38 29 20 3D 20 | 400);....(8) = |
000021F0: 30 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D |0;..I := 1 .8 ..|
00002200: 10 82 DF 28 49 2C 20 41 43 54 49 56 45 2C 20 4F |...(I, ACTIVE, O|
00002210: 46 46 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 |FF);.SET_COLOURS|
00002220: 20 28 4F 52 41 4E 47 45 2C 20 52 45 44 29 3B 0D | (ORANGE, RED);.|
00002230: 89 3B 0D 0D 86 50 41 47 45 32 3B 0D 28 2A 2A 2A |.;...PAGE2;.(***|
00002240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9D |***********)....|
00002250: 28 AB 28 48 4F 4D 45 29 29 3B 0D FF 28 22 20 20 |(.(HOME));..(" |
00002260: 20 20 20 20 20 20 20 20 20 20 20 20 20 D3 D0 D2 | ...|
00002270: C9 D4 C5 D3 22 29 3B 0D 9D 10 82 28 22 20 20 20 |....");....(" |
00002280: 20 20 20 20 20 20 20 20 20 20 20 20 B8 B8 B8 B8 | ....|
00002290: B8 B8 B8 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 |...");.SLOW;..("|
000022A0: D3 50 52 49 54 45 53 20 43 41 4E 20 45 41 53 49 |.PRITES CAN EASI|
000022B0: 4C 59 20 42 45 20 44 45 46 49 4E 45 44 20 55 53 |LY BE DEFINED US|
000022C0: 49 4E 47 20 54 48 45 22 29 3B 0D 53 4C 4F 57 3B |ING THE");.SLOW;|
000022D0: 0D FF 28 22 C4 C5 C6 C9 CE C5 D3 D0 D2 C9 D4 C5 |..("............|
000022E0: 20 43 4F 4D 4D 41 4E 44 2E 22 29 3B 0D 53 4C 4F | COMMAND.");.SLO|
000022F0: 57 3B 0D 9D 28 22 D4 48 45 59 20 43 41 4E 20 42 |W;..(".HEY CAN B|
00002300: 45 20 4D 4F 56 45 44 20 41 55 54 4F 4D 41 54 49 |E MOVED AUTOMATI|
00002310: 43 41 4C 4C 59 20 46 52 4F 4D 22 29 3B 0D 53 4C |CALLY FROM");.SL|
00002320: 4F 57 3B 0D 9D 28 22 50 4C 41 43 45 20 54 4F 20 |OW;..("PLACE TO |
00002330: 50 4C 41 43 45 20 55 53 49 4E 47 20 54 48 45 20 |PLACE USING THE |
00002340: CD CF D6 C5 D3 D0 D2 C9 D4 C5 22 29 3B 0D 53 4C |..........");.SL|
00002350: 4F 57 3B 0D FF 28 22 43 4F 4D 4D 41 4E 44 2E 22 |OW;..("COMMAND."|
00002360: 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D4 48 45 59 |);.SLOW;..(".HEY|
00002370: 20 43 41 4E 20 42 45 20 41 4E 49 4D 41 54 45 44 | CAN BE ANIMATED|
00002380: 2C 20 54 4F 4F 2C 20 55 53 49 4E 47 20 54 48 45 |, TOO, USING THE|
00002390: 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 C1 CE C9 |");.SLOW;..("...|
000023A0: CD C1 D4 C5 D3 D0 D2 C9 D4 C5 20 43 4F 4D 4D 41 |.......... COMMA|
000023B0: 4E 44 2C 20 4C 49 4B 45 20 54 48 49 53 20 2E 2E |ND, LIKE THIS ..|
000023C0: 2E 22 29 3B 0D 53 4C 4F 57 3B 0D FF 3B 0D F7 28 |.");.SLOW;..;..(|
000023D0: 32 2C 20 35 2C 20 31 33 35 2C 20 31 33 36 2C 0D |2, 5, 135, 136,.|
000023E0: 10 95 31 33 37 29 3B 0D DF 28 32 2C 20 43 4F 4C |..137);..(2, COL|
000023F0: 4F 55 52 2C 20 42 52 4F 57 4E 2C 0D 10 88 32 2C |OUR, BROWN,...2,|
00002400: 20 42 45 48 49 4E 44 42 4B 2C 20 4F 4E 29 3B 0D | BEHINDBK, ON);.|
00002410: F4 28 32 2C 20 30 2C 20 31 35 30 2C 20 32 35 36 |.(2, 0, 150, 256|
00002420: 2C 0D 10 8C 30 2C 20 33 37 30 29 3B 0D 98 99 90 |,...0, 370);....|
00002430: F3 28 32 29 3B 0D DF 28 32 2C 20 41 43 54 49 56 |.(2);..(2, ACTIV|
00002440: 45 2C 20 4F 46 46 29 3B 0D 9D 28 22 D3 50 52 49 |E, OFF);..(".PRI|
00002450: 54 45 53 20 43 41 4E 20 42 45 20 45 41 53 49 4C |TES CAN BE EASIL|
00002460: 59 20 45 58 50 41 4E 44 45 44 20 49 4E 20 54 48 |Y EXPANDED IN TH|
00002470: 45 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D8 20 |E");.SLOW;..(". |
00002480: 41 4E 44 20 D9 20 44 49 52 45 43 54 49 4F 4E 53 |AND . DIRECTIONS|
00002490: 2E 20 D4 48 45 59 20 43 41 4E 20 42 45 20 50 4C |. .HEY CAN BE PL|
000024A0: 41 43 45 44 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 |ACED");.SLOW;..(|
000024B0: 22 49 4E 20 46 52 4F 4E 54 20 4F 46 20 4F 52 20 |"IN FRONT OF OR |
000024C0: 42 45 48 49 4E 44 20 54 48 45 20 42 41 43 4B 47 |BEHIND THE BACKG|
000024D0: 52 4F 55 4E 44 2E 22 29 3B 0D 53 4C 4F 57 3B 0D |ROUND.");.SLOW;.|
000024E0: 9D 28 22 D9 4F 55 20 43 41 4E 20 45 41 53 49 4C |.(".OU CAN EASIL|
000024F0: 59 20 45 53 54 41 42 4C 49 53 48 20 41 20 53 50 |Y ESTABLISH A SP|
00002500: 52 49 54 45 27 53 22 29 3B 0D 53 4C 4F 57 3B 0D |RITE'S");.SLOW;.|
00002510: 9D 28 22 43 55 52 52 45 4E 54 20 50 4F 53 49 54 |.("CURRENT POSIT|
00002520: 49 4F 4E 20 4F 4E 20 54 48 45 20 53 43 52 45 45 |ION ON THE SCREE|
00002530: 4E 2C 20 41 4E 44 22 29 3B 0D 53 4C 4F 57 3B 0D |N, AND");.SLOW;.|
00002540: FF 28 22 57 48 45 54 48 45 52 20 4F 52 20 4E 4F |.("WHETHER OR NO|
00002550: 54 20 49 54 20 49 53 20 4D 4F 56 49 4E 47 2E 22 |T IT IS MOVING."|
00002560: 29 3B 0D 50 41 55 53 45 20 28 35 30 30 29 3B 0D |);.PAUSE (500);.|
00002570: 89 3B 0D 0D 86 50 41 47 45 33 3B 0D 28 2A 2A 2A |.;...PAGE3;.(***|
00002580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9D |***********)....|
00002590: 28 AB 28 48 4F 4D 45 29 29 3B 0D FF 28 22 20 20 |(.(HOME));..(" |
000025A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 D3 D0 D2 | ...|
000025B0: C9 D4 C5 D3 22 29 3B 0D 9D 10 82 28 22 20 20 20 |....");....(" |
000025C0: 20 20 20 20 20 20 20 20 20 20 20 20 B8 B8 B8 B8 | ....|
000025D0: B8 B8 B8 22 29 3B 20 53 4C 4F 57 3B 0D 9D 28 22 |..."); SLOW;..("|
000025E0: C7 2D D0 41 53 43 41 4C 20 43 41 4E 20 41 55 54 |.-.ASCAL CAN AUT|
000025F0: 4F 4D 41 54 49 43 41 4C 4C 59 20 53 54 4F 50 20 |OMATICALLY STOP |
00002600: 54 57 4F 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 |TWO");.SLOW;..("|
00002610: 53 50 52 49 54 45 53 20 54 48 45 20 49 4E 53 54 |SPRITES THE INST|
00002620: 41 4E 54 20 54 48 41 54 20 54 48 45 59 20 43 4F |ANT THAT THEY CO|
00002630: 4C 4C 49 44 45 2C 22 29 3B 0D 53 4C 4F 57 3B 0D |LLIDE,");.SLOW;.|
00002640: FF 28 22 4C 49 4B 45 20 54 48 49 53 20 2E 2E 2E |.("LIKE THIS ...|
00002650: 20 22 29 3B 0D AD 28 33 29 3B 0D 9A 49 20 3A 3D | ");..(3);..I :=|
00002660: 20 31 20 9B 32 20 97 0D 10 82 DF 28 49 2C 20 43 | 1 .2 .....(I, C|
00002670: 4F 4C 4F 55 52 2C 20 52 45 44 2C 0D 10 8A 49 2C |OLOUR, RED,...I,|
00002680: 20 50 4F 49 4E 54 49 54 2C 20 31 32 38 2C 0D 10 | POINTIT, 128,..|
00002690: 8A 49 2C 20 45 58 50 41 4E 44 58 2C 20 4F 4E 2C |.I, EXPANDX, ON,|
000026A0: 0D 10 8A 49 2C 20 45 58 50 41 4E 44 59 2C 20 4F |...I, EXPANDY, O|
000026B0: 4E 29 3B 0D F4 28 31 2C 20 30 2C 20 31 35 30 2C |N);..(1, 0, 150,|
000026C0: 20 32 35 36 2C 20 30 2C 20 33 37 30 29 3B 0D F4 | 256, 0, 370);..|
000026D0: 28 32 2C 20 33 39 30 2C 20 31 35 30 2C 20 2D 32 |(2, 390, 150, -2|
000026E0: 35 36 2C 20 30 2C 20 33 37 30 29 3B 0D 98 99 FD |56, 0, 370);....|
000026F0: 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 4C |;.SET_COLOURS (L|
00002700: 49 47 48 54 5F 52 45 44 2C 20 59 45 4C 4C 4F 57 |IGHT_RED, YELLOW|
00002710: 29 3B 0D 50 41 55 53 45 20 28 35 30 30 29 3B 0D |);.PAUSE (500);.|
00002720: 89 3B 0D 0D 86 42 49 54 4D 41 50 5F 44 45 4D 4F |.;...BITMAP_DEMO|
00002730: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
00002740: 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9A 49 20 3A 3D |*******)....I :=|
00002750: 20 31 20 9B 38 20 97 0D 10 82 DF 28 49 2C 20 41 | 1 .8 .....(I, A|
00002760: 43 54 49 56 45 2C 20 4F 46 46 29 3B 0D 0D 9D 28 |CTIVE, OFF);...(|
00002770: AB 28 48 4F 4D 45 29 29 3B 0D 53 45 54 5F 43 4F |.(HOME));.SET_CO|
00002780: 4C 4F 55 52 53 20 28 52 45 44 2C 20 59 45 4C 4C |LOURS (RED, YELL|
00002790: 4F 57 29 3B 0D FF 28 22 20 20 20 20 20 20 20 20 |OW);..(" |
000027A0: C2 C9 D4 20 CD C1 D0 20 C7 D2 C1 D0 C8 C9 C3 D3 |... ... ........|
000027B0: 22 29 3B 0D FF 28 22 20 20 20 20 20 20 20 20 B8 |");..(" .|
000027C0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 |..............."|
000027D0: 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 C7 2D D0 41 |);.SLOW;..(".-.A|
000027E0: 53 43 41 4C 20 53 55 50 50 4F 52 54 53 20 42 49 |SCAL SUPPORTS BI|
000027F0: 54 2D 4D 41 50 50 45 44 22 29 3B 0D 53 4C 4F 57 |T-MAPPED");.SLOW|
00002800: 3B 0D 9D 28 22 28 48 49 47 48 2D 52 45 53 4F 4C |;..("(HIGH-RESOL|
00002810: 55 54 49 4F 4E 29 20 47 52 41 50 48 49 43 53 20 |UTION) GRAPHICS |
00002820: 57 49 54 48 20 54 48 45 22 29 3B 0D 53 4C 4F 57 |WITH THE");.SLOW|
00002830: 3B 0D 9D 28 22 D0 CC CF D4 20 43 4F 4D 4D 41 4E |;..(".... COMMAN|
00002840: 44 20 57 48 49 43 48 20 41 4C 4C 4F 57 53 20 50 |D WHICH ALLOWS P|
00002850: 4F 49 4E 54 53 20 54 4F 22 29 3B 0D 53 4C 4F 57 |OINTS TO");.SLOW|
00002860: 3B 0D 9D 28 22 42 45 20 45 41 53 49 4C 59 20 50 |;..("BE EASILY P|
00002870: 4C 4F 54 54 45 44 20 49 4E 20 42 49 54 2D 4D 41 |LOTTED IN BIT-MA|
00002880: 50 20 4D 4F 44 45 22 29 3B 0D 53 4C 4F 57 3B 0D |P MODE");.SLOW;.|
00002890: FF 3B 20 FF 3B 0D FF 28 22 D7 41 54 43 48 20 54 |.; .;..(".ATCH T|
000028A0: 48 49 53 20 2E 2E 2E 22 29 3B 0D FF 3B 0D 50 41 |HIS ...");..;.PA|
000028B0: 55 53 45 20 28 32 30 30 29 3B 0D E2 28 42 4F 52 |USE (200);..(BOR|
000028C0: 44 45 52 2C 20 42 4C 41 43 4B 2C 20 42 41 43 4B |DER, BLACK, BACK|
000028D0: 47 4E 44 2C 20 42 4C 41 43 4B 2C 0D 10 88 44 49 |GND, BLACK,...DI|
000028E0: 53 50 4C 41 59 53 43 52 45 45 4E 2C 20 4F 46 46 |SPLAYSCREEN, OFF|
000028F0: 2C 0D 10 88 4D 55 4C 54 49 43 4F 4C 4F 55 52 2C |,...MULTICOLOUR,|
00002900: 20 4F 4E 2C 0D 10 88 42 49 54 4D 41 50 2C 20 4F | ON,...BITMAP, O|
00002910: 4E 2C 0D 10 88 43 48 41 52 47 45 4E 42 41 53 45 |N,...CHARGENBASE|
00002920: 2C 20 34 29 3B 0D 9D 28 AB 28 48 4F 4D 45 29 29 |, 4);..(.(HOME))|
00002930: 3B 0D E2 28 43 48 41 52 43 4F 4C 4F 55 52 2C 20 |;..(CHARCOLOUR, |
00002940: 4C 49 47 48 54 5F 47 52 45 45 4E 29 3B 0D 9A 49 |LIGHT_GREEN);..I|
00002950: 20 3A 3D 20 31 20 9B 31 30 30 10 82 97 0D 10 83 | := 1 .100......|
00002960: 9D 28 22 20 20 20 20 20 20 20 20 20 20 22 29 3B |.(" ");|
00002970: 0D A8 28 42 4C 55 45 2C 20 42 52 4F 57 4E 29 3B |..(BLUE, BROWN);|
00002980: 0D E2 28 44 49 53 50 4C 41 59 53 43 52 45 45 4E |..(DISPLAYSCREEN|
00002990: 2C 20 4F 4E 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B |, ON);..I := 1 .|
000029A0: 34 20 97 0D 88 0D 10 82 F7 28 49 2C 20 37 2C 20 |4 .......(I, 7, |
000029B0: 33 32 2C 20 33 33 2C 20 33 34 2C 20 33 33 29 3B |32, 33, 34, 33);|
000029C0: 0D 10 82 DF 28 49 2C 20 45 58 50 41 4E 44 58 2C |....(I, EXPANDX,|
000029D0: 20 4F 46 46 2C 0D 10 8A 49 2C 20 45 58 50 41 4E | OFF,...I, EXPAN|
000029E0: 44 59 2C 20 4F 46 46 29 3B 0D 10 82 F4 28 49 2C |DY, OFF);....(I,|
000029F0: 32 30 2C 34 30 2C 36 30 20 2A 20 49 2C 34 30 2C |20,40,60 * I,40,|
00002A00: 0D 10 8E 31 30 30 30 20 2F 20 49 29 3B 0D 89 3B |...1000 / I);..;|
00002A10: 0D 9A 49 20 3A 3D 20 31 20 9B 31 35 37 20 97 0D |..I := 1 .157 ..|
00002A20: 88 0D 10 82 A6 28 31 2C 20 49 2C 20 49 29 3B 0D |.....(1, I, I);.|
00002A30: 10 82 A6 28 31 2C 20 49 2C 20 49 20 2B 20 31 29 |...(1, I, I + 1)|
00002A40: 3B 0D 10 82 A6 28 31 2C 20 49 2C 20 49 20 2B 20 |;....(1, I, I + |
00002A50: 32 29 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 35 37 |2);..;..I := 157|
00002A60: 20 9C 31 20 97 0D 88 0D 10 84 A6 28 32 2C 20 49 | .1 .......(2, I|
00002A70: 2C 20 31 35 39 20 2D 20 49 29 3B 0D 10 84 A6 28 |, 159 - I);....(|
00002A80: 32 2C 20 49 2C 20 31 35 38 20 2D 20 49 29 3B 0D |2, I, 158 - I);.|
00002A90: 10 84 A6 28 32 2C 20 49 2C 20 31 35 37 20 2D 20 |...(2, I, 157 - |
00002AA0: 49 29 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 20 9B |I);..;..I := 1 .|
00002AB0: 31 35 39 20 97 0D 88 0D 10 82 A6 28 33 2C 20 31 |159 .......(3, 1|
00002AC0: 2C 20 49 29 3B 0D 10 82 A6 28 33 2C 20 32 2C 20 |, I);....(3, 2, |
00002AD0: 49 29 3B 0D 10 82 A6 28 33 2C 20 31 35 38 2C 20 |I);....(3, 158, |
00002AE0: 49 29 3B 0D 10 82 A6 28 33 2C 20 31 35 39 2C 20 |I);....(3, 159, |
00002AF0: 49 29 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 20 9B |I);..;..I := 1 .|
00002B00: 31 35 39 20 97 0D 88 0D 10 82 A6 28 33 2C 20 49 |159 .......(3, I|
00002B10: 2C 20 31 29 3B 0D 10 82 A6 28 33 2C 20 49 2C 20 |, 1);....(3, I, |
00002B20: 32 29 3B 0D 10 82 A6 28 33 2C 20 49 2C 20 31 35 |2);....(3, I, 15|
00002B30: 38 29 3B 0D 10 82 A6 28 33 2C 20 49 2C 20 31 35 |8);....(3, I, 15|
00002B40: 39 29 3B 0D 89 3B 0D 98 99 90 F3 28 31 29 3B 0D |9);..;.....(1);.|
00002B50: 9A 49 20 3A 3D 20 31 20 9B 34 20 97 0D 10 82 DF |.I := 1 .4 .....|
00002B60: 28 49 2C 20 41 43 54 49 56 45 2C 20 4F 46 46 29 |(I, ACTIVE, OFF)|
00002B70: 3B 0D E2 28 44 49 53 50 4C 41 59 53 43 52 45 45 |;..(DISPLAYSCREE|
00002B80: 4E 2C 4F 46 46 2C 0D 10 8A 42 4F 52 44 45 52 2C |N,OFF,...BORDER,|
00002B90: 20 52 45 44 2C 0D 10 8A 42 41 43 4B 47 4E 44 2C | RED,...BACKGND,|
00002BA0: 20 52 45 44 2C 0D 10 8A 42 49 54 4D 41 50 2C 20 | RED,...BITMAP, |
00002BB0: 4F 46 46 2C 0D 10 8A 4D 55 4C 54 49 43 4F 4C 4F |OFF,...MULTICOLO|
00002BC0: 55 52 2C 20 4F 46 46 2C 0D 10 8A 43 48 41 52 47 |UR, OFF,...CHARG|
00002BD0: 45 4E 42 41 53 45 2C 20 33 29 3B 0D 89 3B 0D 0D |ENBASE, 3);..;..|
00002BE0: 86 53 4F 55 4E 44 5F 44 45 4D 4F 3B 0D 28 2A 2A |.SOUND_DEMO;.(**|
00002BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002C00: 2A 29 0D 88 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B |*)....(.(HOME));|
00002C10: 0D E2 28 44 49 53 50 4C 41 59 53 43 52 45 45 4E |..(DISPLAYSCREEN|
00002C20: 2C 20 4F 4E 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 |, ON);.SET_COLOU|
00002C30: 52 53 20 28 52 45 44 2C 20 59 45 4C 4C 4F 57 29 |RS (RED, YELLOW)|
00002C40: 3B 0D 0D FF 28 22 20 20 20 20 20 20 20 20 20 20 |;...(" |
00002C50: 20 D3 CF D5 CE C4 20 C5 C6 C6 C5 C3 D4 D3 22 29 | ..... .......")|
00002C60: 3B 0D FF 28 22 20 20 20 20 20 20 20 20 20 20 20 |;..(" |
00002C70: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 29 3B |.............");|
00002C80: 0D 53 4C 4F 57 3B 0D 9D 28 22 C7 2D D0 41 53 43 |.SLOW;..(".-.ASC|
00002C90: 41 4C 20 50 52 4F 56 49 44 45 53 20 45 58 54 45 |AL PROVIDES EXTE|
00002CA0: 4E 53 49 56 45 20 53 55 50 50 4F 52 54 20 46 4F |NSIVE SUPPORT FO|
00002CB0: 52 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 54 48 |R");.SLOW;..("TH|
00002CC0: 45 20 D3 C9 C4 20 43 48 49 50 20 28 D3 4F 55 4E |E ... CHIP (.OUN|
00002CD0: 44 20 C9 4E 54 45 52 46 41 43 45 20 C4 45 56 49 |D .NTERFACE .EVI|
00002CE0: 43 45 29 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 |CE)");.SLOW;..("|
00002CF0: 49 4E 20 59 4F 55 52 20 C3 4F 4D 4D 4F 44 4F 52 |IN YOUR .OMMODOR|
00002D00: 45 20 36 34 2E 20 D4 48 45 20 41 54 54 52 49 42 |E 64. .HE ATTRIB|
00002D10: 55 54 45 53 20 4F 46 22 29 3B 0D 53 4C 4F 57 3B |UTES OF");.SLOW;|
00002D20: 0D 9D 28 22 45 41 43 48 20 49 4E 44 49 56 49 44 |..("EACH INDIVID|
00002D30: 55 41 4C 20 56 4F 49 43 45 20 41 52 45 20 45 41 |UAL VOICE ARE EA|
00002D40: 53 49 4C 59 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 |SILY");.SLOW;..(|
00002D50: 22 43 4F 4E 54 52 4F 4C 4C 45 44 2C 20 41 53 20 |"CONTROLLED, AS |
00002D60: 57 45 4C 4C 20 41 53 20 54 48 45 20 56 41 52 49 |WELL AS THE VARI|
00002D70: 4F 55 53 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 |OUS");.SLOW;..("|
00002D80: 46 49 4C 54 45 52 49 4E 47 20 41 4E 44 20 53 50 |FILTERING AND SP|
00002D90: 45 43 49 41 4C 20 45 46 46 45 43 54 53 2E 22 29 |ECIAL EFFECTS.")|
00002DA0: 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D4 55 52 4E 20 |;.SLOW;..(".URN |
00002DB0: 55 50 20 54 48 45 20 56 4F 4C 55 4D 45 20 4E 4F |UP THE VOLUME NO|
00002DC0: 57 20 54 4F 20 48 45 41 52 20 41 20 53 41 4D 50 |W TO HEAR A SAMP|
00002DD0: 4C 45 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 4F |LE");.SLOW;..("O|
00002DE0: 46 20 49 54 20 49 4E 20 4F 50 45 52 41 54 49 4F |F IT IN OPERATIO|
00002DF0: 4E 20 2E 2E 2E 2E 2E 22 29 3B 0D 53 4C 4F 57 3B |N .....");.SLOW;|
00002E00: 0D FF 3B 0D 54 55 4E 45 3B 0D 89 3B 0D 0D 0D 28 |..;.TUNE;..;...(|
00002E10: 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |*---------------|
00002E20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E30: 2A 29 0D 88 20 28 2A 10 82 4D 41 49 4E 20 50 52 |*).. (*..MAIN PR|
00002E40: 4F 47 52 41 4D 10 82 2A 29 0D 98 0D 10 83 49 4E |OGRAM..*).....IN|
00002E50: 49 54 3B 0D 10 83 42 52 49 4E 47 5F 50 41 53 43 |IT;...BRING_PASC|
00002E60: 41 4C 3B 0D 10 83 50 41 47 45 31 3B 0D 10 83 50 |AL;...PAGE1;...P|
00002E70: 41 47 45 32 3B 0D 10 83 50 41 47 45 33 3B 0D 10 |AGE2;...PAGE3;..|
00002E80: 83 42 49 54 4D 41 50 5F 44 45 4D 4F 3B 0D 10 83 |.BITMAP_DEMO;...|
00002E90: 53 4F 55 4E 44 5F 44 45 4D 4F 3B 0D 99 46 41 4C |SOUND_DEMO;..FAL|
00002EA0: 53 45 3B 0D 89 2E 0D 00 00 00 4E A9 FE 29 24 C9 |SE;.......N..)$.|
00002EB0: 7C 0E 20 2F 20 0A BE 0C 6D C6 19 ||. / ...m.. |
EMENT....-------------------------------
.*).. ....CR = 13;...HOME = 147;...DISAB
LE_CASE = 8;...PERIOD = 100; (* DEMO SPE
ED *)...TRUE = 1;..FALSE = 0;...ON = TRU
E; OFF = FALSE;..(*----- .CONSTANTS ----
--*)...COLOUR = 1;...POINTIT = 2;...EXPA
NDX = 4;...EXPANDY = 5;...BEHINDBK = 6;.
..ACTIVE = 7;....BORDER = 11;...BACKGND
= 12;...CHARCOLOUR = 10;...DISPLAYSCREEN
= 6;...BITMAP = 1;...MULTICOLOUR = 2;..
.CHARGENBASE = 8;..(*----------- COLOURS
----------*)....BLACK = 0;...WHITE = 1;
...RED = 2;...CYAN = 3;...PURPLE = 4;...
GREEN = 5;...BLUE = 6;...YELLOW = 7;...O
RANGE = 8;...BROWN = 9;...LIGHT_RED = 10
;...DARK_GREY = 11;...MEDIUM_GREY = 12;.
..LIGHT_GREEN = 13;...LIGHT_BLUE = 14;..
.LIGHT_GREY = 15;...(*------- NOTE FREQU
ENCIES -----*)..C = 34334;.D = 38539;.E
= 43258;.F = 45830;.FS = 48556;.G = 5144
3;.A = 57743;.B = 64814;..(*--- .EFFECTS
CONSTANTS --*)..VOLUME = 4;.CUTOFFVOICE
3 = 9;.FREQUENCY = 1;.ATTACK = 4;.DECAY
= 5;.SUSTAIN = 6;.RELEASE = 7;.PLAYIT =
8;.TRIANGLE = 11;.SAWTOOTH = 12;.NOISE =
14;..(*---- GLOBAL VARIABLES -----*)...
I,J,...GPASCAL_COLOUR,...ROUND : .;...PO
INT,...SCOL,...POSN : .[8] ..;...SET_COL
OURS (BACK,FORE);.(*********************
***********)......(BORDER, BACK,...BACKG
ND, BACK,...CHARCOLOUR, FORE)..;...INIT;
.(*************)...(*-------------------
------------..THE SCREEN, SET BACKGROUND
..BORDER .BLACK, DISABLE ..SHIFTING (AS
TEXT IS IN UPPER ..LOWER .), .DEFINE OUR
..SHAPES..------------------------------
--*)..(.(HOME));..(24,1);.SET_COLOURS (B
LACK, WHITE);..(.(DISABLE_CASE));..(128,
..(*..'G'..*)...$FFFFF0, $C00030, $CFFFF
0,...$CC0000, $CC0000, $CC0000,...$CC3FF
0, $CC3030, $CC3F30,...$CC0330, $CC0330,
$CFFF30,...$C00030, $FFFFF0);..(129,..(
*..'-'..*)...0,0,0,0,0,0,0,...$FF0000, $
C30000, $FF0000);..(130,..(*..'P'..*)...
$FFFFF0, $C00030, $CFFF30,...$CC0330, $C
C0330, $CC0330,...$CFFF30, $C00030, $CFF
FF0,...$CC0000, $CC0000, $CC0000,...$CC0
000, $FC0000);..(131,..(*..'A'..*)...$FF
FFF0, $C00030, $CFFF30,...$CC0330, $CC03
30, $CC0330,...$CC0330, $CFFF30, $C00030
,...$CFFF30, $CC0330, $CC0330,...$CC0330
, $FC03F0);..(132,..(*..'S'..*)...$FFFFF
0, $C00030, $CFFFF0,...$CC0000, $CC0000,
$CFFFF0,...$C00030, $FFFF30, $000330,..
.$000330, $000330, $FFFF30,...$C00030, $
FFFFF0);..(133,..(*..'C'..*)...$FFFFC0,
$C000C0, $CFFFC0,...$CC0000, $CC0000, $C
C0000,...$CC0000, $CC0000, $CC0000,...$C
C0000, $CC0000, $CFFFC0,...$C000C0, $FFF
FC0);..(134,..(*..'L'..*)...$FC0000, $CC
0000, $CC0000,...$CC0000, $CC0000, $CC00
00,...$CC0000, $CC0000, $CC0000,...$CC00
00, $CC0000, $CFFF00,...$C00300, $FFFF00
);..(135,..(*..MAN 1 *)...0,...$008000,
$01C000, $01C000,...$018000, $038000, $0
78000,...$036000, $038000, $06C000,...$0
6C000);..(136,..(*..MAN 2 *)...$008000,
$01C000, $01C000,...$0F8000, $09F000, $0
30000,...$030000, $07C000, $0EE000,...$1
C6000, $180000);..(137,..(*..MAN 3 *)...
0,...$008000, $01C000, $01C000,...$07800
0, $09C000, $133000,...$030000, $038000,
$1EE000,...$006000, $006000);..(138,..(
*..MAN 4 *)...$008000, $01C000, $01C000,
...$008000, $03E000, $05D000,...$05D000,
$05D000, $01C000,...$014000, $014000, $
036000);..(139,..(*..MAN 5 *)...$008000,
$01C000, $01C000,...$008000, $03E000, $
05D000,...$01D000, $01C000, $014000,...$
016000, $010000, $030000);..(140,..(*..M
AN 6 *)...$008000, $01C000, $01C000,...$
008000, $03E000, $05D000,...$05C000, $01
C000, $014000,...$034000, $004000, $0060
00);..(32,..(* BAT 1 *)...$02040, $0F6F0
, $3FFFC,...$6FFF6, $85FA1, $00600);..(3
3,..(* BAT 2 *)...$02040, $06660, $06F60
,...$0FFF0, $13FC8, $00600);..(34,..(* B
AT 3 *)...$01080, $036C0, $03FC0,...$05F
A0, $01680, $00600);..;....PAUSE (X);.(*
*****************)......(3, X)..;...SLOW
;.(*************).....PAUSE (PERIOD);...
...;...FANCY;.(**************)..I, X : .
;.....GPASCAL_COLOUR := GPASCAL_COLOUR..
.+ 1;....GPASCAL_COLOUR .7 ....0: X := W
HITE;...1: X := CYAN;...2: X := YELLOW;.
..3: X := MEDIUM_GREY;...4: X := LIGHT_G
REEN;...5: X := LIGHT_BLUE;...6: X := LI
GHT_GREY....;....I := 1 .8 .....(I, COLO
UR, X);...SLOW..;...PLAY (VC, NOTE, LENG
TH);.(********************************).
...(VC, PLAYIT, OFF,...VC, FREQUENCY, NO
TE .2,...VC, PLAYIT, ON);..LENGTH > 0 ..
..PAUSE (LENGTH * 25)..;...TUNE;.(******
*******)...(*---------------------.PLAY
OUR BACH PIECE..---------------------*).
.(VOLUME, 15);.PAUSE (20);..I := 1 .3 ..
...(I, ATTACK, 2,...I, DECAY, 10,...I, S
USTAIN, 10,...I, RELEASE, 2,...I, TRIANG
LE, ON);...ROUND := 1 .2 .......(*..BAR
1..*)...PLAY (1, D, 0);...PLAY (2, B .2,
0);...PLAY (3, G .2, 2);...PLAY (1, G .
1, 1);...PLAY (1, A .1, 1);...PLAY (1, B
.1, 0);...PLAY (2, A .2, 1);...PLAY (1,
C, 1);...(*..BAR 2..*)....(3, PLAYIT, O
FF);...PLAY (2, B .2, 0);...PLAY (1, D,
2);...PLAY (1, G .1, 2);...PLAY (1, G .1
, 2);...(*..BAR 3..*)...PLAY (2, C .1, 0
);...PLAY (1, E, 2);...PLAY (1, C, 1);..
.PLAY (1, D, 1);...PLAY (1, E, 1);...PLA
Y (1, FS, 1);...(*..BAR 4..*)...PLAY (2,
B .2, 0);...PLAY (1, G, 2);...PLAY (1,
G .1, 2);...PLAY (1, G .1, 2);...(*..BAR
5..*)...PLAY (2, A .2, 0);...PLAY (1, C
, 2);...PLAY (1, D, 1);...PLAY (1, C, 1)
;...PLAY (1, B .1, 1);...PLAY (1, A .1,
1);...(*..BAR 6..*)...PLAY (2, G .2, 0);
...PLAY (1, B .1, 2);...PLAY (1, C, 1);.
..PLAY (1, B .1, 1);...PLAY (1, A .1, 1)
;...PLAY (1, G .1, 1);....ROUND = 1 ....
....(*..BAR 7..*)...PLAY (2, D .1, 0);..
.PLAY (1, FS .1, 2);...PLAY (2, B .2, 0)
;...PLAY (1, G .1, 1);...PLAY (1, A .1,
1);...PLAY (2, G .2, 0);...PLAY (1, B .1
, 1);...PLAY (1, G .1, 1);...(*..BAR 8..
*)...PLAY (2, D .1, 0);...PLAY (1, A .1,
2);...PLAY (2, D .2, 1);...PLAY (2, C .
1, 1);...PLAY (2, B .2, 1);...PLAY (2, A
.2, 1);...............(*..BAR 15..*)...
PLAY (2, C .1, 0);...PLAY (1, A .1, 2);.
..PLAY (2, D .1, 0);...PLAY (1, B .1, 1)
;...PLAY (1, A .1, 1);...PLAY (2, D .2,
0);...PLAY (1, G .1, 1);...PLAY (1, FS .
1, 1);...(*..BAR 16..*)...PLAY (2, G .2,
0);...PLAY (1, G .1, 4);...PLAY (2, G .
3, 2);....;..;..I := 1 .3 .....(I, PLAYI
T, OFF);.PAUSE ( 100);..(VOLUME, 0)..;..
.MOVE_PASCAL (WHICH, NEWX,...NEWY, MOVES
);.(*******************)...(*-----------
--------------------.MOVE THE NOMINATED
.FROM ITS.CURRENT POSITION .THE NEW X ..
Y COORDINATES, IN THE NOMINATED.NUMBER .
MOVES..--------------------------------*
)....(WHICH,....(WHICH),....(WHICH),...(
NEWX - .(WHICH))...* 256 / MOVES,...(NEW
Y - .(WHICH))...* 256 / MOVES,...MOVES).
.;...BRING_PASCAL;.(********************
*)...FLASH_BORDER;.(********************
*)...I := 1;.....I := I + 1;....(290);..
..(BORDER, I);...PAUSE (15);...(8) = 0;.
.;... (* BRING_PASCAL *)..(8, 1);..(CHAR
COLOUR, PURPLE);..("THIS DEMONSTRATION P
ROGRAM IS WRITTEN");.SLOW;..("ENTIRELY I
N G-PASCAL. IT DOES NOT USE");.SLOW;..(
"ANY PEEKS, POKES (OR SIMILAR), OR");.S
LOW;..("MACHINE-CODE SUBROUTINES.");.SLO
W;..(1, 7, 32, 33, 34, 33);..(1, EXPANDX
, OFF,...1, COLOUR, BLUE,...1, EXPANDY,
OFF);..(1,0,130,180, 0, 500);....(1) = 0
;..(1, ACTIVE, OFF);.(*-----------------
-------------.DEFINE EACH LETTER (IN G-P
ASCAL)..ITS POSITION ON THE LINE, ITS..P
OINTER (THE LETTER 'A'.OCCURS TWICE) .IT
S COLOUR..------------------------------
-*).POSN [1] := 25;.POSN [2] := 70;.POSN
[3] := 90;.POSN [4] := 135;.POSN [5] :=
180;.POSN [6] := 225;.POSN [7] := 265;.
POSN [8] := 310;.POINT [1] := 128;.POINT
[2] := 129;.POINT [3] := 130;.POINT [4]
:= 131;.POINT [5] := 132;.POINT [6] :=
133;.POINT [7] := 131;.POINT [8] := 134;
.SCOL [1] := 3;.SCOL [2] := 4;.SCOL [3]
:= 7;.SCOL [4] := 8;.SCOL [5] := 10;.SCO
L [6] := 11;.SCOL [7] := 12;.SCOL [8] :=
13;..I := 1 .8 .....(I, COLOUR, SCOL [I
],...I, POINTIT, POINT [I],...I, BEHINDB
K, ON,...I, EXPANDX, ON,...I, EXPANDY, O
N);..I := 1 .8 .....(I, 0, 220, 256,...0
, 150);.FLASH_BORDER;..(.(HOME));..I :=
1 .8......MOVE_PASCAL (I, POSN [I], 55,.
..300);.FLASH_BORDER;.PAUSE (100);.SET_C
OLOURS (BLACK, YELLOW);..;...PAGE1;.(***
***********)...INTRO;.(**************)..
..(10, 1);...("THE COMPILER WHICH SUPPOR
TS ALL OF THE");...("FEATURES OF YOUR CO
MMODORE 64 ...");..;..;... (* PAGE1 *).I
NTRO;..I := 1 .500 .......(I .8 + 1, COL
OUR,...I .15 + 1);....(250);..;..SET_COL
OURS (BLUE, LIGHT_GREEN);.INTRO;.GPASCAL
_COLOUR := 5;..("* SPRITES");.FANCY;..(
"* GRAPHICS");.FANCY;..("* SOUND EFFEC
TS");.FANCY;..("* CLOCK");.FANCY;..("*
INTERVAL TIMER");.FANCY;..("* CURSOR P
OSITIONING");.FANCY;..("* PADDLES");.FA
NCY;..I := 1 .8......MOVE_PASCAL (I, 300
,...23 - (28 * (I > 2)) + I * 28,...200)
;..(2, ACTIVE, OFF);..("* JOYSTICKS");
FANCY;..;..(2, 5, 135, 136,...137);..(2,
EXPANDX, OFF,...2, EXPANDY, OFF,...2, B
EHINDBK, OFF,...2, COLOUR, WHITE);..(2,
50, 225, 256,...0, 240);...("* SMOOTH S
CROLLING");.FANCY;..("* COLLISION DETEC
TION");.FANCY;..("* ANIMATION");......(
2);..I := 1 .8 .....I <> 2 ....MOVE_PASC
AL (I, .(I),...195, 50);.....(8);..(2, .
(2),....(2),...256, 0, 20);.....(2);..(2
, 5, 139, 138,...140, 138);..I := 1 .8 .
....(I, .(I),....(I),...0, -128, 400);..
..(8) = 0;..I := 1 .8 .....(I, ACTIVE, O
FF);.SET_COLOURS (ORANGE, RED);..;...PAG
E2;.(**************)....(.(HOME));..("
SPRITES");....("
.......");.SLOW;..("SPRITES CAN EASI
LY BE DEFINED USING THE");.SLOW;..("DEFI
NESPRITE COMMAND.");.SLOW;..("THEY CAN B
E MOVED AUTOMATICALLY FROM");.SLOW;..("P
LACE TO PLACE USING THE MOVESPRITE");.SL
OW;..("COMMAND.");.SLOW;..("THEY CAN BE
ANIMATED, TOO, USING THE");.SLOW;..("ANI
MATESPRITE COMMAND, LIKE THIS ...");.SLO
W;..;..(2, 5, 135, 136,...137);..(2, COL
OUR, BROWN,...2, BEHINDBK, ON);..(2, 0,
150, 256,...0, 370);.....(2);..(2, ACTIV
E, OFF);..("SPRITES CAN BE EASILY EXPAND
ED IN THE");.SLOW;..("X AND Y DIRECTIONS
. THEY CAN BE PLACED");.SLOW;..("IN FRON
T OF OR BEHIND THE BACKGROUND.");.SLOW;.
.("YOU CAN EASILY ESTABLISH A SPRITE'S")
;.SLOW;..("CURRENT POSITION ON THE SCREE
N, AND");.SLOW;..("WHETHER OR NOT IT IS
MOVING.");.PAUSE (500);..;...PAGE3;.(***
***********)....(.(HOME));..("
SPRITES");....(" ....
..."); SLOW;..("G-PASCAL CAN AUTOMATICAL
LY STOP TWO");.SLOW;..("SPRITES THE INST
ANT THAT THEY COLLIDE,");.SLOW;..("LIKE
THIS ... ");..(3);..I := 1 .2 .....(I, C
OLOUR, RED,...I, POINTIT, 128,...I, EXPA
NDX, ON,...I, EXPANDY, ON);..(1, 0, 150,
256, 0, 370);..(2, 390, 150, -256, 0, 3
70);....;.SET_COLOURS (LIGHT_RED, YELLOW
);.PAUSE (500);..;...BITMAP_DEMO;.(*****
***************)....I := 1 .8 .....(I, A
CTIVE, OFF);...(.(HOME));.SET_COLOURS (R
ED, YELLOW);..(" BIT MAP GRAPHICS
");..(" ................");.SLOW;
..("G-PASCAL SUPPORTS BIT-MAPPED");.SLOW
;..("(HIGH-RESOLUTION) GRAPHICS WITH THE
");.SLOW;..("PLOT COMMAND WHICH ALLOWS P
OINTS TO");.SLOW;..("BE EASILY PLOTTED I
N BIT-MAP MODE");.SLOW;..; .;..("WATCH T
HIS ...");..;.PAUSE (200);..(BORDER, BLA
CK, BACKGND, BLACK,...DISPLAYSCREEN, OFF
,...MULTICOLOUR, ON,...BITMAP, ON,...CHA
RGENBASE, 4);..(.(HOME));..(CHARCOLOUR,
LIGHT_GREEN);..I := 1 .100.......("
");..(BLUE, BROWN);..(DISPLAYSCREEN
, ON);..I := 1 .4 .......(I, 7, 32, 33,
34, 33);....(I, EXPANDX, OFF,...I, EXPAN
DY, OFF);....(I,20,40,60 * I,40,...1000
/ I);..;..I := 1 .157 .......(1, I, I);.
...(1, I, I + 1);....(1, I, I + 2);..;..
I := 157 .1 .......(2, I, 159 - I);....(
2, I, 158 - I);....(2, I, 157 - I);..;..
I := 1 .159 .......(3, 1, I);....(3, 2,
I);....(3, 158, I);....(3, 159, I);..;..
I := 1 .159 .......(3, I, 1);....(3, I,
2);....(3, I, 158);....(3, I, 159);..;..
...(1);..I := 1 .4 .....(I, ACTIVE, OFF)
;..(DISPLAYSCREEN,OFF,...BORDER, RED,...
BACKGND, RED,...BITMAP, OFF,...MULTICOLO
UR, OFF,...CHARGENBASE, 3);..;...SOUND_D
EMO;.(*******************)....(.(HOME));
..(DISPLAYSCREEN, ON);.SET_COLOURS (RED,
YELLOW);...(" SOUND EFFECTS")
;..(" .............");.SLOW;..
("G-PASCAL PROVIDES EXTENSIVE SUPPORT FO
R");.SLOW;..("THE SID CHIP (SOUND INTERF
ACE DEVICE)");.SLOW;..("IN YOUR COMMODOR
E 64. THE ATTRIBUTES OF");.SLOW;..("EACH
INDIVIDUAL VOICE ARE EASILY");.SLOW;..(
"CONTROLLED, AS WELL AS THE VARIOUS");.S
LOW;..("FILTERING AND SPECIAL EFFECTS.")
;.SLOW;..("TURN UP THE VOLUME NOW TO HEA
R A SAMPLE");.SLOW;..("OF IT IN OPERATIO
N .....");.SLOW;..;.TUNE;..;...(*-------
------------------------*).. (*..MAIN PR
OGRAM..*).....INIT;...BRING_PASCAL;...PA
GE1;...PAGE2;...PAGE3;...BITMAP_DEMO;...
SOUND_DEMO;..FALSE;.......N..)$I|. / ...
MF.
> CLICK IMAGE PREVIEW FOR FULL MODAL