DEMO
FILE INFORMATION
FILENAME(S): DEMO
FILE TYPE(S): PRG
FILE SIZE: 12.1K
FIRST SEEN: 2025-11-30 19:35:16
APPEARS ON: 1 disk(s)
FILE HASH
ce3e8a74472c587a381de86ef84506568ed074bd08a09c41841020a099585e65
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ACME A | DEMO | PRG | Curtcool, bitbear | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 40 28 2A 20 25 41 20 24 38 43 30 20 2A 29 0D |.@(* %A $8C0 *).|
00000010: 28 2A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |(* -------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000030: 2D 2D 0D 10 83 C3 CF CD CD CF C4 CF D2 C5 20 36 |--............ 6|
00000040: 34 20 2D 0D 10 84 C7 2D D0 41 53 43 41 4C 20 C4 |4 -....-.ASCAL .|
00000050: 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 D0 52 4F |EMONSTRATION .RO|
00000060: 47 52 41 4D 0D 10 83 2D 2D 2D 2D 2D 2D 2D 2D 2D |GRAM...---------|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000080: 2D 2D 2D 2D 2D 2D 0D 10 83 D7 52 49 54 54 45 4E |------....RITTEN|
00000090: 20 42 59 20 CE 49 43 4B 20 C7 41 4D 4D 4F 4E 2E | BY .ICK .AMMON.|
000000A0: 0D 10 83 D3 45 50 54 45 4D 42 45 52 20 31 39 38 |....EPTEMBER 198|
000000B0: 33 2E 0D 10 83 D0 55 42 4C 49 43 20 C4 4F 4D 41 |3.....UBLIC .OMA|
000000C0: 49 4E 2E 0D 10 83 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |IN....----------|
000000D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000E0: 2D 2D 2D 2D 2D 0D 10 83 D4 48 45 20 D0 2D 43 4F |-----....HE .-CO|
000000F0: 44 45 53 20 41 52 45 20 50 4C 41 43 45 44 20 41 |DES ARE PLACED A|
00000100: 54 0D 10 83 A9 24 38 C3 30 20 28 53 45 45 20 4C |T....$8.0 (SEE L|
00000110: 49 4E 45 20 31 20 41 42 4F 56 45 29 0D 10 83 53 |INE 1 ABOVE)...S|
00000120: 4F 20 41 53 20 9B 41 4C 4C 4F 57 20 50 4C 45 4E |O AS .ALLOW PLEN|
00000130: 54 59 20 85 0D 10 83 43 4F 4D 4D 45 4E 54 53 20 |TY ....COMMENTS |
00000140: 49 4E 20 54 48 45 20 50 52 4F 47 52 41 4D 2E 20 |IN THE PROGRAM. |
00000150: 92 59 4F 55 0D 10 83 41 44 44 20 9B 54 48 49 53 |.YOU...ADD .THIS|
00000160: 20 50 52 4F 47 52 41 4D 2C 20 4D 41 4B 45 20 53 | PROGRAM, MAKE S|
00000170: 55 52 45 0D 10 83 54 48 41 54 20 54 48 45 20 D0 |URE...THAT THE .|
00000180: 2D 43 4F 44 45 53 20 97 90 45 58 43 45 45 44 0D |-CODES ..EXCEED.|
00000190: 10 83 A9 24 32 30 30 30 20 28 53 45 45 20 4D 45 |...$2000 (SEE ME|
000001A0: 53 53 41 47 45 20 41 54 0D 10 83 89 85 43 4F 4D |SSAGE AT.....COM|
000001B0: 50 49 4C 45 29 20 8A 54 48 45 20 89 85 0D 10 83 |PILE) .THE .....|
000001C0: 54 48 45 20 50 52 4F 47 52 41 4D 20 57 49 4C 4C |THE PROGRAM WILL|
000001D0: 20 42 45 20 44 45 53 54 52 4F 59 45 44 0D 10 83 | BE DESTROYED...|
000001E0: 42 59 20 A5 53 54 41 54 45 4D 45 4E 54 53 20 8D |BY .STATEMENTS .|
000001F0: 0D 10 83 54 48 45 20 A8 53 54 41 54 45 4D 45 4E |...THE .STATEMEN|
00000200: 54 2E 0D 10 83 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T....-----------|
00000210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000220: 2D 2D 2D 2D 0D 2A 29 0D 0D 20 82 0D 10 85 43 52 |----.*).. ....CR|
00000230: 20 3D 20 31 33 3B 0D 10 85 48 4F 4D 45 20 3D 20 | = 13;...HOME = |
00000240: 31 34 37 3B 0D 10 85 44 49 53 41 42 4C 45 5F 43 |147;...DISABLE_C|
00000250: 41 53 45 20 3D 20 38 3B 0D 10 85 50 45 52 49 4F |ASE = 8;...PERIO|
00000260: 44 20 3D 20 31 30 30 3B 20 28 2A 20 44 45 4D 4F |D = 100; (* DEMO|
00000270: 20 53 50 45 45 44 20 2A 29 0D 10 85 54 52 55 45 | SPEED *)...TRUE|
00000280: 20 3D 20 31 3B 10 82 46 41 4C 53 45 20 3D 20 30 | = 1;..FALSE = 0|
00000290: 3B 0D 10 85 4F 4E 20 3D 20 54 52 55 45 3B 20 4F |;...ON = TRUE; O|
000002A0: 46 46 20 3D 20 46 41 4C 53 45 3B 0D 0D 28 2A 2D |FF = FALSE;..(*-|
000002B0: 2D 2D 2D 2D 20 E2 43 4F 4E 53 54 41 4E 54 53 20 |---- .CONSTANTS |
000002C0: 2D 2D 2D 2D 2D 2D 2A 29 0D 10 85 43 4F 4C 4F 55 |------*)...COLOU|
000002D0: 52 20 3D 20 31 3B 0D 10 85 50 4F 49 4E 54 49 54 |R = 1;...POINTIT|
000002E0: 20 3D 20 32 3B 0D 10 85 45 58 50 41 4E 44 58 20 | = 2;...EXPANDX |
000002F0: 3D 20 34 3B 0D 10 85 45 58 50 41 4E 44 59 20 3D |= 4;...EXPANDY =|
00000300: 20 35 3B 0D 10 85 42 45 48 49 4E 44 42 4B 20 3D | 5;...BEHINDBK =|
00000310: 20 36 3B 0D 10 85 41 43 54 49 56 45 20 3D 20 37 | 6;...ACTIVE = 7|
00000320: 3B 0D 0D 10 85 42 4F 52 44 45 52 20 3D 20 31 31 |;....BORDER = 11|
00000330: 3B 0D 10 85 42 41 43 4B 47 4E 44 20 3D 20 31 32 |;...BACKGND = 12|
00000340: 3B 0D 10 85 43 48 41 52 43 4F 4C 4F 55 52 20 3D |;...CHARCOLOUR =|
00000350: 20 31 30 3B 0D 10 85 44 49 53 50 4C 41 59 53 43 | 10;...DISPLAYSC|
00000360: 52 45 45 4E 20 3D 20 36 3B 0D 10 85 42 49 54 4D |REEN = 6;...BITM|
00000370: 41 50 20 3D 20 31 3B 0D 10 85 4D 55 4C 54 49 43 |AP = 1;...MULTIC|
00000380: 4F 4C 4F 55 52 20 3D 20 32 3B 0D 10 85 43 48 41 |OLOUR = 2;...CHA|
00000390: 52 47 45 4E 42 41 53 45 20 3D 20 38 3B 0D 0D 28 |RGENBASE = 8;..(|
000003A0: 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 20 43 4F 4C |*----------- COL|
000003B0: 4F 55 52 53 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A |OURS ----------*|
000003C0: 29 0D 0D 10 85 42 4C 41 43 4B 20 3D 20 30 3B 0D |)....BLACK = 0;.|
000003D0: 10 85 57 48 49 54 45 20 3D 20 31 3B 0D 10 85 52 |..WHITE = 1;...R|
000003E0: 45 44 20 3D 20 32 3B 0D 10 85 43 59 41 4E 20 3D |ED = 2;...CYAN =|
000003F0: 20 33 3B 0D 10 85 50 55 52 50 4C 45 20 3D 20 34 | 3;...PURPLE = 4|
00000400: 3B 0D 10 85 47 52 45 45 4E 20 3D 20 35 3B 0D 10 |;...GREEN = 5;..|
00000410: 85 42 4C 55 45 20 3D 20 36 3B 0D 10 85 59 45 4C |.BLUE = 6;...YEL|
00000420: 4C 4F 57 20 3D 20 37 3B 0D 10 85 4F 52 41 4E 47 |LOW = 7;...ORANG|
00000430: 45 20 3D 20 38 3B 0D 10 85 42 52 4F 57 4E 20 3D |E = 8;...BROWN =|
00000440: 20 39 3B 0D 10 85 4C 49 47 48 54 5F 52 45 44 20 | 9;...LIGHT_RED |
00000450: 3D 20 31 30 3B 0D 10 85 44 41 52 4B 5F 47 52 45 |= 10;...DARK_GRE|
00000460: 59 20 3D 20 31 31 3B 0D 10 85 4D 45 44 49 55 4D |Y = 11;...MEDIUM|
00000470: 5F 47 52 45 59 20 3D 20 31 32 3B 0D 10 85 4C 49 |_GREY = 12;...LI|
00000480: 47 48 54 5F 47 52 45 45 4E 20 3D 20 31 33 3B 0D |GHT_GREEN = 13;.|
00000490: 10 85 4C 49 47 48 54 5F 42 4C 55 45 20 3D 20 31 |..LIGHT_BLUE = 1|
000004A0: 34 3B 0D 10 85 4C 49 47 48 54 5F 47 52 45 59 20 |4;...LIGHT_GREY |
000004B0: 3D 20 31 35 3B 0D 0D 0D 28 2A 2D 2D 2D 2D 2D 2D |= 15;...(*------|
000004C0: 2D 20 4E 4F 54 45 20 46 52 45 51 55 45 4E 43 49 |- NOTE FREQUENCI|
000004D0: 45 53 20 2D 2D 2D 2D 2D 2A 29 0D 0D 43 20 3D 20 |ES -----*)..C = |
000004E0: 33 34 33 33 34 3B 0D 44 20 3D 20 33 38 35 33 39 |34334;.D = 38539|
000004F0: 3B 0D 45 20 3D 20 34 33 32 35 38 3B 0D 46 20 3D |;.E = 43258;.F =|
00000500: 20 34 35 38 33 30 3B 0D 46 53 20 3D 20 34 38 35 | 45830;.FS = 485|
00000510: 35 36 3B 0D 47 20 3D 20 35 31 34 34 33 3B 0D 41 |56;.G = 51443;.A|
00000520: 20 3D 20 35 37 37 34 33 3B 0D 42 20 3D 20 36 34 | = 57743;.B = 64|
00000530: 38 31 34 3B 0D 0D 28 2A 2D 2D 2D 20 E3 45 46 46 |814;..(*--- .EFF|
00000540: 45 43 54 53 20 43 4F 4E 53 54 41 4E 54 53 20 2D |ECTS CONSTANTS -|
00000550: 2D 2A 29 0D 0D 56 4F 4C 55 4D 45 20 3D 20 34 3B |-*)..VOLUME = 4;|
00000560: 0D 43 55 54 4F 46 46 56 4F 49 43 45 33 20 3D 20 |.CUTOFFVOICE3 = |
00000570: 39 3B 0D 46 52 45 51 55 45 4E 43 59 20 3D 20 31 |9;.FREQUENCY = 1|
00000580: 3B 0D 41 54 54 41 43 4B 20 3D 20 34 3B 0D 44 45 |;.ATTACK = 4;.DE|
00000590: 43 41 59 20 3D 20 35 3B 0D 53 55 53 54 41 49 4E |CAY = 5;.SUSTAIN|
000005A0: 20 3D 20 36 3B 0D 52 45 4C 45 41 53 45 20 3D 20 | = 6;.RELEASE = |
000005B0: 37 3B 0D 50 4C 41 59 49 54 20 3D 20 38 3B 0D 54 |7;.PLAYIT = 8;.T|
000005C0: 52 49 41 4E 47 4C 45 20 3D 20 31 31 3B 0D 53 41 |RIANGLE = 11;.SA|
000005D0: 57 54 4F 4F 54 48 20 3D 20 31 32 3B 0D 4E 4F 49 |WTOOTH = 12;.NOI|
000005E0: 53 45 20 3D 20 31 34 3B 0D 0D 28 2A 2D 2D 2D 2D |SE = 14;..(*----|
000005F0: 20 47 4C 4F 42 41 4C 20 56 41 52 49 41 42 4C 45 | GLOBAL VARIABLE|
00000600: 53 20 2D 2D 2D 2D 2D 2A 29 0D 0D 83 49 2C 4A 2C |S -----*)...I,J,|
00000610: 0D 10 84 47 50 41 53 43 41 4C 5F 43 4F 4C 4F 55 |...GPASCAL_COLOU|
00000620: 52 2C 0D 10 84 52 4F 55 4E 44 20 3A 20 FE 3B 0D |R,...ROUND : .;.|
00000630: 10 84 50 4F 49 4E 54 2C 0D 10 84 53 43 4F 4C 2C |..POINT,...SCOL,|
00000640: 0D 10 84 50 4F 53 4E 3A 84 5B 31 30 5D 20 85 FE |...POSN:.[10] ..|
00000650: 3B 0D 86 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 |;..SET_COLOURS (|
00000660: 42 41 43 4B 2C 46 4F 52 45 29 3B 0D 28 2A 2A 2A |BACK,FORE);.(***|
00000670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 |*************)..|
00000690: 0D 10 82 E2 28 42 41 43 4B 47 4E 44 2C 20 42 41 |....(BACKGND, BA|
000006A0: 43 4B 2C 0D 10 8C 43 48 41 52 43 4F 4C 4F 55 52 |CK,...CHARCOLOUR|
000006B0: 2C 20 46 4F 52 45 29 0D 89 3B 0D 0D 86 49 4E 49 |, FORE)..;...INI|
000006C0: 54 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |T;.(************|
000006D0: 2A 29 0D 88 0D 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D |*)...(*---------|
000006E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006F0: 2D 2D 2D 2D 2D 2D 0D A8 54 48 45 20 53 43 52 45 |------..THE SCRE|
00000700: 45 4E 2C 20 53 45 54 20 42 41 43 4B 47 52 4F 55 |EN, SET BACKGROU|
00000710: 4E 44 0D 8D 42 4F 52 44 45 52 20 9B 42 4C 41 43 |ND..BORDER .BLAC|
00000720: 4B 2C 20 44 49 53 41 42 4C 45 20 95 0D 53 48 49 |K, DISABLE ..SHI|
00000730: 46 54 49 4E 47 20 28 41 53 20 54 45 58 54 20 49 |FTING (AS TEXT I|
00000740: 53 20 49 4E 20 55 50 50 45 52 20 8D 0D 4C 4F 57 |S IN UPPER ..LOW|
00000750: 45 52 20 95 29 2C 20 8D 44 45 46 49 4E 45 20 4F |ER .), .DEFINE O|
00000760: 55 52 0D DF 53 48 41 50 45 53 2E 0D 2D 2D 2D 2D |UR..SHAPES..----|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 0D 9D |------------*)..|
00000790: 28 AB 28 48 4F 4D 45 29 29 3B 0D A3 28 32 34 2C |(.(HOME));..(24,|
000007A0: 31 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 20 |1);.SET_COLOURS |
000007B0: 28 42 4C 41 43 4B 2C 20 57 48 49 54 45 29 3B 0D |(BLACK, WHITE);.|
000007C0: 9D 28 AB 28 44 49 53 41 42 4C 45 5F 43 41 53 45 |.(.(DISABLE_CASE|
000007D0: 29 29 3B 0D A5 28 31 32 38 2C 10 82 28 2A 10 82 |));..(128,..(*..|
000007E0: 27 47 27 10 82 2A 29 0D 10 82 24 46 46 46 46 46 |'G'..*)...$FFFFF|
000007F0: 30 2C 20 24 43 30 30 30 33 30 2C 20 24 43 46 46 |0, $C00030, $CFF|
00000800: 46 46 30 2C 0D 10 82 24 43 43 30 30 30 30 2C 20 |FF0,...$CC0000, |
00000810: 24 43 43 30 30 30 30 2C 20 24 43 43 30 30 30 30 |$CC0000, $CC0000|
00000820: 2C 0D 10 82 24 43 43 33 46 46 30 2C 20 24 43 43 |,...$CC3FF0, $CC|
00000830: 33 30 33 30 2C 20 24 43 43 33 46 33 30 2C 0D 10 |3030, $CC3F30,..|
00000840: 82 24 43 43 30 33 33 30 2C 20 24 43 43 30 33 33 |.$CC0330, $CC033|
00000850: 30 2C 20 24 43 46 46 46 33 30 2C 0D 10 82 24 43 |0, $CFFF30,...$C|
00000860: 30 30 30 33 30 2C 20 24 46 46 46 46 46 30 29 3B |00030, $FFFFF0);|
00000870: 0D A5 28 31 32 39 2C 10 82 28 2A 10 82 27 2D 27 |..(129,..(*..'-'|
00000880: 10 82 2A 29 0D 10 82 30 2C 30 2C 30 2C 30 2C 30 |..*)...0,0,0,0,0|
00000890: 2C 30 2C 30 2C 0D 10 82 24 46 46 30 30 30 30 2C |,0,0,...$FF0000,|
000008A0: 20 24 43 33 30 30 30 30 2C 20 24 46 46 30 30 30 | $C30000, $FF000|
000008B0: 30 29 3B 0D A5 28 31 33 30 2C 10 82 28 2A 10 82 |0);..(130,..(*..|
000008C0: 27 50 27 10 82 2A 29 0D 10 82 24 46 46 46 46 46 |'P'..*)...$FFFFF|
000008D0: 30 2C 20 24 43 30 30 30 33 30 2C 20 24 43 46 46 |0, $C00030, $CFF|
000008E0: 46 33 30 2C 0D 10 82 24 43 43 30 33 33 30 2C 20 |F30,...$CC0330, |
000008F0: 24 43 43 30 33 33 30 2C 20 24 43 43 30 33 33 30 |$CC0330, $CC0330|
00000900: 2C 0D 10 82 24 43 46 46 46 33 30 2C 20 24 43 30 |,...$CFFF30, $C0|
00000910: 30 30 33 30 2C 20 24 43 46 46 46 46 30 2C 0D 10 |0030, $CFFFF0,..|
00000920: 82 24 43 43 30 30 30 30 2C 20 24 43 43 30 30 30 |.$CC0000, $CC000|
00000930: 30 2C 20 24 43 43 30 30 30 30 2C 0D 10 82 24 43 |0, $CC0000,...$C|
00000940: 43 30 30 30 30 2C 20 24 46 43 30 30 30 30 29 3B |C0000, $FC0000);|
00000950: 0D A5 28 31 33 31 2C 10 82 28 2A 10 82 27 41 27 |..(131,..(*..'A'|
00000960: 10 82 2A 29 0D 10 82 24 46 46 46 46 46 30 2C 20 |..*)...$FFFFF0, |
00000970: 24 43 30 30 30 33 30 2C 20 24 43 46 46 46 33 30 |$C00030, $CFFF30|
00000980: 2C 0D 10 82 24 43 43 30 33 33 30 2C 20 24 43 43 |,...$CC0330, $CC|
00000990: 30 33 33 30 2C 20 24 43 43 30 33 33 30 2C 0D 10 |0330, $CC0330,..|
000009A0: 82 24 43 43 30 33 33 30 2C 20 24 43 46 46 46 33 |.$CC0330, $CFFF3|
000009B0: 30 2C 20 24 43 30 30 30 33 30 2C 0D 10 82 24 43 |0, $C00030,...$C|
000009C0: 46 46 46 33 30 2C 20 24 43 43 30 33 33 30 2C 20 |FFF30, $CC0330, |
000009D0: 24 43 43 30 33 33 30 2C 0D 10 82 24 43 43 30 33 |$CC0330,...$CC03|
000009E0: 33 30 2C 20 24 46 43 30 33 46 30 29 3B 0D A5 28 |30, $FC03F0);..(|
000009F0: 31 33 32 2C 10 82 28 2A 10 82 27 53 27 10 82 2A |132,..(*..'S'..*|
00000A00: 29 0D 10 82 24 46 46 46 46 46 30 2C 20 24 43 30 |)...$FFFFF0, $C0|
00000A10: 30 30 33 30 2C 20 24 43 46 46 46 46 30 2C 0D 10 |0030, $CFFFF0,..|
00000A20: 82 24 43 43 30 30 30 30 2C 20 24 43 43 30 30 30 |.$CC0000, $CC000|
00000A30: 30 2C 20 24 43 46 46 46 46 30 2C 0D 10 82 24 43 |0, $CFFFF0,...$C|
00000A40: 30 30 30 33 30 2C 20 24 46 46 46 46 33 30 2C 20 |00030, $FFFF30, |
00000A50: 24 30 30 30 33 33 30 2C 0D 10 82 24 30 30 30 33 |$000330,...$0003|
00000A60: 33 30 2C 20 24 30 30 30 33 33 30 2C 20 24 46 46 |30, $000330, $FF|
00000A70: 46 46 33 30 2C 0D 10 82 24 43 30 30 30 33 30 2C |FF30,...$C00030,|
00000A80: 20 24 46 46 46 46 46 30 29 3B 0D A5 28 31 33 33 | $FFFFF0);..(133|
00000A90: 2C 10 82 28 2A 10 82 27 43 27 10 82 2A 29 0D 10 |,..(*..'C'..*)..|
00000AA0: 82 24 46 46 46 46 43 30 2C 20 24 43 30 30 30 43 |.$FFFFC0, $C000C|
00000AB0: 30 2C 20 24 43 46 46 46 43 30 2C 0D 10 82 24 43 |0, $CFFFC0,...$C|
00000AC0: 43 30 30 30 30 2C 20 24 43 43 30 30 30 30 2C 20 |C0000, $CC0000, |
00000AD0: 24 43 43 30 30 30 30 2C 0D 10 82 24 43 43 30 30 |$CC0000,...$CC00|
00000AE0: 30 30 2C 20 24 43 43 30 30 30 30 2C 20 24 43 43 |00, $CC0000, $CC|
00000AF0: 30 30 30 30 2C 0D 10 82 24 43 43 30 30 30 30 2C |0000,...$CC0000,|
00000B00: 20 24 43 43 30 30 30 30 2C 20 24 43 46 46 46 43 | $CC0000, $CFFFC|
00000B10: 30 2C 0D 10 82 24 43 30 30 30 43 30 2C 20 24 46 |0,...$C000C0, $F|
00000B20: 46 46 46 43 30 29 3B 0D A5 28 31 33 34 2C 10 82 |FFFC0);..(134,..|
00000B30: 28 2A 10 82 27 4C 27 10 82 2A 29 0D 10 82 24 46 |(*..'L'..*)...$F|
00000B40: 43 30 30 30 30 2C 20 24 43 43 30 30 30 30 2C 20 |C0000, $CC0000, |
00000B50: 24 43 43 30 30 30 30 2C 0D 10 82 24 43 43 30 30 |$CC0000,...$CC00|
00000B60: 30 30 2C 20 24 43 43 30 30 30 30 2C 20 24 43 43 |00, $CC0000, $CC|
00000B70: 30 30 30 30 2C 0D 10 82 24 43 43 30 30 30 30 2C |0000,...$CC0000,|
00000B80: 20 24 43 43 30 30 30 30 2C 20 24 43 43 30 30 30 | $CC0000, $CC000|
00000B90: 30 2C 0D 10 82 24 43 43 30 30 30 30 2C 20 24 43 |0,...$CC0000, $C|
00000BA0: 43 30 30 30 30 2C 20 24 43 46 46 46 30 30 2C 0D |C0000, $CFFF00,.|
00000BB0: 10 82 24 43 30 30 33 30 30 2C 20 24 46 46 46 46 |..$C00300, $FFFF|
00000BC0: 30 30 29 3B 0D A5 28 31 33 35 2C 10 82 28 2A 10 |00);..(135,..(*.|
00000BD0: 82 4D 41 4E 20 31 20 2A 29 0D 10 82 30 2C 0D 10 |.MAN 1 *)...0,..|
00000BE0: 82 24 30 30 38 30 30 30 2C 20 24 30 31 43 30 30 |.$008000, $01C00|
00000BF0: 30 2C 20 24 30 31 43 30 30 30 2C 0D 10 82 24 30 |0, $01C000,...$0|
00000C00: 31 38 30 30 30 2C 20 24 30 33 38 30 30 30 2C 20 |18000, $038000, |
00000C10: 24 30 37 38 30 30 30 2C 0D 10 82 24 30 33 36 30 |$078000,...$0360|
00000C20: 30 30 2C 20 24 30 33 38 30 30 30 2C 20 24 30 36 |00, $038000, $06|
00000C30: 43 30 30 30 2C 0D 10 82 24 30 36 43 30 30 30 29 |C000,...$06C000)|
00000C40: 3B 0D A5 28 31 33 36 2C 10 82 28 2A 10 82 4D 41 |;..(136,..(*..MA|
00000C50: 4E 20 32 20 2A 29 0D 10 82 24 30 30 38 30 30 30 |N 2 *)...$008000|
00000C60: 2C 20 24 30 31 43 30 30 30 2C 20 24 30 31 43 30 |, $01C000, $01C0|
00000C70: 30 30 2C 0D 10 82 24 30 46 38 30 30 30 2C 20 24 |00,...$0F8000, $|
00000C80: 30 39 46 30 30 30 2C 20 24 30 33 30 30 30 30 2C |09F000, $030000,|
00000C90: 0D 10 82 24 30 33 30 30 30 30 2C 20 24 30 37 43 |...$030000, $07C|
00000CA0: 30 30 30 2C 20 24 30 45 45 30 30 30 2C 0D 10 82 |000, $0EE000,...|
00000CB0: 24 31 43 36 30 30 30 2C 20 24 31 38 30 30 30 30 |$1C6000, $180000|
00000CC0: 29 3B 0D A5 28 31 33 37 2C 10 82 28 2A 10 82 4D |);..(137,..(*..M|
00000CD0: 41 4E 20 33 20 2A 29 0D 10 82 30 2C 0D 10 82 24 |AN 3 *)...0,...$|
00000CE0: 30 30 38 30 30 30 2C 20 24 30 31 43 30 30 30 2C |008000, $01C000,|
00000CF0: 20 24 30 31 43 30 30 30 2C 0D 10 82 24 30 37 38 | $01C000,...$078|
00000D00: 30 30 30 2C 20 24 30 39 43 30 30 30 2C 20 24 31 |000, $09C000, $1|
00000D10: 33 33 30 30 30 2C 0D 10 82 24 30 33 30 30 30 30 |33000,...$030000|
00000D20: 2C 20 24 30 33 38 30 30 30 2C 20 24 31 45 45 30 |, $038000, $1EE0|
00000D30: 30 30 2C 0D 10 82 24 30 30 36 30 30 30 2C 20 24 |00,...$006000, $|
00000D40: 30 30 36 30 30 30 29 3B 0D A5 28 31 33 38 2C 10 |006000);..(138,.|
00000D50: 82 28 2A 10 82 4D 41 4E 20 34 20 2A 29 0D 10 82 |.(*..MAN 4 *)...|
00000D60: 24 30 30 38 30 30 30 2C 20 24 30 31 43 30 30 30 |$008000, $01C000|
00000D70: 2C 20 24 30 31 43 30 30 30 2C 0D 10 82 24 30 30 |, $01C000,...$00|
00000D80: 38 30 30 30 2C 20 24 30 33 45 30 30 30 2C 20 24 |8000, $03E000, $|
00000D90: 30 35 44 30 30 30 2C 0D 10 82 24 30 35 44 30 30 |05D000,...$05D00|
00000DA0: 30 2C 20 24 30 35 44 30 30 30 2C 20 24 30 31 43 |0, $05D000, $01C|
00000DB0: 30 30 30 2C 0D 10 82 24 30 31 34 30 30 30 2C 20 |000,...$014000, |
00000DC0: 24 30 31 34 30 30 30 2C 20 24 30 33 36 30 30 30 |$014000, $036000|
00000DD0: 29 3B 0D A5 28 31 33 39 2C 10 82 28 2A 10 82 4D |);..(139,..(*..M|
00000DE0: 41 4E 20 35 20 2A 29 0D 10 82 24 30 30 38 30 30 |AN 5 *)...$00800|
00000DF0: 30 2C 20 24 30 31 43 30 30 30 2C 20 24 30 31 43 |0, $01C000, $01C|
00000E00: 30 30 30 2C 0D 10 82 24 30 30 38 30 30 30 2C 20 |000,...$008000, |
00000E10: 24 30 33 45 30 30 30 2C 20 24 30 35 44 30 30 30 |$03E000, $05D000|
00000E20: 2C 0D 10 82 24 30 31 44 30 30 30 2C 20 24 30 31 |,...$01D000, $01|
00000E30: 43 30 30 30 2C 20 24 30 31 34 30 30 30 2C 0D 10 |C000, $014000,..|
00000E40: 82 24 30 31 36 30 30 30 2C 20 24 30 31 30 30 30 |.$016000, $01000|
00000E50: 30 2C 20 24 30 33 30 30 30 30 29 3B 0D A5 28 31 |0, $030000);..(1|
00000E60: 34 30 2C 10 82 28 2A 10 82 4D 41 4E 20 36 20 2A |40,..(*..MAN 6 *|
00000E70: 29 0D 10 82 24 30 30 38 30 30 30 2C 20 24 30 31 |)...$008000, $01|
00000E80: 43 30 30 30 2C 20 24 30 31 43 30 30 30 2C 0D 10 |C000, $01C000,..|
00000E90: 82 24 30 30 38 30 30 30 2C 20 24 30 33 45 30 30 |.$008000, $03E00|
00000EA0: 30 2C 20 24 30 35 44 30 30 30 2C 0D 10 82 24 30 |0, $05D000,...$0|
00000EB0: 35 43 30 30 30 2C 20 24 30 31 43 30 30 30 2C 20 |5C000, $01C000, |
00000EC0: 24 30 31 34 30 30 30 2C 0D 10 82 24 30 33 34 30 |$014000,...$0340|
00000ED0: 30 30 2C 20 24 30 30 34 30 30 30 2C 20 24 30 30 |00, $004000, $00|
00000EE0: 36 30 30 30 29 3B 0D A5 28 33 32 2C 10 82 28 2A |6000);..(32,..(*|
00000EF0: 20 42 41 54 20 31 20 2A 29 0D 10 82 24 30 32 30 | BAT 1 *)...$020|
00000F00: 34 30 2C 20 24 30 46 36 46 30 2C 20 24 33 46 46 |40, $0F6F0, $3FF|
00000F10: 46 43 2C 0D 10 82 24 36 46 46 46 36 2C 20 24 38 |FC,...$6FFF6, $8|
00000F20: 35 46 41 31 2C 20 24 30 30 36 30 30 29 3B 0D A5 |5FA1, $00600);..|
00000F30: 28 33 33 2C 10 82 28 2A 20 42 41 54 20 32 20 2A |(33,..(* BAT 2 *|
00000F40: 29 0D 10 82 24 30 32 30 34 30 2C 20 24 30 36 36 |)...$02040, $066|
00000F50: 36 30 2C 20 24 30 36 46 36 30 2C 0D 10 82 24 30 |60, $06F60,...$0|
00000F60: 46 46 46 30 2C 20 24 31 33 46 43 38 2C 20 24 30 |FFF0, $13FC8, $0|
00000F70: 30 36 30 30 29 3B 0D A5 28 33 34 2C 10 82 28 2A |0600);..(34,..(*|
00000F80: 20 42 41 54 20 33 20 2A 29 0D 10 82 24 30 31 30 | BAT 3 *)...$010|
00000F90: 38 30 2C 20 24 30 33 36 43 30 2C 20 24 30 33 46 |80, $036C0, $03F|
00000FA0: 43 30 2C 0D 10 82 24 30 35 46 41 30 2C 20 24 30 |C0,...$05FA0, $0|
00000FB0: 31 36 38 30 2C 20 24 30 30 36 30 30 29 3B 0D 89 |1680, $00600);..|
00000FC0: 3B 0D 0D 0D 86 50 41 55 53 45 20 28 58 29 3B 0D |;....PAUSE (X);.|
00000FD0: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |(***************|
00000FE0: 2A 2A 2A 29 0D 88 0D 10 82 E3 28 33 2C 20 58 29 |***)......(3, X)|
00000FF0: 0D 89 3B 0D 0D 86 53 4C 4F 57 3B 0D 28 2A 2A 2A |..;...SLOW;.(***|
00001000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 10 82 |**********).....|
00001010: 50 41 55 53 45 20 28 50 45 52 49 4F 44 29 3B 0D |PAUSE (PERIOD);.|
00001020: 10 82 FF 0D 89 3B 0D 0D 86 46 41 4E 43 59 3B 0D |.....;...FANCY;.|
00001030: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 |(**************)|
00001040: 0D 83 49 2C 20 58 20 3A 20 FE 3B 0D 88 0D 10 82 |..I, X : .;.....|
00001050: 47 50 41 53 43 41 4C 5F 43 4F 4C 4F 55 52 20 3A |GPASCAL_COLOUR :|
00001060: 3D 20 47 50 41 53 43 41 4C 5F 43 4F 4C 4F 55 52 |= GPASCAL_COLOUR|
00001070: 0D 10 94 2B 20 31 3B 0D 10 82 95 47 50 41 53 43 |...+ 1;....GPASC|
00001080: 41 4C 5F 43 4F 4C 4F 55 52 20 8C 37 20 85 0D 10 |AL_COLOUR .7 ...|
00001090: 83 30 3A 20 58 20 3A 3D 20 57 48 49 54 45 3B 0D |.0: X := WHITE;.|
000010A0: 10 83 31 3A 20 58 20 3A 3D 20 43 59 41 4E 3B 0D |..1: X := CYAN;.|
000010B0: 10 83 32 3A 20 58 20 3A 3D 20 59 45 4C 4C 4F 57 |..2: X := YELLOW|
000010C0: 3B 0D 10 83 33 3A 20 58 20 3A 3D 20 4D 45 44 49 |;...3: X := MEDI|
000010D0: 55 4D 5F 47 52 45 59 3B 0D 10 83 34 3A 20 58 20 |UM_GREY;...4: X |
000010E0: 3A 3D 20 4C 49 47 48 54 5F 47 52 45 45 4E 3B 0D |:= LIGHT_GREEN;.|
000010F0: 10 83 35 3A 20 58 20 3A 3D 20 4C 49 47 48 54 5F |..5: X := LIGHT_|
00001100: 42 4C 55 45 3B 0D 10 83 36 3A 20 58 20 3A 3D 20 |BLUE;...6: X := |
00001110: 4C 49 47 48 54 5F 47 52 45 59 0D 10 82 89 3B 0D |LIGHT_GREY....;.|
00001120: 10 82 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 |...I := 1 .8 ...|
00001130: 85 DF 28 49 2C 20 43 4F 4C 4F 55 52 2C 20 58 29 |..(I, COLOUR, X)|
00001140: 3B 0D 10 82 53 4C 4F 57 0D 89 3B 0D 0D 86 50 4C |;...SLOW..;...PL|
00001150: 41 59 20 28 56 43 2C 20 4E 4F 54 45 2C 20 4C 45 |AY (VC, NOTE, LE|
00001160: 4E 47 54 48 29 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A |NGTH);.(********|
00001170: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001180: 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D E1 28 56 43 |********)....(VC|
00001190: 2C 20 50 4C 41 59 49 54 2C 20 4F 46 46 2C 0D 10 |, PLAYIT, OFF,..|
000011A0: 87 56 43 2C 20 46 52 45 51 55 45 4E 43 59 2C 20 |.VC, FREQUENCY, |
000011B0: 4E 4F 54 45 20 8F 32 2C 0D 10 87 56 43 2C 20 50 |NOTE .2,...VC, P|
000011C0: 4C 41 59 49 54 2C 20 4F 4E 29 3B 0D 92 4C 45 4E |LAYIT, ON);..LEN|
000011D0: 47 54 48 20 3E 20 30 20 93 0D 10 82 50 41 55 53 |GTH > 0 ....PAUS|
000011E0: 45 20 28 4C 45 4E 47 54 48 20 2A 20 32 35 29 0D |E (LENGTH * 25).|
000011F0: 89 3B 0D 0D 86 54 55 4E 45 3B 0D 28 2A 2A 2A 2A |.;...TUNE;.(****|
00001200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 28 2A 2D |*********)...(*-|
00001210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001220: 2D 2D 2D 2D 0D D0 4C 41 59 20 4F 55 52 20 C2 41 |----..LAY OUR .A|
00001230: 43 48 20 50 49 45 43 45 2E 0D 2D 2D 2D 2D 2D 2D |CH PIECE..------|
00001240: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A |---------------*|
00001250: 29 0D E3 28 56 4F 4C 55 4D 45 2C 20 31 35 29 3B |)..(VOLUME, 15);|
00001260: 0D 50 41 55 53 45 20 28 32 30 29 3B 0D 9A 49 20 |.PAUSE (20);..I |
00001270: 3A 3D 20 31 20 9B 33 20 97 0D 10 82 E1 28 49 2C |:= 1 .3 .....(I,|
00001280: 20 41 54 54 41 43 4B 2C 20 32 2C 0D 10 89 49 2C | ATTACK, 2,...I,|
00001290: 20 44 45 43 41 59 2C 20 31 30 2C 0D 10 89 49 2C | DECAY, 10,...I,|
000012A0: 20 53 55 53 54 41 49 4E 2C 20 31 30 2C 0D 10 89 | SUSTAIN, 10,...|
000012B0: 49 2C 20 52 45 4C 45 41 53 45 2C 20 32 2C 0D 10 |I, RELEASE, 2,..|
000012C0: 89 49 2C 20 54 52 49 41 4E 47 4C 45 2C 20 4F 4E |.I, TRIANGLE, ON|
000012D0: 29 3B 0D 0D 9A 52 4F 55 4E 44 20 3A 3D 20 31 20 |);...ROUND := 1 |
000012E0: 9B 32 20 97 0D 88 0D 0D 10 82 28 2A 10 82 42 41 |.2 .......(*..BA|
000012F0: 52 20 31 10 82 2A 29 0D 10 82 50 4C 41 59 20 28 |R 1..*)...PLAY (|
00001300: 31 2C 20 44 2C 20 30 29 3B 0D 10 82 50 4C 41 59 |1, D, 0);...PLAY|
00001310: 20 28 32 2C 20 42 20 8F 32 2C 20 30 29 3B 0D 10 | (2, B .2, 0);..|
00001320: 82 50 4C 41 59 20 28 33 2C 20 47 20 8F 32 2C 20 |.PLAY (3, G .2, |
00001330: 32 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 47 |2);...PLAY (1, G|
00001340: 20 8F 31 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 | .1, 1);...PLAY |
00001350: 28 31 2C 20 41 20 8F 31 2C 20 31 29 3B 0D 10 82 |(1, A .1, 1);...|
00001360: 50 4C 41 59 20 28 31 2C 20 42 20 8F 31 2C 20 30 |PLAY (1, B .1, 0|
00001370: 29 3B 0D 10 82 50 4C 41 59 20 28 32 2C 20 41 20 |);...PLAY (2, A |
00001380: 8F 32 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 28 |.2, 1);...PLAY (|
00001390: 31 2C 20 43 2C 20 31 29 3B 0D 10 82 28 2A 10 82 |1, C, 1);...(*..|
000013A0: 42 41 52 20 32 10 82 2A 29 0D 10 82 E1 28 33 2C |BAR 2..*)....(3,|
000013B0: 20 50 4C 41 59 49 54 2C 20 4F 46 46 29 3B 0D 10 | PLAYIT, OFF);..|
000013C0: 82 50 4C 41 59 20 28 32 2C 20 42 20 8F 32 2C 20 |.PLAY (2, B .2, |
000013D0: 30 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 44 |0);...PLAY (1, D|
000013E0: 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C |, 2);...PLAY (1,|
000013F0: 20 47 20 8F 31 2C 20 32 29 3B 0D 10 82 50 4C 41 | G .1, 2);...PLA|
00001400: 59 20 28 31 2C 20 47 20 8F 31 2C 20 32 29 3B 0D |Y (1, G .1, 2);.|
00001410: 10 82 28 2A 10 82 42 41 52 20 33 10 82 2A 29 0D |..(*..BAR 3..*).|
00001420: 10 82 50 4C 41 59 20 28 32 2C 20 43 20 8F 31 2C |..PLAY (2, C .1,|
00001430: 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 | 0);...PLAY (1, |
00001440: 45 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 28 31 |E, 2);...PLAY (1|
00001450: 2C 20 43 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 |, C, 1);...PLAY |
00001460: 28 31 2C 20 44 2C 20 31 29 3B 0D 10 82 50 4C 41 |(1, D, 1);...PLA|
00001470: 59 20 28 31 2C 20 45 2C 20 31 29 3B 0D 10 82 50 |Y (1, E, 1);...P|
00001480: 4C 41 59 20 28 31 2C 20 46 53 2C 20 31 29 3B 0D |LAY (1, FS, 1);.|
00001490: 10 82 28 2A 10 82 42 41 52 20 34 10 82 2A 29 0D |..(*..BAR 4..*).|
000014A0: 10 82 50 4C 41 59 20 28 32 2C 20 42 20 8F 32 2C |..PLAY (2, B .2,|
000014B0: 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 | 0);...PLAY (1, |
000014C0: 47 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 28 31 |G, 2);...PLAY (1|
000014D0: 2C 20 47 20 8F 31 2C 20 32 29 3B 0D 10 82 50 4C |, G .1, 2);...PL|
000014E0: 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 32 29 3B |AY (1, G .1, 2);|
000014F0: 0D 10 82 28 2A 10 82 42 41 52 20 35 10 82 2A 29 |...(*..BAR 5..*)|
00001500: 0D 10 82 50 4C 41 59 20 28 32 2C 20 41 20 8F 32 |...PLAY (2, A .2|
00001510: 2C 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C |, 0);...PLAY (1,|
00001520: 20 43 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 28 | C, 2);...PLAY (|
00001530: 31 2C 20 44 2C 20 31 29 3B 0D 10 82 50 4C 41 59 |1, D, 1);...PLAY|
00001540: 20 28 31 2C 20 43 2C 20 31 29 3B 0D 10 82 50 4C | (1, C, 1);...PL|
00001550: 41 59 20 28 31 2C 20 42 20 8F 31 2C 20 31 29 3B |AY (1, B .1, 1);|
00001560: 0D 10 82 50 4C 41 59 20 28 31 2C 20 41 20 8F 31 |...PLAY (1, A .1|
00001570: 2C 20 31 29 3B 0D 10 82 28 2A 10 82 42 41 52 20 |, 1);...(*..BAR |
00001580: 36 10 82 2A 29 0D 10 82 50 4C 41 59 20 28 32 2C |6..*)...PLAY (2,|
00001590: 20 47 20 8F 32 2C 20 30 29 3B 0D 10 82 50 4C 41 | G .2, 0);...PLA|
000015A0: 59 20 28 31 2C 20 42 20 8F 31 2C 20 32 29 3B 0D |Y (1, B .1, 2);.|
000015B0: 10 82 50 4C 41 59 20 28 31 2C 20 43 2C 20 31 29 |..PLAY (1, C, 1)|
000015C0: 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 42 20 8F |;...PLAY (1, B .|
000015D0: 31 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 28 31 |1, 1);...PLAY (1|
000015E0: 2C 20 41 20 8F 31 2C 20 31 29 3B 0D 10 82 50 4C |, A .1, 1);...PL|
000015F0: 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 31 29 3B |AY (1, G .1, 1);|
00001600: 0D 10 82 92 52 4F 55 4E 44 20 3D 20 31 20 93 0D |....ROUND = 1 ..|
00001610: 10 84 88 0D 10 84 28 2A 10 82 42 41 52 20 37 10 |......(*..BAR 7.|
00001620: 82 2A 29 0D 10 84 50 4C 41 59 20 28 32 2C 20 44 |.*)...PLAY (2, D|
00001630: 20 8F 31 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 | .1, 0);...PLAY |
00001640: 28 31 2C 20 46 53 20 8F 31 2C 20 32 29 3B 0D 10 |(1, FS .1, 2);..|
00001650: 84 50 4C 41 59 20 28 32 2C 20 42 20 8F 32 2C 20 |.PLAY (2, B .2, |
00001660: 30 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 47 |0);...PLAY (1, G|
00001670: 20 8F 31 2C 20 31 29 3B 0D 10 84 50 4C 41 59 20 | .1, 1);...PLAY |
00001680: 28 31 2C 20 41 20 8F 31 2C 20 31 29 3B 0D 10 84 |(1, A .1, 1);...|
00001690: 50 4C 41 59 20 28 32 2C 20 47 20 8F 32 2C 20 30 |PLAY (2, G .2, 0|
000016A0: 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 42 20 |);...PLAY (1, B |
000016B0: 8F 31 2C 20 31 29 3B 0D 10 84 50 4C 41 59 20 28 |.1, 1);...PLAY (|
000016C0: 31 2C 20 47 20 8F 31 2C 20 31 29 3B 0D 10 84 28 |1, G .1, 1);...(|
000016D0: 2A 10 82 42 41 52 20 38 10 82 2A 29 0D 10 84 50 |*..BAR 8..*)...P|
000016E0: 4C 41 59 20 28 32 2C 20 44 20 8F 31 2C 20 30 29 |LAY (2, D .1, 0)|
000016F0: 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 41 20 8F |;...PLAY (1, A .|
00001700: 31 2C 20 32 29 3B 0D 10 84 50 4C 41 59 20 28 32 |1, 2);...PLAY (2|
00001710: 2C 20 44 20 8F 32 2C 20 31 29 3B 0D 10 84 50 4C |, D .2, 1);...PL|
00001720: 41 59 20 28 32 2C 20 43 20 8F 31 2C 20 31 29 3B |AY (2, C .1, 1);|
00001730: 0D 10 84 50 4C 41 59 20 28 32 2C 20 42 20 8F 32 |...PLAY (2, B .2|
00001740: 2C 20 31 29 3B 0D 10 84 50 4C 41 59 20 28 32 2C |, 1);...PLAY (2,|
00001750: 20 41 20 8F 32 2C 20 31 29 3B 0D 10 84 89 0D 10 | A .2, 1);......|
00001760: 82 94 0D 10 84 88 0D 10 84 28 2A 10 82 42 41 52 |.........(*..BAR|
00001770: 20 31 35 10 82 2A 29 0D 10 84 50 4C 41 59 20 28 | 15..*)...PLAY (|
00001780: 32 2C 20 43 20 8F 31 2C 20 30 29 3B 0D 10 84 50 |2, C .1, 0);...P|
00001790: 4C 41 59 20 28 31 2C 20 41 20 8F 31 2C 20 32 29 |LAY (1, A .1, 2)|
000017A0: 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 44 20 8F |;...PLAY (2, D .|
000017B0: 31 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 28 31 |1, 0);...PLAY (1|
000017C0: 2C 20 42 20 8F 31 2C 20 31 29 3B 0D 10 84 50 4C |, B .1, 1);...PL|
000017D0: 41 59 20 28 31 2C 20 41 20 8F 31 2C 20 31 29 3B |AY (1, A .1, 1);|
000017E0: 0D 10 84 50 4C 41 59 20 28 32 2C 20 44 20 8F 32 |...PLAY (2, D .2|
000017F0: 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C |, 0);...PLAY (1,|
00001800: 20 47 20 8F 31 2C 20 31 29 3B 0D 10 84 50 4C 41 | G .1, 1);...PLA|
00001810: 59 20 28 31 2C 20 46 53 20 8F 31 2C 20 31 29 3B |Y (1, FS .1, 1);|
00001820: 0D 10 84 28 2A 10 82 42 41 52 20 31 36 10 82 2A |...(*..BAR 16..*|
00001830: 29 0D 10 84 50 4C 41 59 20 28 32 2C 20 47 20 8F |)...PLAY (2, G .|
00001840: 32 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 28 31 |2, 0);...PLAY (1|
00001850: 2C 20 47 20 8F 31 2C 20 34 29 3B 0D 10 84 50 4C |, G .1, 4);...PL|
00001860: 41 59 20 28 32 2C 20 47 20 8F 33 2C 20 32 29 3B |AY (2, G .3, 2);|
00001870: 0D 10 84 89 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 |....;..;..I := 1|
00001880: 20 9B 33 20 97 0D 10 82 E1 28 49 2C 20 50 4C 41 | .3 .....(I, PLA|
00001890: 59 49 54 2C 20 4F 46 46 29 3B 0D 50 41 55 53 45 |YIT, OFF);.PAUSE|
000018A0: 20 28 20 31 30 30 29 3B 0D E3 28 56 4F 4C 55 4D | ( 100);..(VOLUM|
000018B0: 45 2C 20 30 29 0D 89 3B 0D 0D 86 4D 4F 56 45 5F |E, 0)..;...MOVE_|
000018C0: 50 41 53 43 41 4C 20 28 57 48 49 43 48 2C 20 4E |PASCAL (WHICH, N|
000018D0: 45 57 58 2C 0D 10 96 4E 45 57 59 2C 20 4D 4F 56 |EWX,...NEWY, MOV|
000018E0: 45 53 29 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ES);.(**********|
000018F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 28 2A 2D |*********)...(*-|
00001900: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001910: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D CD |--------------..|
00001920: 4F 56 45 20 54 48 45 20 4E 4F 4D 49 4E 41 54 45 |OVE THE NOMINATE|
00001930: 44 20 DF 46 52 4F 4D 20 49 54 53 0D 43 55 52 52 |D .FROM ITS.CURR|
00001940: 45 4E 54 20 50 4F 53 49 54 49 4F 4E 20 9B 54 48 |ENT POSITION .TH|
00001950: 45 20 4E 45 57 20 58 20 8D 0D 59 20 43 4F 4F 52 |E NEW X ..Y COOR|
00001960: 44 49 4E 41 54 45 53 2C 20 49 4E 20 54 48 45 20 |DINATES, IN THE |
00001970: 4E 4F 4D 49 4E 41 54 45 44 0D 4E 55 4D 42 45 52 |NOMINATED.NUMBER|
00001980: 20 85 4D 4F 56 45 53 2E 0D 2D 2D 2D 2D 2D 2D 2D | .MOVES..-------|
00001990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000019A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 0D 10 82 F4 28 |---------*)....(|
000019B0: 57 48 49 43 48 2C 0D 10 84 EC 28 57 48 49 43 48 |WHICH,....(WHICH|
000019C0: 29 2C 0D 10 84 EE 28 57 48 49 43 48 29 2C 0D 10 |),....(WHICH),..|
000019D0: 84 28 4E 45 57 58 20 2D 20 EC 28 57 48 49 43 48 |.(NEWX - .(WHICH|
000019E0: 29 29 0D 10 87 2A 20 32 35 36 20 2F 20 4D 4F 56 |))...* 256 / MOV|
000019F0: 45 53 2C 0D 10 84 28 4E 45 57 59 20 2D 20 EE 28 |ES,...(NEWY - .(|
00001A00: 57 48 49 43 48 29 29 0D 10 87 2A 20 32 35 36 20 |WHICH))...* 256 |
00001A10: 2F 20 4D 4F 56 45 53 2C 0D 10 84 4D 4F 56 45 53 |/ MOVES,...MOVES|
00001A20: 29 0D 89 3B 0D 0D 86 42 52 49 4E 47 5F 50 41 53 |)..;...BRING_PAS|
00001A30: 43 41 4C 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |CAL;.(**********|
00001A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0D 86 46 |***********)...F|
00001A50: 4C 41 53 48 5F 42 4F 52 44 45 52 3B 0D 28 2A 2A |LASH_BORDER;.(**|
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A70: 2A 2A 2A 29 0D 88 0D 49 20 3A 3D 20 31 3B 0D 98 |***)...I := 1;..|
00001A80: 0D 10 83 49 20 3A 3D 20 49 20 2B 20 31 3B 0D 10 |...I := I + 1;..|
00001A90: 83 AA 28 32 39 30 29 3B 0D 10 83 E2 28 42 4F 52 |..(290);....(BOR|
00001AA0: 44 45 52 2C 20 49 29 3B 0D 10 83 50 41 55 53 45 |DER, I);...PAUSE|
00001AB0: 20 28 31 35 29 3B 0D 99 F3 28 38 29 20 3D 20 30 | (15);...(8) = 0|
00001AC0: 3B 0D 89 3B 0D 0D 88 20 28 2A 20 42 52 49 4E 47 |;..;... (* BRING|
00001AD0: 5F 50 41 53 43 41 4C 20 2A 29 0D A3 28 38 2C 20 |_PASCAL *)..(8, |
00001AE0: 31 29 3B 0D E2 28 43 48 41 52 43 4F 4C 4F 55 52 |1);..(CHARCOLOUR|
00001AF0: 2C 20 50 55 52 50 4C 45 29 3B 0D FF 28 22 D4 48 |, PURPLE);..(".H|
00001B00: 49 53 20 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E |IS DEMONSTRATION|
00001B10: 20 50 52 4F 47 52 41 4D 20 49 53 20 57 52 49 54 | PROGRAM IS WRIT|
00001B20: 54 45 4E 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 |TEN");.SLOW;..("|
00001B30: 45 4E 54 49 52 45 4C 59 20 49 4E 20 C7 2D D0 41 |ENTIRELY IN .-.A|
00001B40: 53 43 41 4C 2E 20 20 C9 54 20 44 4F 45 53 20 4E |SCAL. .T DOES N|
00001B50: 4F 54 20 55 53 45 22 29 3B 0D 53 4C 4F 57 3B 0D |OT USE");.SLOW;.|
00001B60: FF 28 22 41 4E 59 20 D0 C5 C5 CB 53 2C 20 D0 CF |.("ANY ....S, ..|
00001B70: CB C5 53 20 28 4F 52 20 53 49 4D 49 4C 41 52 29 |..S (OR SIMILAR)|
00001B80: 2C 20 20 4F 52 22 29 3B 0D 53 4C 4F 57 3B 0D FF |, OR");.SLOW;..|
00001B90: 28 22 4D 41 43 48 49 4E 45 2D 43 4F 44 45 20 53 |("MACHINE-CODE S|
00001BA0: 55 42 52 4F 55 54 49 4E 45 53 2E 22 29 3B 0D 53 |UBROUTINES.");.S|
00001BB0: 4C 4F 57 3B 0D F7 28 31 2C 20 37 2C 20 33 32 2C |LOW;..(1, 7, 32,|
00001BC0: 20 33 33 2C 20 33 34 2C 20 33 33 29 3B 0D DF 28 | 33, 34, 33);..(|
00001BD0: 31 2C 20 45 58 50 41 4E 44 58 2C 20 4F 46 46 2C |1, EXPANDX, OFF,|
00001BE0: 0D 10 88 31 2C 20 43 4F 4C 4F 55 52 2C 20 42 4C |...1, COLOUR, BL|
00001BF0: 55 45 2C 0D 10 88 31 2C 20 45 58 50 41 4E 44 59 |UE,...1, EXPANDY|
00001C00: 2C 20 4F 46 46 29 3B 0D F4 28 31 2C 30 2C 31 33 |, OFF);..(1,0,13|
00001C10: 30 2C 31 38 30 2C 20 30 2C 20 35 30 30 29 3B 0D |0,180, 0, 500);.|
00001C20: 98 99 F3 28 31 29 20 3D 20 30 3B 0D DF 28 31 2C |...(1) = 0;..(1,|
00001C30: 20 41 43 54 49 56 45 2C 20 4F 46 46 29 3B 0D 28 | ACTIVE, OFF);.(|
00001C40: 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |*---------------|
00001C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.|
00001C60: C4 45 46 49 4E 45 20 45 41 43 48 20 4C 45 54 54 |.EFINE EACH LETT|
00001C70: 45 52 20 28 49 4E 20 C7 2D D0 41 53 43 41 4C 29 |ER (IN .-.ASCAL)|
00001C80: 0D 9A 49 54 53 20 50 4F 53 49 54 49 4F 4E 20 4F |..ITS POSITION O|
00001C90: 4E 20 54 48 45 20 4C 49 4E 45 2C 20 49 54 53 0D |N THE LINE, ITS.|
00001CA0: DF 50 4F 49 4E 54 45 52 20 28 54 48 45 20 4C 45 |.POINTER (THE LE|
00001CB0: 54 54 45 52 20 27 41 27 0D 4F 43 43 55 52 53 20 |TTER 'A'.OCCURS |
00001CC0: 54 57 49 43 45 29 20 8D 49 54 53 20 43 4F 4C 4F |TWICE) .ITS COLO|
00001CD0: 55 52 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |UR..------------|
00001CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001CF0: 2D 2D 2D 2A 29 0D 50 4F 53 4E 20 5B 31 5D 20 3A |---*).POSN [1] :|
00001D00: 3D 20 32 35 3B 0D 50 4F 53 4E 20 5B 32 5D 20 3A |= 25;.POSN [2] :|
00001D10: 3D 20 37 30 3B 0D 50 4F 53 4E 20 5B 33 5D 20 3A |= 70;.POSN [3] :|
00001D20: 3D 20 39 30 3B 0D 50 4F 53 4E 20 5B 34 5D 20 3A |= 90;.POSN [4] :|
00001D30: 3D 20 31 33 35 3B 0D 50 4F 53 4E 20 5B 35 5D 20 |= 135;.POSN [5] |
00001D40: 3A 3D 20 31 38 30 3B 0D 50 4F 53 4E 20 5B 36 5D |:= 180;.POSN [6]|
00001D50: 20 3A 3D 20 32 32 35 3B 0D 50 4F 53 4E 20 5B 37 | := 225;.POSN [7|
00001D60: 5D 20 3A 3D 20 32 36 35 3B 0D 50 4F 53 4E 20 5B |] := 265;.POSN [|
00001D70: 38 5D 20 3A 3D 20 33 31 30 3B 0D 50 4F 49 4E 54 |8] := 310;.POINT|
00001D80: 20 5B 31 5D 20 3A 3D 20 31 32 38 3B 0D 50 4F 49 | [1] := 128;.POI|
00001D90: 4E 54 20 5B 32 5D 20 3A 3D 20 31 32 39 3B 0D 50 |NT [2] := 129;.P|
00001DA0: 4F 49 4E 54 20 5B 33 5D 20 3A 3D 20 31 33 30 3B |OINT [3] := 130;|
00001DB0: 0D 50 4F 49 4E 54 20 5B 34 5D 20 3A 3D 20 31 33 |.POINT [4] := 13|
00001DC0: 31 3B 0D 50 4F 49 4E 54 20 5B 35 5D 20 3A 3D 20 |1;.POINT [5] := |
00001DD0: 31 33 32 3B 0D 50 4F 49 4E 54 20 5B 36 5D 20 3A |132;.POINT [6] :|
00001DE0: 3D 20 31 33 33 3B 0D 50 4F 49 4E 54 20 5B 37 5D |= 133;.POINT [7]|
00001DF0: 20 3A 3D 20 31 33 31 3B 0D 50 4F 49 4E 54 20 5B | := 131;.POINT [|
00001E00: 38 5D 20 3A 3D 20 31 33 34 3B 0D 53 43 4F 4C 20 |8] := 134;.SCOL |
00001E10: 5B 31 5D 20 3A 3D 20 33 3B 0D 53 43 4F 4C 20 5B |[1] := 3;.SCOL [|
00001E20: 32 5D 20 3A 3D 20 34 3B 0D 53 43 4F 4C 20 5B 33 |2] := 4;.SCOL [3|
00001E30: 5D 20 3A 3D 20 37 3B 0D 53 43 4F 4C 20 5B 34 5D |] := 7;.SCOL [4]|
00001E40: 20 3A 3D 20 38 3B 0D 53 43 4F 4C 20 5B 35 5D 20 | := 8;.SCOL [5] |
00001E50: 3A 3D 20 31 30 3B 0D 53 43 4F 4C 20 5B 36 5D 20 |:= 10;.SCOL [6] |
00001E60: 3A 3D 20 31 31 3B 0D 53 43 4F 4C 20 5B 37 5D 20 |:= 11;.SCOL [7] |
00001E70: 3A 3D 20 31 32 3B 0D 53 43 4F 4C 20 5B 38 5D 20 |:= 12;.SCOL [8] |
00001E80: 3A 3D 20 31 33 3B 0D 9A 49 20 3A 3D 20 31 20 9B |:= 13;..I := 1 .|
00001E90: 38 20 97 0D 10 82 DF 28 49 2C 20 43 4F 4C 4F 55 |8 .....(I, COLOU|
00001EA0: 52 2C 20 53 43 4F 4C 20 5B 49 5D 2C 0D 10 8A 49 |R, SCOL [I],...I|
00001EB0: 2C 20 50 4F 49 4E 54 49 54 2C 20 50 4F 49 4E 54 |, POINTIT, POINT|
00001EC0: 20 5B 49 5D 2C 0D 10 8A 49 2C 20 42 45 48 49 4E | [I],...I, BEHIN|
00001ED0: 44 42 4B 2C 20 4F 4E 2C 0D 10 8A 49 2C 20 45 58 |DBK, ON,...I, EX|
00001EE0: 50 41 4E 44 58 2C 20 4F 4E 2C 0D 10 8A 49 2C 20 |PANDX, ON,...I, |
00001EF0: 45 58 50 41 4E 44 59 2C 20 4F 4E 29 3B 0D 9A 49 |EXPANDY, ON);..I|
00001F00: 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 F4 28 49 | := 1 .8 .....(I|
00001F10: 2C 20 30 2C 20 32 32 30 2C 20 32 35 36 2C 0D 10 |, 0, 220, 256,..|
00001F20: 8E 30 2C 20 31 35 30 29 3B 0D 46 4C 41 53 48 5F |.0, 150);.FLASH_|
00001F30: 42 4F 52 44 45 52 3B 0D 9D 28 AB 28 48 4F 4D 45 |BORDER;..(.(HOME|
00001F40: 29 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 10 82 |));..I := 1 .8..|
00001F50: 97 0D 10 82 4D 4F 56 45 5F 50 41 53 43 41 4C 20 |....MOVE_PASCAL |
00001F60: 28 49 2C 20 50 4F 53 4E 20 5B 49 5D 2C 20 35 35 |(I, POSN [I], 55|
00001F70: 2C 0D 10 8F 33 30 30 29 3B 0D 46 4C 41 53 48 5F |,...300);.FLASH_|
00001F80: 42 4F 52 44 45 52 3B 0D 50 41 55 53 45 20 28 31 |BORDER;.PAUSE (1|
00001F90: 30 30 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 |00);.SET_COLOURS|
00001FA0: 20 28 42 4C 41 43 4B 2C 20 59 45 4C 4C 4F 57 29 | (BLACK, YELLOW)|
00001FB0: 3B 0D 89 3B 0D 0D 86 50 41 47 45 31 3B 0D 28 2A |;..;...PAGE1;.(*|
00001FC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0D |*************)..|
00001FD0: 86 49 4E 54 52 4F 3B 0D 28 2A 2A 2A 2A 2A 2A 2A |.INTRO;.(*******|
00001FE0: 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D A3 28 31 30 2C |*******)....(10,|
00001FF0: 20 31 29 3B 0D FF 0D 28 22 D4 C8 C5 20 C3 CF CD | 1);...("... ...|
00002000: D0 C9 CC C5 D2 20 D7 C8 C9 C3 C8 20 D3 D5 D0 D0 |..... ..... ....|
00002010: CF D2 D4 D3 20 C1 CC CC 20 CF C6 20 D4 C8 C5 22 |.... ... .. ..."|
00002020: 29 3B 0D FF 0D 28 22 C6 C5 C1 D4 D5 D2 C5 D3 20 |);...("........ |
00002030: CF C6 20 D9 CF D5 D2 20 C3 CF CD CD CF C4 CF D2 |.. .... ........|
00002040: C5 20 36 34 20 2E 2E 2E 22 29 3B 0D FF 3B 0D 89 |. 64 ...");..;..|
00002050: 3B 0D 0D 88 20 28 2A 20 50 41 47 45 31 20 2A 29 |;... (* PAGE1 *)|
00002060: 0D 49 4E 54 52 4F 3B 0D 9A 49 20 3A 3D 20 31 20 |.INTRO;..I := 1 |
00002070: 9B 35 30 30 20 97 0D 88 0D 10 82 DF 28 49 20 8C |.500 .......(I .|
00002080: 38 20 2B 20 31 2C 20 43 4F 4C 4F 55 52 2C 0D 10 |8 + 1, COLOUR,..|
00002090: 8A 49 20 8C 31 35 20 2B 20 31 29 3B 0D 10 82 AA |.I .15 + 1);....|
000020A0: 28 32 35 30 29 3B 0D 89 3B 0D 0D 53 45 54 5F 43 |(250);..;..SET_C|
000020B0: 4F 4C 4F 55 52 53 20 28 42 4C 55 45 2C 20 4C 49 |OLOURS (BLUE, LI|
000020C0: 47 48 54 5F 47 52 45 45 4E 29 3B 0D 49 4E 54 52 |GHT_GREEN);.INTR|
000020D0: 4F 3B 0D 47 50 41 53 43 41 4C 5F 43 4F 4C 4F 55 |O;.GPASCAL_COLOU|
000020E0: 52 20 3A 3D 20 35 3B 0D FF 28 22 2A 20 20 53 50 |R := 5;..("* SP|
000020F0: 52 49 54 45 53 22 29 3B 0D 46 41 4E 43 59 3B 0D |RITES");.FANCY;.|
00002100: FF 28 22 2A 20 20 47 52 41 50 48 49 43 53 22 29 |.("* GRAPHICS")|
00002110: 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 2A 20 20 53 |;.FANCY;..("* S|
00002120: 4F 55 4E 44 20 45 46 46 45 43 54 53 22 29 3B 0D |OUND EFFECTS");.|
00002130: 46 41 4E 43 59 3B 0D FF 28 22 2A 20 20 43 4C 4F |FANCY;..("* CLO|
00002140: 43 4B 22 29 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 |CK");.FANCY;..("|
00002150: 2A 20 20 49 4E 54 45 52 56 41 4C 20 54 49 4D 45 |* INTERVAL TIME|
00002160: 52 22 29 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 2A |R");.FANCY;..("*|
00002170: 20 20 43 55 52 53 4F 52 20 50 4F 53 49 54 49 4F | CURSOR POSITIO|
00002180: 4E 49 4E 47 22 29 3B 0D 46 41 4E 43 59 3B 0D FF |NING");.FANCY;..|
00002190: 28 22 2A 20 20 50 41 44 44 4C 45 53 22 29 3B 0D |("* PADDLES");.|
000021A0: 46 41 4E 43 59 3B 0D 9A 49 20 3A 3D 20 31 20 9B |FANCY;..I := 1 .|
000021B0: 38 10 82 97 0D 10 82 4D 4F 56 45 5F 50 41 53 43 |8......MOVE_PASC|
000021C0: 41 4C 20 28 49 2C 20 33 30 30 2C 0D 10 84 32 33 |AL (I, 300,...23|
000021D0: 20 2D 20 28 32 38 20 2A 20 28 49 20 3E 20 32 29 | - (28 * (I > 2)|
000021E0: 29 20 2B 20 49 20 2A 20 32 38 2C 0D 10 84 32 30 |) + I * 28,...20|
000021F0: 30 29 3B 0D DF 28 32 2C 20 41 43 54 49 56 45 2C |0);..(2, ACTIVE,|
00002200: 20 4F 46 46 29 3B 0D 9D 28 22 2A 20 20 4A 4F 59 | OFF);..("* JOY|
00002210: 53 54 49 43 4B 53 22 29 3B 20 46 41 4E 43 59 3B |STICKS"); FANCY;|
00002220: 0D FF 3B 0D F7 28 32 2C 20 35 2C 20 31 33 35 2C |..;..(2, 5, 135,|
00002230: 20 31 33 36 2C 0D 10 95 31 33 37 29 3B 0D DF 28 | 136,...137);..(|
00002240: 32 2C 20 45 58 50 41 4E 44 58 2C 20 4F 46 46 2C |2, EXPANDX, OFF,|
00002250: 0D 10 88 32 2C 20 45 58 50 41 4E 44 59 2C 20 4F |...2, EXPANDY, O|
00002260: 46 46 2C 0D 10 88 32 2C 20 42 45 48 49 4E 44 42 |FF,...2, BEHINDB|
00002270: 4B 2C 20 4F 46 46 2C 0D 10 88 32 2C 20 43 4F 4C |K, OFF,...2, COL|
00002280: 4F 55 52 2C 20 57 48 49 54 45 29 3B 0D F4 28 32 |OUR, WHITE);..(2|
00002290: 2C 20 35 30 2C 20 32 32 35 2C 20 32 35 36 2C 0D |, 50, 225, 256,.|
000022A0: 10 8C 30 2C 20 32 34 30 29 3B 0D 0D FF 28 22 2A |..0, 240);...("*|
000022B0: 20 20 53 4D 4F 4F 54 48 20 53 43 52 4F 4C 4C 49 | SMOOTH SCROLLI|
000022C0: 4E 47 22 29 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 |NG");.FANCY;..("|
000022D0: 2A 20 20 43 4F 4C 4C 49 53 49 4F 4E 20 44 45 54 |* COLLISION DET|
000022E0: 45 43 54 49 4F 4E 22 29 3B 0D 46 41 4E 43 59 3B |ECTION");.FANCY;|
000022F0: 0D FF 28 22 2A 20 20 41 4E 49 4D 41 54 49 4F 4E |..("* ANIMATION|
00002300: 22 29 3B 0D 0D 98 99 90 F3 28 32 29 3B 0D 9A 49 |");......(2);..I|
00002310: 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 92 49 20 | := 1 .8 .....I |
00002320: 3C 3E 20 32 20 93 0D 10 82 4D 4F 56 45 5F 50 41 |<> 2 ....MOVE_PA|
00002330: 53 43 41 4C 20 28 49 2C 20 EC 28 49 29 2C 0D 10 |SCAL (I, .(I),..|
00002340: 8F 31 39 35 2C 20 35 30 29 3B 0D 98 99 90 F3 28 |.195, 50);.....(|
00002350: 38 29 3B 0D F4 28 32 2C 20 EC 28 32 29 2C 0D 10 |8);..(2, .(2),..|
00002360: 8F EE 28 32 29 2C 0D 10 8F 32 35 36 2C 20 30 2C |..(2),...256, 0,|
00002370: 20 32 30 29 3B 0D 98 99 90 F3 28 32 29 3B 0D F7 | 20);.....(2);..|
00002380: 28 32 2C 20 35 2C 20 31 33 39 2C 20 31 33 38 2C |(2, 5, 139, 138,|
00002390: 0D 10 95 31 34 30 2C 20 31 33 38 29 3B 0D 9A 49 |...140, 138);..I|
000023A0: 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 F4 28 49 | := 1 .8 .....(I|
000023B0: 2C 20 EC 28 49 29 2C 0D 10 91 EE 28 49 29 2C 0D |, .(I),....(I),.|
000023C0: 10 91 30 2C 20 2D 31 32 38 2C 20 34 30 30 29 3B |..0, -128, 400);|
000023D0: 0D 98 99 F3 28 38 29 20 3D 20 30 3B 0D 9A 49 20 |....(8) = 0;..I |
000023E0: 3A 3D 20 31 20 9B 38 20 97 0D 10 82 DF 28 49 2C |:= 1 .8 .....(I,|
000023F0: 20 41 43 54 49 56 45 2C 20 4F 46 46 29 3B 0D 53 | ACTIVE, OFF);.S|
00002400: 45 54 5F 43 4F 4C 4F 55 52 53 20 28 4F 52 41 4E |ET_COLOURS (ORAN|
00002410: 47 45 2C 20 52 45 44 29 3B 0D 89 3B 0D 0D 86 50 |GE, RED);..;...P|
00002420: 41 47 45 32 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A |AGE2;.(*********|
00002430: 2A 2A 2A 2A 2A 29 0D 88 0D 9D 28 AB 28 48 4F 4D |*****)....(.(HOM|
00002440: 45 29 29 3B 0D FF 28 22 20 20 20 20 20 20 20 20 |E));..(" |
00002450: 20 20 20 20 20 20 20 D3 D0 D2 C9 D4 C5 D3 22 29 | .......")|
00002460: 3B 0D 9D 10 82 28 22 20 20 20 20 20 20 20 20 20 |;....(" |
00002470: 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 22 29 3B | .......");|
00002480: 0D 53 4C 4F 57 3B 0D 9D 28 22 D3 50 52 49 54 45 |.SLOW;..(".PRITE|
00002490: 53 20 43 41 4E 20 45 41 53 49 4C 59 20 42 45 20 |S CAN EASILY BE |
000024A0: 44 45 46 49 4E 45 44 20 55 53 49 4E 47 20 54 48 |DEFINED USING TH|
000024B0: 45 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 C4 C5 |E");.SLOW;..("..|
000024C0: C6 C9 CE C5 D3 D0 D2 C9 D4 C5 20 43 4F 4D 4D 41 |.......... COMMA|
000024D0: 4E 44 2E 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 |ND.");.SLOW;..("|
000024E0: D4 48 45 59 20 43 41 4E 20 42 45 20 4D 4F 56 45 |.HEY CAN BE MOVE|
000024F0: 44 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 20 |D AUTOMATICALLY |
00002500: 46 52 4F 4D 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 |FROM");.SLOW;..(|
00002510: 22 50 4C 41 43 45 20 54 4F 20 50 4C 41 43 45 20 |"PLACE TO PLACE |
00002520: 55 53 49 4E 47 20 54 48 45 20 CD CF D6 C5 D3 D0 |USING THE ......|
00002530: D2 C9 D4 C5 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 |....");.SLOW;..(|
00002540: 22 43 4F 4D 4D 41 4E 44 2E 22 29 3B 0D 53 4C 4F |"COMMAND.");.SLO|
00002550: 57 3B 0D 9D 28 22 D4 48 45 59 20 43 41 4E 20 42 |W;..(".HEY CAN B|
00002560: 45 20 41 4E 49 4D 41 54 45 44 2C 20 54 4F 4F 2C |E ANIMATED, TOO,|
00002570: 20 55 53 49 4E 47 20 54 48 45 22 29 3B 0D 53 4C | USING THE");.SL|
00002580: 4F 57 3B 0D FF 28 22 C1 CE C9 CD C1 D4 C5 D3 D0 |OW;..(".........|
00002590: D2 C9 D4 C5 20 43 4F 4D 4D 41 4E 44 2C 20 4C 49 |.... COMMAND, LI|
000025A0: 4B 45 20 54 48 49 53 20 2E 2E 2E 22 29 3B 0D 53 |KE THIS ...");.S|
000025B0: 4C 4F 57 3B 0D FF 3B 0D F7 28 32 2C 20 35 2C 20 |LOW;..;..(2, 5, |
000025C0: 31 33 35 2C 20 31 33 36 2C 0D 10 95 31 33 37 29 |135, 136,...137)|
000025D0: 3B 0D DF 28 32 2C 20 43 4F 4C 4F 55 52 2C 20 42 |;..(2, COLOUR, B|
000025E0: 52 4F 57 4E 2C 0D 10 88 32 2C 20 42 45 48 49 4E |ROWN,...2, BEHIN|
000025F0: 44 42 4B 2C 20 4F 4E 29 3B 0D F4 28 32 2C 20 30 |DBK, ON);..(2, 0|
00002600: 2C 20 31 35 30 2C 20 32 35 36 2C 0D 10 8C 30 2C |, 150, 256,...0,|
00002610: 20 33 37 30 29 3B 0D 98 99 90 F3 28 32 29 3B 0D | 370);.....(2);.|
00002620: DF 28 32 2C 20 41 43 54 49 56 45 2C 20 4F 46 46 |.(2, ACTIVE, OFF|
00002630: 29 3B 0D 9D 28 22 D3 50 52 49 54 45 53 20 43 41 |);..(".PRITES CA|
00002640: 4E 20 42 45 20 45 41 53 49 4C 59 20 45 58 50 41 |N BE EASILY EXPA|
00002650: 4E 44 45 44 20 49 4E 20 54 48 45 22 29 3B 0D 53 |NDED IN THE");.S|
00002660: 4C 4F 57 3B 0D 9D 28 22 D8 20 41 4E 44 20 D9 20 |LOW;..(". AND . |
00002670: 44 49 52 45 43 54 49 4F 4E 53 2E 20 D4 48 45 59 |DIRECTIONS. .HEY|
00002680: 20 43 41 4E 20 42 45 20 50 4C 41 43 45 44 22 29 | CAN BE PLACED")|
00002690: 3B 0D 53 4C 4F 57 3B 0D FF 28 22 49 4E 20 46 52 |;.SLOW;..("IN FR|
000026A0: 4F 4E 54 20 4F 46 20 4F 52 20 42 45 48 49 4E 44 |ONT OF OR BEHIND|
000026B0: 20 54 48 45 20 42 41 43 4B 47 52 4F 55 4E 44 2E | THE BACKGROUND.|
000026C0: 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D9 4F 55 |");.SLOW;..(".OU|
000026D0: 20 43 41 4E 20 45 41 53 49 4C 59 20 45 53 54 41 | CAN EASILY ESTA|
000026E0: 42 4C 49 53 48 20 41 20 53 50 52 49 54 45 27 53 |BLISH A SPRITE'S|
000026F0: 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 43 55 52 |");.SLOW;..("CUR|
00002700: 52 45 4E 54 20 50 4F 53 49 54 49 4F 4E 20 4F 4E |RENT POSITION ON|
00002710: 20 54 48 45 20 53 43 52 45 45 4E 2C 20 41 4E 44 | THE SCREEN, AND|
00002720: 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 57 48 45 |");.SLOW;..("WHE|
00002730: 54 48 45 52 20 4F 52 20 4E 4F 54 20 49 54 20 49 |THER OR NOT IT I|
00002740: 53 20 4D 4F 56 49 4E 47 2E 22 29 3B 0D 50 41 55 |S MOVING.");.PAU|
00002750: 53 45 20 28 35 30 30 29 3B 0D 89 3B 0D 0D 86 50 |SE (500);..;...P|
00002760: 41 47 45 33 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A |AGE3;.(*********|
00002770: 2A 2A 2A 2A 2A 29 0D 88 0D 9D 28 AB 28 48 4F 4D |*****)....(.(HOM|
00002780: 45 29 29 3B 0D FF 28 22 20 20 20 20 20 20 20 20 |E));..(" |
00002790: 20 20 20 20 20 20 20 D3 D0 D2 C9 D4 C5 D3 22 29 | .......")|
000027A0: 3B 0D 9D 10 82 28 22 20 20 20 20 20 20 20 20 20 |;....(" |
000027B0: 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 22 29 3B | .......");|
000027C0: 20 53 4C 4F 57 3B 0D 9D 28 22 C7 2D D0 41 53 43 | SLOW;..(".-.ASC|
000027D0: 41 4C 20 43 41 4E 20 41 55 54 4F 4D 41 54 49 43 |AL CAN AUTOMATIC|
000027E0: 41 4C 4C 59 20 53 54 4F 50 20 54 57 4F 22 29 3B |ALLY STOP TWO");|
000027F0: 0D 53 4C 4F 57 3B 0D 9D 28 22 53 50 52 49 54 45 |.SLOW;..("SPRITE|
00002800: 53 20 54 48 45 20 49 4E 53 54 41 4E 54 20 54 48 |S THE INSTANT TH|
00002810: 41 54 20 54 48 45 59 20 43 4F 4C 4C 49 44 45 2C |AT THEY COLLIDE,|
00002820: 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 4C 49 4B |");.SLOW;..("LIK|
00002830: 45 20 54 48 49 53 20 2E 2E 2E 20 22 29 3B 0D AD |E THIS ... ");..|
00002840: 28 33 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 32 20 |(3);..I := 1 .2 |
00002850: 97 0D 10 82 DF 28 49 2C 20 43 4F 4C 4F 55 52 2C |.....(I, COLOUR,|
00002860: 20 52 45 44 2C 0D 10 8A 49 2C 20 50 4F 49 4E 54 | RED,...I, POINT|
00002870: 49 54 2C 20 31 32 38 2C 0D 10 8A 49 2C 20 45 58 |IT, 128,...I, EX|
00002880: 50 41 4E 44 58 2C 20 4F 4E 2C 0D 10 8A 49 2C 20 |PANDX, ON,...I, |
00002890: 45 58 50 41 4E 44 59 2C 20 4F 4E 29 3B 0D F4 28 |EXPANDY, ON);..(|
000028A0: 31 2C 20 30 2C 20 31 35 30 2C 20 32 35 36 2C 20 |1, 0, 150, 256, |
000028B0: 30 2C 20 33 37 30 29 3B 0D F4 28 32 2C 20 33 39 |0, 370);..(2, 39|
000028C0: 30 2C 20 31 35 30 2C 20 2D 32 35 36 2C 20 30 2C |0, 150, -256, 0,|
000028D0: 20 33 37 30 29 3B 0D 98 99 FD 3B 0D 53 45 54 5F | 370);....;.SET_|
000028E0: 43 4F 4C 4F 55 52 53 20 28 4C 49 47 48 54 5F 52 |COLOURS (LIGHT_R|
000028F0: 45 44 2C 20 59 45 4C 4C 4F 57 29 3B 0D 50 41 55 |ED, YELLOW);.PAU|
00002900: 53 45 20 28 35 30 30 29 3B 0D 89 3B 0D 0D 86 42 |SE (500);..;...B|
00002910: 49 54 4D 41 50 5F 44 45 4D 4F 3B 0D 28 2A 2A 2A |ITMAP_DEMO;.(***|
00002920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002930: 2A 29 0D 88 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 |*)....I := 1 .8 |
00002940: 97 0D 10 82 DF 28 49 2C 20 41 43 54 49 56 45 2C |.....(I, ACTIVE,|
00002950: 20 4F 46 46 29 3B 0D 0D 9D 28 AB 28 48 4F 4D 45 | OFF);...(.(HOME|
00002960: 29 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 20 |));.SET_COLOURS |
00002970: 28 52 45 44 2C 20 59 45 4C 4C 4F 57 29 3B 0D FF |(RED, YELLOW);..|
00002980: 28 22 20 20 20 20 20 20 20 20 C2 C9 D4 20 CD C1 |(" ... ..|
00002990: D0 20 C7 D2 C1 D0 C8 C9 C3 D3 22 29 3B 0D FF 28 |. ........");..(|
000029A0: 22 20 20 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 |" .......|
000029B0: B8 B8 B8 B8 B8 B8 B8 B8 B8 22 29 3B 0D 53 4C 4F |.........");.SLO|
000029C0: 57 3B 0D 9D 28 22 C7 2D D0 41 53 43 41 4C 20 53 |W;..(".-.ASCAL S|
000029D0: 55 50 50 4F 52 54 53 20 42 49 54 2D 4D 41 50 50 |UPPORTS BIT-MAPP|
000029E0: 45 44 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 28 |ED");.SLOW;..("(|
000029F0: 48 49 47 48 2D 52 45 53 4F 4C 55 54 49 4F 4E 29 |HIGH-RESOLUTION)|
00002A00: 20 47 52 41 50 48 49 43 53 20 57 49 54 48 20 54 | GRAPHICS WITH T|
00002A10: 48 45 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D0 |HE");.SLOW;..(".|
00002A20: CC CF D4 20 43 4F 4D 4D 41 4E 44 20 57 48 49 43 |... COMMAND WHIC|
00002A30: 48 20 41 4C 4C 4F 57 53 20 50 4F 49 4E 54 53 20 |H ALLOWS POINTS |
00002A40: 54 4F 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 42 |TO");.SLOW;..("B|
00002A50: 45 20 45 41 53 49 4C 59 20 50 4C 4F 54 54 45 44 |E EASILY PLOTTED|
00002A60: 20 49 4E 20 42 49 54 2D 4D 41 50 20 4D 4F 44 45 | IN BIT-MAP MODE|
00002A70: 22 29 3B 0D 53 4C 4F 57 3B 0D FF 3B 20 FF 3B 0D |");.SLOW;..; .;.|
00002A80: FF 28 22 D7 41 54 43 48 20 54 48 49 53 20 2E 2E |.(".ATCH THIS ..|
00002A90: 2E 22 29 3B 0D FF 3B 0D 50 41 55 53 45 20 28 32 |.");..;.PAUSE (2|
00002AA0: 30 30 29 3B 0D E2 28 42 4F 52 44 45 52 2C 20 42 |00);..(BORDER, B|
00002AB0: 4C 41 43 4B 2C 20 42 41 43 4B 47 4E 44 2C 20 42 |LACK, BACKGND, B|
00002AC0: 4C 41 43 4B 2C 0D 10 88 44 49 53 50 4C 41 59 53 |LACK,...DISPLAYS|
00002AD0: 43 52 45 45 4E 2C 20 4F 46 46 2C 0D 10 88 4D 55 |CREEN, OFF,...MU|
00002AE0: 4C 54 49 43 4F 4C 4F 55 52 2C 20 4F 4E 2C 0D 10 |LTICOLOUR, ON,..|
00002AF0: 88 42 49 54 4D 41 50 2C 20 4F 4E 2C 0D 10 88 43 |.BITMAP, ON,...C|
00002B00: 48 41 52 47 45 4E 42 41 53 45 2C 20 34 29 3B 0D |HARGENBASE, 4);.|
00002B10: 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D E2 28 43 48 |.(.(HOME));..(CH|
00002B20: 41 52 43 4F 4C 4F 55 52 2C 20 4C 49 47 48 54 5F |ARCOLOUR, LIGHT_|
00002B30: 47 52 45 45 4E 29 3B 0D 9A 49 20 3A 3D 20 31 20 |GREEN);..I := 1 |
00002B40: 9B 31 30 30 10 82 97 0D 10 83 9D 28 22 20 20 20 |.100.......(" |
00002B50: 20 20 20 20 20 20 20 22 29 3B 0D A8 28 42 4C 55 | ");..(BLU|
00002B60: 45 2C 20 42 52 4F 57 4E 29 3B 0D E2 28 44 49 53 |E, BROWN);..(DIS|
00002B70: 50 4C 41 59 53 43 52 45 45 4E 2C 20 4F 4E 29 3B |PLAYSCREEN, ON);|
00002B80: 0D 9A 49 20 3A 3D 20 31 20 9B 34 20 97 0D 88 0D |..I := 1 .4 ....|
00002B90: 10 82 F7 28 49 2C 20 37 2C 20 33 32 2C 20 33 33 |...(I, 7, 32, 33|
00002BA0: 2C 20 33 34 2C 20 33 33 29 3B 0D 10 82 DF 28 49 |, 34, 33);....(I|
00002BB0: 2C 20 45 58 50 41 4E 44 58 2C 20 4F 46 46 2C 0D |, EXPANDX, OFF,.|
00002BC0: 10 8A 49 2C 20 45 58 50 41 4E 44 59 2C 20 4F 46 |..I, EXPANDY, OF|
00002BD0: 46 29 3B 0D 10 82 F4 28 49 2C 32 30 2C 34 30 2C |F);....(I,20,40,|
00002BE0: 36 30 20 2A 20 49 2C 34 30 2C 0D 10 8E 31 30 30 |60 * I,40,...100|
00002BF0: 30 20 2F 20 49 29 3B 0D 89 3B 0D 9A 49 20 3A 3D |0 / I);..;..I :=|
00002C00: 20 31 20 9B 31 35 37 20 97 0D 88 0D 10 82 A6 28 | 1 .157 .......(|
00002C10: 31 2C 20 49 2C 20 49 29 3B 0D 10 82 A6 28 31 2C |1, I, I);....(1,|
00002C20: 20 49 2C 20 49 20 2B 20 31 29 3B 0D 10 82 A6 28 | I, I + 1);....(|
00002C30: 31 2C 20 49 2C 20 49 20 2B 20 32 29 3B 0D 89 3B |1, I, I + 2);..;|
00002C40: 0D 9A 49 20 3A 3D 20 31 35 37 20 9C 31 20 97 0D |..I := 157 .1 ..|
00002C50: 88 0D 10 84 A6 28 32 2C 20 49 2C 20 31 35 39 20 |.....(2, I, 159 |
00002C60: 2D 20 49 29 3B 0D 10 84 A6 28 32 2C 20 49 2C 20 |- I);....(2, I, |
00002C70: 31 35 38 20 2D 20 49 29 3B 0D 10 84 A6 28 32 2C |158 - I);....(2,|
00002C80: 20 49 2C 20 31 35 37 20 2D 20 49 29 3B 0D 89 3B | I, 157 - I);..;|
00002C90: 0D 9A 49 20 3A 3D 20 31 20 9B 31 35 39 20 97 0D |..I := 1 .159 ..|
00002CA0: 88 0D 10 82 A6 28 33 2C 20 31 2C 20 49 29 3B 0D |.....(3, 1, I);.|
00002CB0: 10 82 A6 28 33 2C 20 32 2C 20 49 29 3B 0D 10 82 |...(3, 2, I);...|
00002CC0: A6 28 33 2C 20 31 35 38 2C 20 49 29 3B 0D 10 82 |.(3, 158, I);...|
00002CD0: A6 28 33 2C 20 31 35 39 2C 20 49 29 3B 0D 89 3B |.(3, 159, I);..;|
00002CE0: 0D 9A 49 20 3A 3D 20 31 20 9B 31 35 39 20 97 0D |..I := 1 .159 ..|
00002CF0: 88 0D 10 82 A6 28 33 2C 20 49 2C 20 31 29 3B 0D |.....(3, I, 1);.|
00002D00: 10 82 A6 28 33 2C 20 49 2C 20 32 29 3B 0D 10 82 |...(3, I, 2);...|
00002D10: A6 28 33 2C 20 49 2C 20 31 35 38 29 3B 0D 10 82 |.(3, I, 158);...|
00002D20: A6 28 33 2C 20 49 2C 20 31 35 39 29 3B 0D 89 3B |.(3, I, 159);..;|
00002D30: 0D 98 99 90 F3 28 31 29 3B 0D 9A 49 20 3A 3D 20 |.....(1);..I := |
00002D40: 31 20 9B 34 20 97 0D 10 82 DF 28 49 2C 20 41 43 |1 .4 .....(I, AC|
00002D50: 54 49 56 45 2C 20 4F 46 46 29 3B 0D E2 28 44 49 |TIVE, OFF);..(DI|
00002D60: 53 50 4C 41 59 53 43 52 45 45 4E 2C 4F 46 46 2C |SPLAYSCREEN,OFF,|
00002D70: 0D 10 8A 42 4F 52 44 45 52 2C 20 52 45 44 2C 0D |...BORDER, RED,.|
00002D80: 10 8A 42 41 43 4B 47 4E 44 2C 20 52 45 44 2C 0D |..BACKGND, RED,.|
00002D90: 10 8A 42 49 54 4D 41 50 2C 20 4F 46 46 2C 0D 10 |..BITMAP, OFF,..|
00002DA0: 8A 4D 55 4C 54 49 43 4F 4C 4F 55 52 2C 20 4F 46 |.MULTICOLOUR, OF|
00002DB0: 46 2C 0D 10 8A 43 48 41 52 47 45 4E 42 41 53 45 |F,...CHARGENBASE|
00002DC0: 2C 20 33 29 3B 0D 89 3B 0D 0D 86 53 4F 55 4E 44 |, 3);..;...SOUND|
00002DD0: 5F 44 45 4D 4F 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A |_DEMO;.(********|
00002DE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9D |***********)....|
00002DF0: 28 AB 28 48 4F 4D 45 29 29 3B 0D E2 28 44 49 53 |(.(HOME));..(DIS|
00002E00: 50 4C 41 59 53 43 52 45 45 4E 2C 20 4F 4E 29 3B |PLAYSCREEN, ON);|
00002E10: 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 52 45 |.SET_COLOURS (RE|
00002E20: 44 2C 20 59 45 4C 4C 4F 57 29 3B 0D 0D FF 28 22 |D, YELLOW);...("|
00002E30: 20 20 20 20 20 20 20 20 20 20 20 D3 CF D5 CE C4 | .....|
00002E40: 20 C5 C6 C6 C5 C3 D4 D3 22 29 3B 0D FF 28 22 20 | .......");..(" |
00002E50: 20 20 20 20 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 | ......|
00002E60: B8 B8 B8 B8 B8 B8 B8 22 29 3B 0D 53 4C 4F 57 3B |.......");.SLOW;|
00002E70: 0D 9D 28 22 C7 2D D0 41 53 43 41 4C 20 50 52 4F |..(".-.ASCAL PRO|
00002E80: 56 49 44 45 53 20 45 58 54 45 4E 53 49 56 45 20 |VIDES EXTENSIVE |
00002E90: 53 55 50 50 4F 52 54 20 46 4F 52 22 29 3B 0D 53 |SUPPORT FOR");.S|
00002EA0: 4C 4F 57 3B 0D 9D 28 22 54 48 45 20 D3 C9 C4 20 |LOW;..("THE ... |
00002EB0: 43 48 49 50 20 28 D3 4F 55 4E 44 20 C9 4E 54 45 |CHIP (.OUND .NTE|
00002EC0: 52 46 41 43 45 20 C4 45 56 49 43 45 29 22 29 3B |RFACE .EVICE)");|
00002ED0: 0D 53 4C 4F 57 3B 0D 9D 28 22 49 4E 20 59 4F 55 |.SLOW;..("IN YOU|
00002EE0: 52 20 C3 4F 4D 4D 4F 44 4F 52 45 20 36 34 2E 20 |R .OMMODORE 64. |
00002EF0: D4 48 45 20 41 54 54 52 49 42 55 54 45 53 20 4F |.HE ATTRIBUTES O|
00002F00: 46 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 45 41 |F");.SLOW;..("EA|
00002F10: 43 48 20 49 4E 44 49 56 49 44 55 41 4C 20 56 4F |CH INDIVIDUAL VO|
00002F20: 49 43 45 20 41 52 45 20 45 41 53 49 4C 59 22 29 |ICE ARE EASILY")|
00002F30: 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 43 4F 4E 54 52 |;.SLOW;..("CONTR|
00002F40: 4F 4C 4C 45 44 2C 20 41 53 20 57 45 4C 4C 20 41 |OLLED, AS WELL A|
00002F50: 53 20 54 48 45 20 56 41 52 49 4F 55 53 22 29 3B |S THE VARIOUS");|
00002F60: 0D 53 4C 4F 57 3B 0D FF 28 22 46 49 4C 54 45 52 |.SLOW;..("FILTER|
00002F70: 49 4E 47 20 41 4E 44 20 53 50 45 43 49 41 4C 20 |ING AND SPECIAL |
00002F80: 45 46 46 45 43 54 53 2E 22 29 3B 0D 53 4C 4F 57 |EFFECTS.");.SLOW|
00002F90: 3B 0D 9D 28 22 D4 55 52 4E 20 55 50 20 54 48 45 |;..(".URN UP THE|
00002FA0: 20 56 4F 4C 55 4D 45 20 4E 4F 57 20 54 4F 20 48 | VOLUME NOW TO H|
00002FB0: 45 41 52 20 41 20 53 41 4D 50 4C 45 22 29 3B 0D |EAR A SAMPLE");.|
00002FC0: 53 4C 4F 57 3B 0D FF 28 22 4F 46 20 49 54 20 49 |SLOW;..("OF IT I|
00002FD0: 4E 20 4F 50 45 52 41 54 49 4F 4E 20 2E 2E 2E 2E |N OPERATION ....|
00002FE0: 2E 22 29 3B 0D 53 4C 4F 57 3B 0D FF 3B 0D 54 55 |.");.SLOW;..;.TU|
00002FF0: 4E 45 3B 0D 89 3B 0D 0D 0D 28 2A 2D 2D 2D 2D 2D |NE;..;...(*-----|
00003000: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 0D 88 20 28 |----------*).. (|
00003020: 2A 10 82 4D 41 49 4E 20 50 52 4F 47 52 41 4D 10 |*..MAIN PROGRAM.|
00003030: 82 2A 29 0D 98 0D 10 83 49 4E 49 54 3B 0D 10 83 |.*).....INIT;...|
00003040: 42 52 49 4E 47 5F 50 41 53 43 41 4C 3B 0D 10 83 |BRING_PASCAL;...|
00003050: 50 41 47 45 31 3B 0D 10 83 50 41 47 45 32 3B 0D |PAGE1;...PAGE2;.|
00003060: 10 83 50 41 47 45 33 3B 0D 10 83 42 49 54 4D 41 |..PAGE3;...BITMA|
00003070: 50 5F 44 45 4D 4F 3B 0D 10 83 53 4F 55 4E 44 5F |P_DEMO;...SOUND_|
00003080: 44 45 4D 4F 3B 0D 99 46 41 4C 53 45 3B 0D 89 2E |DEMO;..FALSE;...|
00003090: 0D 00 00 1F |.... |
.@(* %A $8C0 *).(* ---------------------
----------...COMMODORE 64 -...G-PASCAL D
EMONSTRATION PROGRAM...-----------------
--------------...WRITTEN BY NICK GAMMON.
...SEPTEMBER 1983....PUBLIC DOMAIN....--
-----------------------------...THE P-CO
DES ARE PLACED AT....$8C0 (SEE LINE 1 AB
OVE)...SO AS .ALLOW PLENTY ....COMMENTS
IN THE PROGRAM. .YOU...ADD .THIS PROGRAM
, MAKE SURE...THAT THE P-CODES ..EXCEED.
...$2000 (SEE MESSAGE AT.....COMPILE) .T
HE .....THE PROGRAM WILL BE DESTROYED...
BY .STATEMENTS ....THE .STATEMENT....---
----------------------------.*).. ....CR
= 13;...HOME = 147;...DISABLE_CASE = 8;
...PERIOD = 100; (* DEMO SPEED *)...TRUE
= 1;..FALSE = 0;...ON = TRUE; OFF = FAL
SE;..(*----- .CONSTANTS ------*)...COLOU
R = 1;...POINTIT = 2;...EXPANDX = 4;...E
XPANDY = 5;...BEHINDBK = 6;...ACTIVE = 7
;....BORDER = 11;...BACKGND = 12;...CHAR
COLOUR = 10;...DISPLAYSCREEN = 6;...BITM
AP = 1;...MULTICOLOUR = 2;...CHARGENBASE
= 8;..(*----------- COLOURS ----------*
)....BLACK = 0;...WHITE = 1;...RED = 2;.
..CYAN = 3;...PURPLE = 4;...GREEN = 5;..
.BLUE = 6;...YELLOW = 7;...ORANGE = 8;..
.BROWN = 9;...LIGHT_RED = 10;...DARK_GRE
Y = 11;...MEDIUM_GREY = 12;...LIGHT_GREE
N = 13;...LIGHT_BLUE = 14;...LIGHT_GREY
= 15;...(*------- NOTE FREQUENCIES -----
*)..C = 34334;.D = 38539;.E = 43258;.F =
45830;.FS = 48556;.G = 51443;.A = 57743
;.B = 64814;..(*--- .EFFECTS CONSTANTS -
-*)..VOLUME = 4;.CUTOFFVOICE3 = 9;.FREQU
ENCY = 1;.ATTACK = 4;.DECAY = 5;.SUSTAIN
= 6;.RELEASE = 7;.PLAYIT = 8;.TRIANGLE
= 11;.SAWTOOTH = 12;.NOISE = 14;..(*----
GLOBAL VARIABLES -----*)...I,J,...GPASC
AL_COLOUR,...ROUND : .;...POINT,...SCOL,
...POSN:.[10] ..;..SET_COLOURS (BACK,FOR
E);.(********************************)..
....(BACKGND, BACK,...CHARCOLOUR, FORE).
.;...INIT;.(*************)...(*---------
----------------------..THE SCREEN, SET
BACKGROUND..BORDER .BLACK, DISABLE ..SHI
FTING (AS TEXT IS IN UPPER ..LOWER .), .
DEFINE OUR..SHAPES..--------------------
------------*)..(.(HOME));..(24,1);.SET_
COLOURS (BLACK, WHITE);..(.(DISABLE_CASE
));..(128,..(*..'G'..*)...$FFFFF0, $C000
30, $CFFFF0,...$CC0000, $CC0000, $CC0000
,...$CC3FF0, $CC3030, $CC3F30,...$CC0330
, $CC0330, $CFFF30,...$C00030, $FFFFF0);
..(129,..(*..'-'..*)...0,0,0,0,0,0,0,...
$FF0000, $C30000, $FF0000);..(130,..(*..
'P'..*)...$FFFFF0, $C00030, $CFFF30,...$
CC0330, $CC0330, $CC0330,...$CFFF30, $C0
0030, $CFFFF0,...$CC0000, $CC0000, $CC00
00,...$CC0000, $FC0000);..(131,..(*..'A'
..*)...$FFFFF0, $C00030, $CFFF30,...$CC0
330, $CC0330, $CC0330,...$CC0330, $CFFF3
0, $C00030,...$CFFF30, $CC0330, $CC0330,
...$CC0330, $FC03F0);..(132,..(*..'S'..*
)...$FFFFF0, $C00030, $CFFFF0,...$CC0000
, $CC0000, $CFFFF0,...$C00030, $FFFF30,
$000330,...$000330, $000330, $FFFF30,...
$C00030, $FFFFF0);..(133,..(*..'C'..*)..
.$FFFFC0, $C000C0, $CFFFC0,...$CC0000, $
CC0000, $CC0000,...$CC0000, $CC0000, $CC
0000,...$CC0000, $CC0000, $CFFFC0,...$C0
00C0, $FFFFC0);..(134,..(*..'L'..*)...$F
C0000, $CC0000, $CC0000,...$CC0000, $CC0
000, $CC0000,...$CC0000, $CC0000, $CC000
0,...$CC0000, $CC0000, $CFFF00,...$C0030
0, $FFFF00);..(135,..(*..MAN 1 *)...0,..
.$008000, $01C000, $01C000,...$018000, $
038000, $078000,...$036000, $038000, $06
C000,...$06C000);..(136,..(*..MAN 2 *)..
.$008000, $01C000, $01C000,...$0F8000, $
09F000, $030000,...$030000, $07C000, $0E
E000,...$1C6000, $180000);..(137,..(*..M
AN 3 *)...0,...$008000, $01C000, $01C000
,...$078000, $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, $0
14000,...$016000, $010000, $030000);..(1
40,..(*..MAN 6 *)...$008000, $01C000, $0
1C000,...$008000, $03E000, $05D000,...$0
5C000, $01C000, $014000,...$034000, $004
000, $006000);..(32,..(* BAT 1 *)...$020
40, $0F6F0, $3FFFC,...$6FFF6, $85FA1, $0
0600);..(33,..(* BAT 2 *)...$02040, $066
60, $06F60,...$0FFF0, $13FC8, $00600);..
(34,..(* BAT 3 *)...$01080, $036C0, $03F
C0,...$05FA0, $01680, $00600);..;....PAU
SE (X);.(******************)......(3, X)
..;...SLOW;.(*************).....PAUSE (P
ERIOD);......;...FANCY;.(**************)
..I, X : .;.....GPASCAL_COLOUR := GPASCA
L_COLOUR...+ 1;....GPASCAL_COLOUR .7 ...
.0: X := WHITE;...1: X := CYAN;...2: X :
= YELLOW;...3: X := MEDIUM_GREY;...4: X
:= LIGHT_GREEN;...5: X := LIGHT_BLUE;...
6: X := LIGHT_GREY....;....I := 1 .8 ...
..(I, COLOUR, X);...SLOW..;...PLAY (VC,
NOTE, LENGTH);.(************************
********)....(VC, PLAYIT, OFF,...VC, FRE
QUENCY, NOTE .2,...VC, PLAYIT, ON);..LEN
GTH > 0 ....PAUSE (LENGTH * 25)..;...TUN
E;.(*************)...(*-----------------
----.PLAY OUR BACH PIECE..--------------
-------*)..(VOLUME, 15);.PAUSE (20);..I
:= 1 .3 .....(I, ATTACK, 2,...I, DECAY,
10,...I, SUSTAIN, 10,...I, RELEASE, 2,..
.I, TRIANGLE, ON);...ROUND := 1 .2 .....
..(*..BAR 1..*)...PLAY (1, D, 0);...PLAY
(2, B .2, 0);...PLAY (3, G .2, 2);...PL
AY (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, OFF);...PLAY (2, B .2, 0);...PL
AY (1, D, 2);...PLAY (1, G .1, 2);...PLA
Y (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);...PLAY (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);....ROUN
D = 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);...PLA
Y (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);...PL
AY (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);...PLA
Y (1, FS .1, 1);...(*..BAR 16..*)...PLAY
(2, G .2, 0);...PLAY (1, G .1, 4);...PL
AY (2, G .3, 2);....;..;..I := 1 .3 ....
.(I, PLAYIT, OFF);.PAUSE ( 100);..(VOLUM
E, 0)..;...MOVE_PASCAL (WHICH, NEWX,...N
EWY, MOVES);.(*******************)...(*-
------------------------------.MOVE THE
NOMINATED .FROM ITS.CURRENT POSITION .TH
E NEW X ..Y COORDINATES, IN THE NOMINATE
D.NUMBER .MOVES..-----------------------
---------*)....(WHICH,....(WHICH),....(W
HICH),...(NEWX - .(WHICH))...* 256 / MOV
ES,...(NEWY - .(WHICH))...* 256 / MOVES,
...MOVES)..;...BRING_PASCAL;.(**********
***********)...FLASH_BORDER;.(**********
***********)...I := 1;.....I := I + 1;..
..(290);....(BORDER, I);...PAUSE (15);..
.(8) = 0;..;... (* BRING_PASCAL *)..(8,
1);..(CHARCOLOUR, PURPLE);..("THIS DEMON
STRATION PROGRAM IS WRITTEN");.SLOW;..("
ENTIRELY IN G-PASCAL. IT DOES NOT USE")
;.SLOW;..("ANY PEEKS, POKES (OR SIMILAR)
, OR");.SLOW;..("MACHINE-CODE SUBROUTIN
ES.");.SLOW;..(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 LETT
ER (IN G-PASCAL)..ITS POSITION ON THE LI
NE, ITS..POINTER (THE LETTER 'A'.OCCURS
TWICE) .ITS COLOUR..--------------------
-----------*).POSN [1] := 25;.POSN [2] :
= 70;.POSN [3] := 90;.POSN [4] := 135;.P
OSN [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;.POI
NT [6] := 133;.POINT [7] := 131;.POINT [
8] := 134;.SCOL [1] := 3;.SCOL [2] := 4;
.SCOL [3] := 7;.SCOL [4] := 8;.SCOL [5]
:= 10;.SCOL [6] := 11;.SCOL [7] := 12;.S
COL [8] := 13;..I := 1 .8 .....(I, COLOU
R, SCOL [I],...I, POINTIT, POINT [I],...
I, BEHINDBK, ON,...I, EXPANDX, ON,...I,
EXPANDY, ON);..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 (1
00);.SET_COLOURS (BLACK, YELLOW);..;...P
AGE1;.(**************)...INTRO;.(*******
*******)....(10, 1);...("THE COMPILER WH
ICH SUPPORTS ALL OF THE");...("FEATURES
OF YOUR COMMODORE 64 ...");..;..;... (*
PAGE1 *).INTRO;..I := 1 .500 .......(I .
8 + 1, COLOUR,...I .15 + 1);....(250);..
;..SET_COLOURS (BLUE, LIGHT_GREEN);.INTR
O;.GPASCAL_COLOUR := 5;..("* SPRITES");
.FANCY;..("* GRAPHICS");.FANCY;..("* S
OUND EFFECTS");.FANCY;..("* CLOCK");.FA
NCY;..("* INTERVAL TIMER");.FANCY;..("*
CURSOR POSITIONING");.FANCY;..("* PAD
DLES");.FANCY;..I := 1 .8......MOVE_PASC
AL (I, 300,...23 - (28 * (I > 2)) + I *
28,...200);..(2, ACTIVE, OFF);..("* JOY
STICKS"); FANCY;..;..(2, 5, 135, 136,...
137);..(2, EXPANDX, OFF,...2, EXPANDY, O
FF,...2, BEHINDBK, OFF,...2, COLOUR, WHI
TE);..(2, 50, 225, 256,...0, 240);...("*
SMOOTH SCROLLING");.FANCY;..("* COLLI
SION DETECTION");.FANCY;..("* ANIMATION
");......(2);..I := 1 .8 .....I <> 2 ...
.MOVE_PASCAL (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, -12
8, 400);....(8) = 0;..I := 1 .8 .....(I,
ACTIVE, OFF);.SET_COLOURS (ORANGE, RED)
;..;...PAGE2;.(**************)....(.(HOM
E));..(" SPRITES");....("
.......");.SLOW;..("SPRITE
S CAN EASILY BE DEFINED USING THE");.SLO
W;..("DEFINESPRITE COMMAND.");.SLOW;..("
THEY CAN BE MOVED AUTOMATICALLY FROM");.
SLOW;..("PLACE TO PLACE USING THE MOVESP
RITE");.SLOW;..("COMMAND.");.SLOW;..("TH
EY CAN BE ANIMATED, TOO, USING THE");.SL
OW;..("ANIMATESPRITE COMMAND, LIKE THIS
...");.SLOW;..;..(2, 5, 135, 136,...137)
;..(2, COLOUR, BROWN,...2, BEHINDBK, ON)
;..(2, 0, 150, 256,...0, 370);.....(2);.
.(2, ACTIVE, OFF);..("SPRITES CAN BE EAS
ILY EXPANDED IN THE");.SLOW;..("X AND Y
DIRECTIONS. THEY CAN BE PLACED");.SLOW;.
.("IN FRONT OF OR BEHIND THE BACKGROUND.
");.SLOW;..("YOU CAN EASILY ESTABLISH A
SPRITE'S");.SLOW;..("CURRENT POSITION ON
THE SCREEN, AND");.SLOW;..("WHETHER OR
NOT IT IS MOVING.");.PAUSE (500);..;...P
AGE3;.(**************)....(.(HOME));..("
SPRITES");....("
......."); SLOW;..("G-PASCAL CAN A
UTOMATICALLY STOP TWO");.SLOW;..("SPRITE
S THE INSTANT THAT THEY COLLIDE,");.SLOW
;..("LIKE THIS ... ");..(3);..I := 1 .2
.....(I, COLOUR, RED,...I, POINTIT, 128,
...I, EXPANDX, ON,...I, EXPANDY, ON);..(
1, 0, 150, 256, 0, 370);..(2, 390, 150,
-256, 0, 370);....;.SET_COLOURS (LIGHT_R
ED, YELLOW);.PAUSE (500);..;...BITMAP_DE
MO;.(********************)....I := 1 .8
.....(I, ACTIVE, OFF);...(.(HOME));.SET_
COLOURS (RED, YELLOW);..(" BIT MA
P GRAPHICS");..(" ...............
.");.SLOW;..("G-PASCAL SUPPORTS BIT-MAPP
ED");.SLOW;..("(HIGH-RESOLUTION) GRAPHIC
S WITH THE");.SLOW;..("PLOT COMMAND WHIC
H ALLOWS POINTS TO");.SLOW;..("BE EASILY
PLOTTED IN BIT-MAP MODE");.SLOW;..; .;.
.("WATCH THIS ...");..;.PAUSE (200);..(B
ORDER, BLACK, BACKGND, BLACK,...DISPLAYS
CREEN, OFF,...MULTICOLOUR, ON,...BITMAP,
ON,...CHARGENBASE, 4);..(.(HOME));..(CH
ARCOLOUR, LIGHT_GREEN);..I := 1 .100....
...(" ");..(BLUE, BROWN);..(DIS
PLAYSCREEN, ON);..I := 1 .4 .......(I, 7
, 32, 33, 34, 33);....(I, EXPANDX, OFF,.
..I, EXPANDY, OFF);....(I,20,40,60 * I,4
0,...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, AC
TIVE, OFF);..(DISPLAYSCREEN,OFF,...BORDE
R, RED,...BACKGND, RED,...BITMAP, OFF,..
.MULTICOLOUR, OFF,...CHARGENBASE, 3);..;
...SOUND_DEMO;.(*******************)....
(.(HOME));..(DISPLAYSCREEN, ON);.SET_COL
OURS (RED, YELLOW);...(" SOUND
EFFECTS");..(" ............."
);.SLOW;..("G-PASCAL PROVIDES EXTENSIVE
SUPPORT FOR");.SLOW;..("THE SID CHIP (SO
UND INTERFACE DEVICE)");.SLOW;..("IN YOU
R COMMODORE 64. THE ATTRIBUTES OF");.SLO
W;..("EACH INDIVIDUAL VOICE ARE EASILY")
;.SLOW;..("CONTROLLED, AS WELL AS THE VA
RIOUS");.SLOW;..("FILTERING AND SPECIAL
EFFECTS.");.SLOW;..("TURN UP THE VOLUME
NOW TO HEAR A SAMPLE");.SLOW;..("OF IT I
N OPERATION .....");.SLOW;..;.TUNE;..;..
.(*-------------------------------*).. (
*..MAIN PROGRAM..*).....INIT;...BRING_PA
SCAL;...PAGE1;...PAGE2;...PAGE3;...BITMA
P_DEMO;...SOUND_DEMO;..FALSE;.......
> CLICK IMAGE PREVIEW FOR FULL MODAL