PASCAL DEMO
FILE INFORMATION
FILENAME(S): PASCAL DEMO
FILE TYPE(S): PRG
FILE SIZE: 12.2K
FIRST SEEN: 2025-11-30 21:13:14
APPEARS ON: 1 disk(s)
FILE HASH
8ba2637602888cc66e3fbfa29d2cc80c35fdbf58e35f30c307cafe70152fb142
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ZDJ SOFT | PASCAL DEMO | PRG | DuncanTwain | 22 | 1 | 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 20 3A 20 84 5B 38 5D 20 85 |...POSN : .[8] .|
00000650: FE 3B 0D 0D 86 53 45 54 5F 43 4F 4C 4F 55 52 53 |.;...SET_COLOURS|
00000660: 20 28 42 41 43 4B 2C 46 4F 52 45 29 3B 0D 28 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 2A 2A 29 |***************)|
00000690: 0D 88 0D 10 82 E2 28 42 4F 52 44 45 52 2C 20 42 |......(BORDER, B|
000006A0: 41 43 4B 2C 0D 10 8C 42 41 43 4B 47 4E 44 2C 20 |ACK,...BACKGND, |
000006B0: 42 41 43 4B 2C 0D 10 8C 43 48 41 52 43 4F 4C 4F |BACK,...CHARCOLO|
000006C0: 55 52 2C 20 46 4F 52 45 29 0D 89 3B 0D 0D 86 49 |UR, FORE)..;...I|
000006D0: 4E 49 54 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NIT;.(**********|
000006E0: 2A 2A 2A 29 0D 88 0D 28 2A 2D 2D 2D 2D 2D 2D 2D |***)...(*-------|
000006F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000700: 2D 2D 2D 2D 2D 2D 2D 2D 0D A8 54 48 45 20 53 43 |--------..THE SC|
00000710: 52 45 45 4E 2C 20 53 45 54 20 42 41 43 4B 47 52 |REEN, SET BACKGR|
00000720: 4F 55 4E 44 0D 8D 42 4F 52 44 45 52 20 9B 42 4C |OUND..BORDER .BL|
00000730: 41 43 4B 2C 20 44 49 53 41 42 4C 45 20 95 0D 53 |ACK, DISABLE ..S|
00000740: 48 49 46 54 49 4E 47 20 28 41 53 20 54 45 58 54 |HIFTING (AS TEXT|
00000750: 20 49 53 20 49 4E 20 55 50 50 45 52 20 8D 0D 4C | IS IN UPPER ..L|
00000760: 4F 57 45 52 20 95 29 2C 20 8D 44 45 46 49 4E 45 |OWER .), .DEFINE|
00000770: 20 4F 55 52 0D DF 53 48 41 50 45 53 2E 0D 2D 2D | OUR..SHAPES..--|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 |--------------*)|
000007A0: 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D A3 28 32 |..(.(HOME));..(2|
000007B0: 34 2C 31 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 |4,1);.SET_COLOUR|
000007C0: 53 20 28 42 4C 41 43 4B 2C 20 57 48 49 54 45 29 |S (BLACK, WHITE)|
000007D0: 3B 0D 9D 28 AB 28 44 49 53 41 42 4C 45 5F 43 41 |;..(.(DISABLE_CA|
000007E0: 53 45 29 29 3B 0D A5 28 31 32 38 2C 10 82 28 2A |SE));..(128,..(*|
000007F0: 10 82 27 47 27 10 82 2A 29 0D 10 82 24 46 46 46 |..'G'..*)...$FFF|
00000800: 46 46 30 2C 20 24 43 30 30 30 33 30 2C 20 24 43 |FF0, $C00030, $C|
00000810: 46 46 46 46 30 2C 0D 10 82 24 43 43 30 30 30 30 |FFFF0,...$CC0000|
00000820: 2C 20 24 43 43 30 30 30 30 2C 20 24 43 43 30 30 |, $CC0000, $CC00|
00000830: 30 30 2C 0D 10 82 24 43 43 33 46 46 30 2C 20 24 |00,...$CC3FF0, $|
00000840: 43 43 33 30 33 30 2C 20 24 43 43 33 46 33 30 2C |CC3030, $CC3F30,|
00000850: 0D 10 82 24 43 43 30 33 33 30 2C 20 24 43 43 30 |...$CC0330, $CC0|
00000860: 33 33 30 2C 20 24 43 46 46 46 33 30 2C 0D 10 82 |330, $CFFF30,...|
00000870: 24 43 30 30 30 33 30 2C 20 24 46 46 46 46 46 30 |$C00030, $FFFFF0|
00000880: 29 3B 0D A5 28 31 32 39 2C 10 82 28 2A 10 82 27 |);..(129,..(*..'|
00000890: 2D 27 10 82 2A 29 0D 10 82 30 2C 30 2C 30 2C 30 |-'..*)...0,0,0,0|
000008A0: 2C 30 2C 30 2C 30 2C 0D 10 82 24 46 46 30 30 30 |,0,0,0,...$FF000|
000008B0: 30 2C 20 24 43 33 30 30 30 30 2C 20 24 46 46 30 |0, $C30000, $FF0|
000008C0: 30 30 30 29 3B 0D A5 28 31 33 30 2C 10 82 28 2A |000);..(130,..(*|
000008D0: 10 82 27 50 27 10 82 2A 29 0D 10 82 24 46 46 46 |..'P'..*)...$FFF|
000008E0: 46 46 30 2C 20 24 43 30 30 30 33 30 2C 20 24 43 |FF0, $C00030, $C|
000008F0: 46 46 46 33 30 2C 0D 10 82 24 43 43 30 33 33 30 |FFF30,...$CC0330|
00000900: 2C 20 24 43 43 30 33 33 30 2C 20 24 43 43 30 33 |, $CC0330, $CC03|
00000910: 33 30 2C 0D 10 82 24 43 46 46 46 33 30 2C 20 24 |30,...$CFFF30, $|
00000920: 43 30 30 30 33 30 2C 20 24 43 46 46 46 46 30 2C |C00030, $CFFFF0,|
00000930: 0D 10 82 24 43 43 30 30 30 30 2C 20 24 43 43 30 |...$CC0000, $CC0|
00000940: 30 30 30 2C 20 24 43 43 30 30 30 30 2C 0D 10 82 |000, $CC0000,...|
00000950: 24 43 43 30 30 30 30 2C 20 24 46 43 30 30 30 30 |$CC0000, $FC0000|
00000960: 29 3B 0D A5 28 31 33 31 2C 10 82 28 2A 10 82 27 |);..(131,..(*..'|
00000970: 41 27 10 82 2A 29 0D 10 82 24 46 46 46 46 46 30 |A'..*)...$FFFFF0|
00000980: 2C 20 24 43 30 30 30 33 30 2C 20 24 43 46 46 46 |, $C00030, $CFFF|
00000990: 33 30 2C 0D 10 82 24 43 43 30 33 33 30 2C 20 24 |30,...$CC0330, $|
000009A0: 43 43 30 33 33 30 2C 20 24 43 43 30 33 33 30 2C |CC0330, $CC0330,|
000009B0: 0D 10 82 24 43 43 30 33 33 30 2C 20 24 43 46 46 |...$CC0330, $CFF|
000009C0: 46 33 30 2C 20 24 43 30 30 30 33 30 2C 0D 10 82 |F30, $C00030,...|
000009D0: 24 43 46 46 46 33 30 2C 20 24 43 43 30 33 33 30 |$CFFF30, $CC0330|
000009E0: 2C 20 24 43 43 30 33 33 30 2C 0D 10 82 24 43 43 |, $CC0330,...$CC|
000009F0: 30 33 33 30 2C 20 24 46 43 30 33 46 30 29 3B 0D |0330, $FC03F0);.|
00000A00: A5 28 31 33 32 2C 10 82 28 2A 10 82 27 53 27 10 |.(132,..(*..'S'.|
00000A10: 82 2A 29 0D 10 82 24 46 46 46 46 46 30 2C 20 24 |.*)...$FFFFF0, $|
00000A20: 43 30 30 30 33 30 2C 20 24 43 46 46 46 46 30 2C |C00030, $CFFFF0,|
00000A30: 0D 10 82 24 43 43 30 30 30 30 2C 20 24 43 43 30 |...$CC0000, $CC0|
00000A40: 30 30 30 2C 20 24 43 46 46 46 46 30 2C 0D 10 82 |000, $CFFFF0,...|
00000A50: 24 43 30 30 30 33 30 2C 20 24 46 46 46 46 33 30 |$C00030, $FFFF30|
00000A60: 2C 20 24 30 30 30 33 33 30 2C 0D 10 82 24 30 30 |, $000330,...$00|
00000A70: 30 33 33 30 2C 20 24 30 30 30 33 33 30 2C 20 24 |0330, $000330, $|
00000A80: 46 46 46 46 33 30 2C 0D 10 82 24 43 30 30 30 33 |FFFF30,...$C0003|
00000A90: 30 2C 20 24 46 46 46 46 46 30 29 3B 0D A5 28 31 |0, $FFFFF0);..(1|
00000AA0: 33 33 2C 10 82 28 2A 10 82 27 43 27 10 82 2A 29 |33,..(*..'C'..*)|
00000AB0: 0D 10 82 24 46 46 46 46 43 30 2C 20 24 43 30 30 |...$FFFFC0, $C00|
00000AC0: 30 43 30 2C 20 24 43 46 46 46 43 30 2C 0D 10 82 |0C0, $CFFFC0,...|
00000AD0: 24 43 43 30 30 30 30 2C 20 24 43 43 30 30 30 30 |$CC0000, $CC0000|
00000AE0: 2C 20 24 43 43 30 30 30 30 2C 0D 10 82 24 43 43 |, $CC0000,...$CC|
00000AF0: 30 30 30 30 2C 20 24 43 43 30 30 30 30 2C 20 24 |0000, $CC0000, $|
00000B00: 43 43 30 30 30 30 2C 0D 10 82 24 43 43 30 30 30 |CC0000,...$CC000|
00000B10: 30 2C 20 24 43 43 30 30 30 30 2C 20 24 43 46 46 |0, $CC0000, $CFF|
00000B20: 46 43 30 2C 0D 10 82 24 43 30 30 30 43 30 2C 20 |FC0,...$C000C0, |
00000B30: 24 46 46 46 46 43 30 29 3B 0D A5 28 31 33 34 2C |$FFFFC0);..(134,|
00000B40: 10 82 28 2A 10 82 27 4C 27 10 82 2A 29 0D 10 82 |..(*..'L'..*)...|
00000B50: 24 46 43 30 30 30 30 2C 20 24 43 43 30 30 30 30 |$FC0000, $CC0000|
00000B60: 2C 20 24 43 43 30 30 30 30 2C 0D 10 82 24 43 43 |, $CC0000,...$CC|
00000B70: 30 30 30 30 2C 20 24 43 43 30 30 30 30 2C 20 24 |0000, $CC0000, $|
00000B80: 43 43 30 30 30 30 2C 0D 10 82 24 43 43 30 30 30 |CC0000,...$CC000|
00000B90: 30 2C 20 24 43 43 30 30 30 30 2C 20 24 43 43 30 |0, $CC0000, $CC0|
00000BA0: 30 30 30 2C 0D 10 82 24 43 43 30 30 30 30 2C 20 |000,...$CC0000, |
00000BB0: 24 43 43 30 30 30 30 2C 20 24 43 46 46 46 30 30 |$CC0000, $CFFF00|
00000BC0: 2C 0D 10 82 24 43 30 30 33 30 30 2C 20 24 46 46 |,...$C00300, $FF|
00000BD0: 46 46 30 30 29 3B 0D A5 28 31 33 35 2C 10 82 28 |FF00);..(135,..(|
00000BE0: 2A 10 82 4D 41 4E 20 31 20 2A 29 0D 10 82 30 2C |*..MAN 1 *)...0,|
00000BF0: 0D 10 82 24 30 30 38 30 30 30 2C 20 24 30 31 43 |...$008000, $01C|
00000C00: 30 30 30 2C 20 24 30 31 43 30 30 30 2C 0D 10 82 |000, $01C000,...|
00000C10: 24 30 31 38 30 30 30 2C 20 24 30 33 38 30 30 30 |$018000, $038000|
00000C20: 2C 20 24 30 37 38 30 30 30 2C 0D 10 82 24 30 33 |, $078000,...$03|
00000C30: 36 30 30 30 2C 20 24 30 33 38 30 30 30 2C 20 24 |6000, $038000, $|
00000C40: 30 36 43 30 30 30 2C 0D 10 82 24 30 36 43 30 30 |06C000,...$06C00|
00000C50: 30 29 3B 0D A5 28 31 33 36 2C 10 82 28 2A 10 82 |0);..(136,..(*..|
00000C60: 4D 41 4E 20 32 20 2A 29 0D 10 82 24 30 30 38 30 |MAN 2 *)...$0080|
00000C70: 30 30 2C 20 24 30 31 43 30 30 30 2C 20 24 30 31 |00, $01C000, $01|
00000C80: 43 30 30 30 2C 0D 10 82 24 30 46 38 30 30 30 2C |C000,...$0F8000,|
00000C90: 20 24 30 39 46 30 30 30 2C 20 24 30 33 30 30 30 | $09F000, $03000|
00000CA0: 30 2C 0D 10 82 24 30 33 30 30 30 30 2C 20 24 30 |0,...$030000, $0|
00000CB0: 37 43 30 30 30 2C 20 24 30 45 45 30 30 30 2C 0D |7C000, $0EE000,.|
00000CC0: 10 82 24 31 43 36 30 30 30 2C 20 24 31 38 30 30 |..$1C6000, $1800|
00000CD0: 30 30 29 3B 0D A5 28 31 33 37 2C 10 82 28 2A 10 |00);..(137,..(*.|
00000CE0: 82 4D 41 4E 20 33 20 2A 29 0D 10 82 30 2C 0D 10 |.MAN 3 *)...0,..|
00000CF0: 82 24 30 30 38 30 30 30 2C 20 24 30 31 43 30 30 |.$008000, $01C00|
00000D00: 30 2C 20 24 30 31 43 30 30 30 2C 0D 10 82 24 30 |0, $01C000,...$0|
00000D10: 37 38 30 30 30 2C 20 24 30 39 43 30 30 30 2C 20 |78000, $09C000, |
00000D20: 24 31 33 33 30 30 30 2C 0D 10 82 24 30 33 30 30 |$133000,...$0300|
00000D30: 30 30 2C 20 24 30 33 38 30 30 30 2C 20 24 31 45 |00, $038000, $1E|
00000D40: 45 30 30 30 2C 0D 10 82 24 30 30 36 30 30 30 2C |E000,...$006000,|
00000D50: 20 24 30 30 36 30 30 30 29 3B 0D A5 28 31 33 38 | $006000);..(138|
00000D60: 2C 10 82 28 2A 10 82 4D 41 4E 20 34 20 2A 29 0D |,..(*..MAN 4 *).|
00000D70: 10 82 24 30 30 38 30 30 30 2C 20 24 30 31 43 30 |..$008000, $01C0|
00000D80: 30 30 2C 20 24 30 31 43 30 30 30 2C 0D 10 82 24 |00, $01C000,...$|
00000D90: 30 30 38 30 30 30 2C 20 24 30 33 45 30 30 30 2C |008000, $03E000,|
00000DA0: 20 24 30 35 44 30 30 30 2C 0D 10 82 24 30 35 44 | $05D000,...$05D|
00000DB0: 30 30 30 2C 20 24 30 35 44 30 30 30 2C 20 24 30 |000, $05D000, $0|
00000DC0: 31 43 30 30 30 2C 0D 10 82 24 30 31 34 30 30 30 |1C000,...$014000|
00000DD0: 2C 20 24 30 31 34 30 30 30 2C 20 24 30 33 36 30 |, $014000, $0360|
00000DE0: 30 30 29 3B 0D A5 28 31 33 39 2C 10 82 28 2A 10 |00);..(139,..(*.|
00000DF0: 82 4D 41 4E 20 35 20 2A 29 0D 10 82 24 30 30 38 |.MAN 5 *)...$008|
00000E00: 30 30 30 2C 20 24 30 31 43 30 30 30 2C 20 24 30 |000, $01C000, $0|
00000E10: 31 43 30 30 30 2C 0D 10 82 24 30 30 38 30 30 30 |1C000,...$008000|
00000E20: 2C 20 24 30 33 45 30 30 30 2C 20 24 30 35 44 30 |, $03E000, $05D0|
00000E30: 30 30 2C 0D 10 82 24 30 31 44 30 30 30 2C 20 24 |00,...$01D000, $|
00000E40: 30 31 43 30 30 30 2C 20 24 30 31 34 30 30 30 2C |01C000, $014000,|
00000E50: 0D 10 82 24 30 31 36 30 30 30 2C 20 24 30 31 30 |...$016000, $010|
00000E60: 30 30 30 2C 20 24 30 33 30 30 30 30 29 3B 0D A5 |000, $030000);..|
00000E70: 28 31 34 30 2C 10 82 28 2A 10 82 4D 41 4E 20 36 |(140,..(*..MAN 6|
00000E80: 20 2A 29 0D 10 82 24 30 30 38 30 30 30 2C 20 24 | *)...$008000, $|
00000E90: 30 31 43 30 30 30 2C 20 24 30 31 43 30 30 30 2C |01C000, $01C000,|
00000EA0: 0D 10 82 24 30 30 38 30 30 30 2C 20 24 30 33 45 |...$008000, $03E|
00000EB0: 30 30 30 2C 20 24 30 35 44 30 30 30 2C 0D 10 82 |000, $05D000,...|
00000EC0: 24 30 35 43 30 30 30 2C 20 24 30 31 43 30 30 30 |$05C000, $01C000|
00000ED0: 2C 20 24 30 31 34 30 30 30 2C 0D 10 82 24 30 33 |, $014000,...$03|
00000EE0: 34 30 30 30 2C 20 24 30 30 34 30 30 30 2C 20 24 |4000, $004000, $|
00000EF0: 30 30 36 30 30 30 29 3B 0D A5 28 33 32 2C 10 82 |006000);..(32,..|
00000F00: 28 2A 20 42 41 54 20 31 20 2A 29 0D 10 82 24 30 |(* BAT 1 *)...$0|
00000F10: 32 30 34 30 2C 20 24 30 46 36 46 30 2C 20 24 33 |2040, $0F6F0, $3|
00000F20: 46 46 46 43 2C 0D 10 82 24 36 46 46 46 36 2C 20 |FFFC,...$6FFF6, |
00000F30: 24 38 35 46 41 31 2C 20 24 30 30 36 30 30 29 3B |$85FA1, $00600);|
00000F40: 0D A5 28 33 33 2C 10 82 28 2A 20 42 41 54 20 32 |..(33,..(* BAT 2|
00000F50: 20 2A 29 0D 10 82 24 30 32 30 34 30 2C 20 24 30 | *)...$02040, $0|
00000F60: 36 36 36 30 2C 20 24 30 36 46 36 30 2C 0D 10 82 |6660, $06F60,...|
00000F70: 24 30 46 46 46 30 2C 20 24 31 33 46 43 38 2C 20 |$0FFF0, $13FC8, |
00000F80: 24 30 30 36 30 30 29 3B 0D A5 28 33 34 2C 10 82 |$00600);..(34,..|
00000F90: 28 2A 20 42 41 54 20 33 20 2A 29 0D 10 82 24 30 |(* BAT 3 *)...$0|
00000FA0: 31 30 38 30 2C 20 24 30 33 36 43 30 2C 20 24 30 |1080, $036C0, $0|
00000FB0: 33 46 43 30 2C 0D 10 82 24 30 35 46 41 30 2C 20 |3FC0,...$05FA0, |
00000FC0: 24 30 31 36 38 30 2C 20 24 30 30 36 30 30 29 3B |$01680, $00600);|
00000FD0: 0D 89 3B 0D 0D 0D 86 50 41 55 53 45 20 28 58 29 |..;....PAUSE (X)|
00000FE0: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
00000FF0: 2A 2A 2A 2A 2A 29 0D 88 0D 10 82 E3 28 33 2C 20 |*****)......(3, |
00001000: 58 29 0D 89 3B 0D 0D 86 53 4C 4F 57 3B 0D 28 2A |X)..;...SLOW;.(*|
00001010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D |************)...|
00001020: 10 82 50 41 55 53 45 20 28 50 45 52 49 4F 44 29 |..PAUSE (PERIOD)|
00001030: 3B 0D 10 82 FF 0D 89 3B 0D 0D 86 46 41 4E 43 59 |;......;...FANCY|
00001040: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
00001050: 2A 29 0D 83 49 2C 20 58 20 3A 20 FE 3B 0D 88 0D |*)..I, X : .;...|
00001060: 10 82 47 50 41 53 43 41 4C 5F 43 4F 4C 4F 55 52 |..GPASCAL_COLOUR|
00001070: 20 3A 3D 20 47 50 41 53 43 41 4C 5F 43 4F 4C 4F | := GPASCAL_COLO|
00001080: 55 52 0D 10 94 2B 20 31 3B 0D 10 82 95 47 50 41 |UR...+ 1;....GPA|
00001090: 53 43 41 4C 5F 43 4F 4C 4F 55 52 20 8C 37 20 85 |SCAL_COLOUR .7 .|
000010A0: 0D 10 83 30 3A 20 58 20 3A 3D 20 57 48 49 54 45 |...0: X := WHITE|
000010B0: 3B 0D 10 83 31 3A 20 58 20 3A 3D 20 43 59 41 4E |;...1: X := CYAN|
000010C0: 3B 0D 10 83 32 3A 20 58 20 3A 3D 20 59 45 4C 4C |;...2: X := YELL|
000010D0: 4F 57 3B 0D 10 83 33 3A 20 58 20 3A 3D 20 4D 45 |OW;...3: X := ME|
000010E0: 44 49 55 4D 5F 47 52 45 59 3B 0D 10 83 34 3A 20 |DIUM_GREY;...4: |
000010F0: 58 20 3A 3D 20 4C 49 47 48 54 5F 47 52 45 45 4E |X := LIGHT_GREEN|
00001100: 3B 0D 10 83 35 3A 20 58 20 3A 3D 20 4C 49 47 48 |;...5: X := LIGH|
00001110: 54 5F 42 4C 55 45 3B 0D 10 83 36 3A 20 58 20 3A |T_BLUE;...6: X :|
00001120: 3D 20 4C 49 47 48 54 5F 47 52 45 59 0D 10 82 89 |= LIGHT_GREY....|
00001130: 3B 0D 10 82 9A 49 20 3A 3D 20 31 20 9B 38 20 97 |;....I := 1 .8 .|
00001140: 0D 10 85 DF 28 49 2C 20 43 4F 4C 4F 55 52 2C 20 |....(I, COLOUR, |
00001150: 58 29 3B 0D 10 82 53 4C 4F 57 0D 89 3B 0D 0D 86 |X);...SLOW..;...|
00001160: 50 4C 41 59 20 28 56 43 2C 20 4E 4F 54 45 2C 20 |PLAY (VC, NOTE, |
00001170: 4C 45 4E 47 54 48 29 3B 0D 28 2A 2A 2A 2A 2A 2A |LENGTH);.(******|
00001180: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D E1 28 |**********)....(|
000011A0: 56 43 2C 20 50 4C 41 59 49 54 2C 20 4F 46 46 2C |VC, PLAYIT, OFF,|
000011B0: 0D 10 87 56 43 2C 20 46 52 45 51 55 45 4E 43 59 |...VC, FREQUENCY|
000011C0: 2C 20 4E 4F 54 45 20 8F 32 2C 0D 10 87 56 43 2C |, NOTE .2,...VC,|
000011D0: 20 50 4C 41 59 49 54 2C 20 4F 4E 29 3B 0D 92 4C | PLAYIT, ON);..L|
000011E0: 45 4E 47 54 48 20 3E 20 30 20 93 0D 10 82 50 41 |ENGTH > 0 ....PA|
000011F0: 55 53 45 20 28 4C 45 4E 47 54 48 20 2A 20 32 35 |USE (LENGTH * 25|
00001200: 29 0D 89 3B 0D 0D 86 54 55 4E 45 3B 0D 28 2A 2A |)..;...TUNE;.(**|
00001210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 28 |***********)...(|
00001220: 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |*---------------|
00001230: 2D 2D 2D 2D 2D 2D 0D D0 4C 41 59 20 4F 55 52 20 |------..LAY OUR |
00001240: C2 41 43 48 20 50 49 45 43 45 2E 0D 2D 2D 2D 2D |.ACH PIECE..----|
00001250: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001260: 2D 2A 29 0D E3 28 56 4F 4C 55 4D 45 2C 20 31 35 |-*)..(VOLUME, 15|
00001270: 29 3B 0D 50 41 55 53 45 20 28 32 30 29 3B 0D 9A |);.PAUSE (20);..|
00001280: 49 20 3A 3D 20 31 20 9B 33 20 97 0D 10 82 E1 28 |I := 1 .3 .....(|
00001290: 49 2C 20 41 54 54 41 43 4B 2C 20 32 2C 0D 10 89 |I, ATTACK, 2,...|
000012A0: 49 2C 20 44 45 43 41 59 2C 20 31 30 2C 0D 10 89 |I, DECAY, 10,...|
000012B0: 49 2C 20 53 55 53 54 41 49 4E 2C 20 31 30 2C 0D |I, SUSTAIN, 10,.|
000012C0: 10 89 49 2C 20 52 45 4C 45 41 53 45 2C 20 32 2C |..I, RELEASE, 2,|
000012D0: 0D 10 89 49 2C 20 54 52 49 41 4E 47 4C 45 2C 20 |...I, TRIANGLE, |
000012E0: 4F 4E 29 3B 0D 0D 9A 52 4F 55 4E 44 20 3A 3D 20 |ON);...ROUND := |
000012F0: 31 20 9B 32 20 97 0D 88 0D 0D 10 82 28 2A 10 82 |1 .2 .......(*..|
00001300: 42 41 52 20 31 10 82 2A 29 0D 10 82 50 4C 41 59 |BAR 1..*)...PLAY|
00001310: 20 28 31 2C 20 44 2C 20 30 29 3B 0D 10 82 50 4C | (1, D, 0);...PL|
00001320: 41 59 20 28 32 2C 20 42 20 8F 32 2C 20 30 29 3B |AY (2, B .2, 0);|
00001330: 0D 10 82 50 4C 41 59 20 28 33 2C 20 47 20 8F 32 |...PLAY (3, G .2|
00001340: 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C |, 2);...PLAY (1,|
00001350: 20 47 20 8F 31 2C 20 31 29 3B 0D 10 82 50 4C 41 | G .1, 1);...PLA|
00001360: 59 20 28 31 2C 20 41 20 8F 31 2C 20 31 29 3B 0D |Y (1, A .1, 1);.|
00001370: 10 82 50 4C 41 59 20 28 31 2C 20 42 20 8F 31 2C |..PLAY (1, B .1,|
00001380: 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 32 2C 20 | 0);...PLAY (2, |
00001390: 41 20 8F 32 2C 20 31 29 3B 0D 10 82 50 4C 41 59 |A .2, 1);...PLAY|
000013A0: 20 28 31 2C 20 43 2C 20 31 29 3B 0D 10 82 28 2A | (1, C, 1);...(*|
000013B0: 10 82 42 41 52 20 32 10 82 2A 29 0D 10 82 E1 28 |..BAR 2..*)....(|
000013C0: 33 2C 20 50 4C 41 59 49 54 2C 20 4F 46 46 29 3B |3, PLAYIT, OFF);|
000013D0: 0D 10 82 50 4C 41 59 20 28 32 2C 20 42 20 8F 32 |...PLAY (2, B .2|
000013E0: 2C 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C |, 0);...PLAY (1,|
000013F0: 20 44 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 28 | D, 2);...PLAY (|
00001400: 31 2C 20 47 20 8F 31 2C 20 32 29 3B 0D 10 82 50 |1, G .1, 2);...P|
00001410: 4C 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 32 29 |LAY (1, G .1, 2)|
00001420: 3B 0D 10 82 28 2A 10 82 42 41 52 20 33 10 82 2A |;...(*..BAR 3..*|
00001430: 29 0D 10 82 50 4C 41 59 20 28 32 2C 20 43 20 8F |)...PLAY (2, C .|
00001440: 31 2C 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 31 |1, 0);...PLAY (1|
00001450: 2C 20 45 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 |, E, 2);...PLAY |
00001460: 28 31 2C 20 43 2C 20 31 29 3B 0D 10 82 50 4C 41 |(1, C, 1);...PLA|
00001470: 59 20 28 31 2C 20 44 2C 20 31 29 3B 0D 10 82 50 |Y (1, D, 1);...P|
00001480: 4C 41 59 20 28 31 2C 20 45 2C 20 31 29 3B 0D 10 |LAY (1, E, 1);..|
00001490: 82 50 4C 41 59 20 28 31 2C 20 46 53 2C 20 31 29 |.PLAY (1, FS, 1)|
000014A0: 3B 0D 10 82 28 2A 10 82 42 41 52 20 34 10 82 2A |;...(*..BAR 4..*|
000014B0: 29 0D 10 82 50 4C 41 59 20 28 32 2C 20 42 20 8F |)...PLAY (2, B .|
000014C0: 32 2C 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 31 |2, 0);...PLAY (1|
000014D0: 2C 20 47 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 |, G, 2);...PLAY |
000014E0: 28 31 2C 20 47 20 8F 31 2C 20 32 29 3B 0D 10 82 |(1, G .1, 2);...|
000014F0: 50 4C 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 32 |PLAY (1, G .1, 2|
00001500: 29 3B 0D 10 82 28 2A 10 82 42 41 52 20 35 10 82 |);...(*..BAR 5..|
00001510: 2A 29 0D 10 82 50 4C 41 59 20 28 32 2C 20 41 20 |*)...PLAY (2, A |
00001520: 8F 32 2C 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 |.2, 0);...PLAY (|
00001530: 31 2C 20 43 2C 20 32 29 3B 0D 10 82 50 4C 41 59 |1, C, 2);...PLAY|
00001540: 20 28 31 2C 20 44 2C 20 31 29 3B 0D 10 82 50 4C | (1, D, 1);...PL|
00001550: 41 59 20 28 31 2C 20 43 2C 20 31 29 3B 0D 10 82 |AY (1, C, 1);...|
00001560: 50 4C 41 59 20 28 31 2C 20 42 20 8F 31 2C 20 31 |PLAY (1, B .1, 1|
00001570: 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 41 20 |);...PLAY (1, A |
00001580: 8F 31 2C 20 31 29 3B 0D 10 82 28 2A 10 82 42 41 |.1, 1);...(*..BA|
00001590: 52 20 36 10 82 2A 29 0D 10 82 50 4C 41 59 20 28 |R 6..*)...PLAY (|
000015A0: 32 2C 20 47 20 8F 32 2C 20 30 29 3B 0D 10 82 50 |2, G .2, 0);...P|
000015B0: 4C 41 59 20 28 31 2C 20 42 20 8F 31 2C 20 32 29 |LAY (1, B .1, 2)|
000015C0: 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 43 2C 20 |;...PLAY (1, C, |
000015D0: 31 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 42 |1);...PLAY (1, B|
000015E0: 20 8F 31 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 | .1, 1);...PLAY |
000015F0: 28 31 2C 20 41 20 8F 31 2C 20 31 29 3B 0D 10 82 |(1, A .1, 1);...|
00001600: 50 4C 41 59 20 28 31 2C 20 47 20 8F 31 2C 20 31 |PLAY (1, G .1, 1|
00001610: 29 3B 0D 10 82 92 52 4F 55 4E 44 20 3D 20 31 20 |);....ROUND = 1 |
00001620: 93 0D 10 84 88 0D 10 84 28 2A 10 82 42 41 52 20 |........(*..BAR |
00001630: 37 10 82 2A 29 0D 10 84 50 4C 41 59 20 28 32 2C |7..*)...PLAY (2,|
00001640: 20 44 20 8F 31 2C 20 30 29 3B 0D 10 84 50 4C 41 | D .1, 0);...PLA|
00001650: 59 20 28 31 2C 20 46 53 20 8F 31 2C 20 32 29 3B |Y (1, FS .1, 2);|
00001660: 0D 10 84 50 4C 41 59 20 28 32 2C 20 42 20 8F 32 |...PLAY (2, B .2|
00001670: 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C |, 0);...PLAY (1,|
00001680: 20 47 20 8F 31 2C 20 31 29 3B 0D 10 84 50 4C 41 | G .1, 1);...PLA|
00001690: 59 20 28 31 2C 20 41 20 8F 31 2C 20 31 29 3B 0D |Y (1, A .1, 1);.|
000016A0: 10 84 50 4C 41 59 20 28 32 2C 20 47 20 8F 32 2C |..PLAY (2, G .2,|
000016B0: 20 30 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 | 0);...PLAY (1, |
000016C0: 42 20 8F 31 2C 20 31 29 3B 0D 10 84 50 4C 41 59 |B .1, 1);...PLAY|
000016D0: 20 28 31 2C 20 47 20 8F 31 2C 20 31 29 3B 0D 10 | (1, G .1, 1);..|
000016E0: 84 28 2A 10 82 42 41 52 20 38 10 82 2A 29 0D 10 |.(*..BAR 8..*)..|
000016F0: 84 50 4C 41 59 20 28 32 2C 20 44 20 8F 31 2C 20 |.PLAY (2, D .1, |
00001700: 30 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 41 |0);...PLAY (1, A|
00001710: 20 8F 31 2C 20 32 29 3B 0D 10 84 50 4C 41 59 20 | .1, 2);...PLAY |
00001720: 28 32 2C 20 44 20 8F 32 2C 20 31 29 3B 0D 10 84 |(2, D .2, 1);...|
00001730: 50 4C 41 59 20 28 32 2C 20 43 20 8F 31 2C 20 31 |PLAY (2, C .1, 1|
00001740: 29 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 42 20 |);...PLAY (2, B |
00001750: 8F 32 2C 20 31 29 3B 0D 10 84 50 4C 41 59 20 28 |.2, 1);...PLAY (|
00001760: 32 2C 20 41 20 8F 32 2C 20 31 29 3B 0D 10 84 89 |2, A .2, 1);....|
00001770: 0D 10 82 94 0D 10 84 88 0D 10 84 28 2A 10 82 42 |...........(*..B|
00001780: 41 52 20 31 35 10 82 2A 29 0D 10 84 50 4C 41 59 |AR 15..*)...PLAY|
00001790: 20 28 32 2C 20 43 20 8F 31 2C 20 30 29 3B 0D 10 | (2, C .1, 0);..|
000017A0: 84 50 4C 41 59 20 28 31 2C 20 41 20 8F 31 2C 20 |.PLAY (1, A .1, |
000017B0: 32 29 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 44 |2);...PLAY (2, D|
000017C0: 20 8F 31 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 | .1, 0);...PLAY |
000017D0: 28 31 2C 20 42 20 8F 31 2C 20 31 29 3B 0D 10 84 |(1, B .1, 1);...|
000017E0: 50 4C 41 59 20 28 31 2C 20 41 20 8F 31 2C 20 31 |PLAY (1, A .1, 1|
000017F0: 29 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 44 20 |);...PLAY (2, D |
00001800: 8F 32 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 28 |.2, 0);...PLAY (|
00001810: 31 2C 20 47 20 8F 31 2C 20 31 29 3B 0D 10 84 50 |1, G .1, 1);...P|
00001820: 4C 41 59 20 28 31 2C 20 46 53 20 8F 31 2C 20 31 |LAY (1, FS .1, 1|
00001830: 29 3B 0D 10 84 28 2A 10 82 42 41 52 20 31 36 10 |);...(*..BAR 16.|
00001840: 82 2A 29 0D 10 84 50 4C 41 59 20 28 32 2C 20 47 |.*)...PLAY (2, G|
00001850: 20 8F 32 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 | .2, 0);...PLAY |
00001860: 28 31 2C 20 47 20 8F 31 2C 20 34 29 3B 0D 10 84 |(1, G .1, 4);...|
00001870: 50 4C 41 59 20 28 32 2C 20 47 20 8F 33 2C 20 32 |PLAY (2, G .3, 2|
00001880: 29 3B 0D 10 84 89 3B 0D 89 3B 0D 9A 49 20 3A 3D |);....;..;..I :=|
00001890: 20 31 20 9B 33 20 97 0D 10 82 E1 28 49 2C 20 50 | 1 .3 .....(I, P|
000018A0: 4C 41 59 49 54 2C 20 4F 46 46 29 3B 0D 50 41 55 |LAYIT, OFF);.PAU|
000018B0: 53 45 20 28 20 31 30 30 29 3B 0D E3 28 56 4F 4C |SE ( 100);..(VOL|
000018C0: 55 4D 45 2C 20 30 29 0D 89 3B 0D 0D 86 4D 4F 56 |UME, 0)..;...MOV|
000018D0: 45 5F 50 41 53 43 41 4C 20 28 57 48 49 43 48 2C |E_PASCAL (WHICH,|
000018E0: 20 4E 45 57 58 2C 0D 10 96 4E 45 57 59 2C 20 4D | NEWX,...NEWY, M|
000018F0: 4F 56 45 53 29 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A |OVES);.(********|
00001900: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 28 |***********)...(|
00001910: 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |*---------------|
00001920: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001930: 0D CD 4F 56 45 20 54 48 45 20 4E 4F 4D 49 4E 41 |..OVE THE NOMINA|
00001940: 54 45 44 20 DF 46 52 4F 4D 20 49 54 53 0D 43 55 |TED .FROM ITS.CU|
00001950: 52 52 45 4E 54 20 50 4F 53 49 54 49 4F 4E 20 9B |RRENT POSITION .|
00001960: 54 48 45 20 4E 45 57 20 58 20 8D 0D 59 20 43 4F |THE NEW X ..Y CO|
00001970: 4F 52 44 49 4E 41 54 45 53 2C 20 49 4E 20 54 48 |ORDINATES, IN TH|
00001980: 45 20 4E 4F 4D 49 4E 41 54 45 44 0D 4E 55 4D 42 |E NOMINATED.NUMB|
00001990: 45 52 20 85 4D 4F 56 45 53 2E 0D 2D 2D 2D 2D 2D |ER .MOVES..-----|
000019A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000019B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 0D 10 82 |-----------*)...|
000019C0: F4 28 57 48 49 43 48 2C 0D 10 84 EC 28 57 48 49 |.(WHICH,....(WHI|
000019D0: 43 48 29 2C 0D 10 84 EE 28 57 48 49 43 48 29 2C |CH),....(WHICH),|
000019E0: 0D 10 84 28 4E 45 57 58 20 2D 20 EC 28 57 48 49 |...(NEWX - .(WHI|
000019F0: 43 48 29 29 0D 10 87 2A 20 32 35 36 20 2F 20 4D |CH))...* 256 / M|
00001A00: 4F 56 45 53 2C 0D 10 84 28 4E 45 57 59 20 2D 20 |OVES,...(NEWY - |
00001A10: EE 28 57 48 49 43 48 29 29 0D 10 87 2A 20 32 35 |.(WHICH))...* 25|
00001A20: 36 20 2F 20 4D 4F 56 45 53 2C 0D 10 84 4D 4F 56 |6 / MOVES,...MOV|
00001A30: 45 53 29 0D 89 3B 0D 0D 86 42 52 49 4E 47 5F 50 |ES)..;...BRING_P|
00001A40: 41 53 43 41 4C 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A |ASCAL;.(********|
00001A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0D |*************)..|
00001A60: 86 46 4C 41 53 48 5F 42 4F 52 44 45 52 3B 0D 28 |.FLASH_BORDER;.(|
00001A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A80: 2A 2A 2A 2A 2A 29 0D 88 0D 49 20 3A 3D 20 31 3B |*****)...I := 1;|
00001A90: 0D 98 0D 10 83 49 20 3A 3D 20 49 20 2B 20 31 3B |.....I := I + 1;|
00001AA0: 0D 10 83 AA 28 32 39 30 29 3B 0D 10 83 E2 28 42 |....(290);....(B|
00001AB0: 4F 52 44 45 52 2C 20 49 29 3B 0D 10 83 50 41 55 |ORDER, I);...PAU|
00001AC0: 53 45 20 28 31 35 29 3B 0D 99 F3 28 38 29 20 3D |SE (15);...(8) =|
00001AD0: 20 30 3B 0D 89 3B 0D 0D 88 20 28 2A 20 42 52 49 | 0;..;... (* BRI|
00001AE0: 4E 47 5F 50 41 53 43 41 4C 20 2A 29 0D A3 28 38 |NG_PASCAL *)..(8|
00001AF0: 2C 20 31 29 3B 0D E2 28 43 48 41 52 43 4F 4C 4F |, 1);..(CHARCOLO|
00001B00: 55 52 2C 20 50 55 52 50 4C 45 29 3B 0D FF 28 22 |UR, PURPLE);..("|
00001B10: D4 48 49 53 20 44 45 4D 4F 4E 53 54 52 41 54 49 |.HIS DEMONSTRATI|
00001B20: 4F 4E 20 50 52 4F 47 52 41 4D 20 49 53 20 57 52 |ON PROGRAM IS WR|
00001B30: 49 54 54 45 4E 22 29 3B 0D 53 4C 4F 57 3B 0D FF |ITTEN");.SLOW;..|
00001B40: 28 22 45 4E 54 49 52 45 4C 59 20 49 4E 20 C7 2D |("ENTIRELY IN .-|
00001B50: D0 41 53 43 41 4C 2E 20 20 C9 54 20 44 4F 45 53 |.ASCAL. .T DOES|
00001B60: 20 4E 4F 54 20 55 53 45 22 29 3B 0D 53 4C 4F 57 | NOT USE");.SLOW|
00001B70: 3B 0D FF 28 22 41 4E 59 20 D0 C5 C5 CB 53 2C 20 |;..("ANY ....S, |
00001B80: D0 CF CB C5 53 20 28 4F 52 20 53 49 4D 49 4C 41 |....S (OR SIMILA|
00001B90: 52 29 2C 20 20 4F 52 22 29 3B 0D 53 4C 4F 57 3B |R), OR");.SLOW;|
00001BA0: 0D FF 28 22 4D 41 43 48 49 4E 45 2D 43 4F 44 45 |..("MACHINE-CODE|
00001BB0: 20 53 55 42 52 4F 55 54 49 4E 45 53 2E 22 29 3B | SUBROUTINES.");|
00001BC0: 0D 53 4C 4F 57 3B 0D F7 28 31 2C 20 37 2C 20 33 |.SLOW;..(1, 7, 3|
00001BD0: 32 2C 20 33 33 2C 20 33 34 2C 20 33 33 29 3B 0D |2, 33, 34, 33);.|
00001BE0: DF 28 31 2C 20 45 58 50 41 4E 44 58 2C 20 4F 46 |.(1, EXPANDX, OF|
00001BF0: 46 2C 0D 10 88 31 2C 20 43 4F 4C 4F 55 52 2C 20 |F,...1, COLOUR, |
00001C00: 42 4C 55 45 2C 0D 10 88 31 2C 20 45 58 50 41 4E |BLUE,...1, EXPAN|
00001C10: 44 59 2C 20 4F 46 46 29 3B 0D F4 28 31 2C 30 2C |DY, OFF);..(1,0,|
00001C20: 31 33 30 2C 31 38 30 2C 20 30 2C 20 35 30 30 29 |130,180, 0, 500)|
00001C30: 3B 0D 98 99 F3 28 31 29 20 3D 20 30 3B 0D DF 28 |;....(1) = 0;..(|
00001C40: 31 2C 20 41 43 54 49 56 45 2C 20 4F 46 46 29 3B |1, ACTIVE, OFF);|
00001C50: 0D 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.(*-------------|
00001C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001C70: 2D 0D C4 45 46 49 4E 45 20 45 41 43 48 20 4C 45 |-..EFINE EACH LE|
00001C80: 54 54 45 52 20 28 49 4E 20 C7 2D D0 41 53 43 41 |TTER (IN .-.ASCA|
00001C90: 4C 29 0D 9A 49 54 53 20 50 4F 53 49 54 49 4F 4E |L)..ITS POSITION|
00001CA0: 20 4F 4E 20 54 48 45 20 4C 49 4E 45 2C 20 49 54 | ON THE LINE, IT|
00001CB0: 53 0D DF 50 4F 49 4E 54 45 52 20 28 54 48 45 20 |S..POINTER (THE |
00001CC0: 4C 45 54 54 45 52 20 27 41 27 0D 4F 43 43 55 52 |LETTER 'A'.OCCUR|
00001CD0: 53 20 54 57 49 43 45 29 20 8D 49 54 53 20 43 4F |S TWICE) .ITS CO|
00001CE0: 4C 4F 55 52 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |LOUR..----------|
00001CF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D00: 2D 2D 2D 2D 2D 2A 29 0D 50 4F 53 4E 20 5B 31 5D |-----*).POSN [1]|
00001D10: 20 3A 3D 20 32 35 3B 0D 50 4F 53 4E 20 5B 32 5D | := 25;.POSN [2]|
00001D20: 20 3A 3D 20 37 30 3B 0D 50 4F 53 4E 20 5B 33 5D | := 70;.POSN [3]|
00001D30: 20 3A 3D 20 39 30 3B 0D 50 4F 53 4E 20 5B 34 5D | := 90;.POSN [4]|
00001D40: 20 3A 3D 20 31 33 35 3B 0D 50 4F 53 4E 20 5B 35 | := 135;.POSN [5|
00001D50: 5D 20 3A 3D 20 31 38 30 3B 0D 50 4F 53 4E 20 5B |] := 180;.POSN [|
00001D60: 36 5D 20 3A 3D 20 32 32 35 3B 0D 50 4F 53 4E 20 |6] := 225;.POSN |
00001D70: 5B 37 5D 20 3A 3D 20 32 36 35 3B 0D 50 4F 53 4E |[7] := 265;.POSN|
00001D80: 20 5B 38 5D 20 3A 3D 20 33 31 30 3B 0D 50 4F 49 | [8] := 310;.POI|
00001D90: 4E 54 20 5B 31 5D 20 3A 3D 20 31 32 38 3B 0D 50 |NT [1] := 128;.P|
00001DA0: 4F 49 4E 54 20 5B 32 5D 20 3A 3D 20 31 32 39 3B |OINT [2] := 129;|
00001DB0: 0D 50 4F 49 4E 54 20 5B 33 5D 20 3A 3D 20 31 33 |.POINT [3] := 13|
00001DC0: 30 3B 0D 50 4F 49 4E 54 20 5B 34 5D 20 3A 3D 20 |0;.POINT [4] := |
00001DD0: 31 33 31 3B 0D 50 4F 49 4E 54 20 5B 35 5D 20 3A |131;.POINT [5] :|
00001DE0: 3D 20 31 33 32 3B 0D 50 4F 49 4E 54 20 5B 36 5D |= 132;.POINT [6]|
00001DF0: 20 3A 3D 20 31 33 33 3B 0D 50 4F 49 4E 54 20 5B | := 133;.POINT [|
00001E00: 37 5D 20 3A 3D 20 31 33 31 3B 0D 50 4F 49 4E 54 |7] := 131;.POINT|
00001E10: 20 5B 38 5D 20 3A 3D 20 31 33 34 3B 0D 53 43 4F | [8] := 134;.SCO|
00001E20: 4C 20 5B 31 5D 20 3A 3D 20 33 3B 0D 53 43 4F 4C |L [1] := 3;.SCOL|
00001E30: 20 5B 32 5D 20 3A 3D 20 34 3B 0D 53 43 4F 4C 20 | [2] := 4;.SCOL |
00001E40: 5B 33 5D 20 3A 3D 20 37 3B 0D 53 43 4F 4C 20 5B |[3] := 7;.SCOL [|
00001E50: 34 5D 20 3A 3D 20 38 3B 0D 53 43 4F 4C 20 5B 35 |4] := 8;.SCOL [5|
00001E60: 5D 20 3A 3D 20 31 30 3B 0D 53 43 4F 4C 20 5B 36 |] := 10;.SCOL [6|
00001E70: 5D 20 3A 3D 20 31 31 3B 0D 53 43 4F 4C 20 5B 37 |] := 11;.SCOL [7|
00001E80: 5D 20 3A 3D 20 31 32 3B 0D 53 43 4F 4C 20 5B 38 |] := 12;.SCOL [8|
00001E90: 5D 20 3A 3D 20 31 33 3B 0D 9A 49 20 3A 3D 20 31 |] := 13;..I := 1|
00001EA0: 20 9B 38 20 97 0D 10 82 DF 28 49 2C 20 43 4F 4C | .8 .....(I, COL|
00001EB0: 4F 55 52 2C 20 53 43 4F 4C 20 5B 49 5D 2C 0D 10 |OUR, SCOL [I],..|
00001EC0: 8A 49 2C 20 50 4F 49 4E 54 49 54 2C 20 50 4F 49 |.I, POINTIT, POI|
00001ED0: 4E 54 20 5B 49 5D 2C 0D 10 8A 49 2C 20 42 45 48 |NT [I],...I, BEH|
00001EE0: 49 4E 44 42 4B 2C 20 4F 4E 2C 0D 10 8A 49 2C 20 |INDBK, ON,...I, |
00001EF0: 45 58 50 41 4E 44 58 2C 20 4F 4E 2C 0D 10 8A 49 |EXPANDX, ON,...I|
00001F00: 2C 20 45 58 50 41 4E 44 59 2C 20 4F 4E 29 3B 0D |, EXPANDY, ON);.|
00001F10: 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 F4 |.I := 1 .8 .....|
00001F20: 28 49 2C 20 30 2C 20 32 32 30 2C 20 32 35 36 2C |(I, 0, 220, 256,|
00001F30: 0D 10 8E 30 2C 20 31 35 30 29 3B 0D 46 4C 41 53 |...0, 150);.FLAS|
00001F40: 48 5F 42 4F 52 44 45 52 3B 0D 9D 28 AB 28 48 4F |H_BORDER;..(.(HO|
00001F50: 4D 45 29 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 |ME));..I := 1 .8|
00001F60: 10 82 97 0D 10 82 4D 4F 56 45 5F 50 41 53 43 41 |......MOVE_PASCA|
00001F70: 4C 20 28 49 2C 20 50 4F 53 4E 20 5B 49 5D 2C 20 |L (I, POSN [I], |
00001F80: 35 35 2C 0D 10 8F 33 30 30 29 3B 0D 46 4C 41 53 |55,...300);.FLAS|
00001F90: 48 5F 42 4F 52 44 45 52 3B 0D 50 41 55 53 45 20 |H_BORDER;.PAUSE |
00001FA0: 28 31 30 30 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 |(100);.SET_COLOU|
00001FB0: 52 53 20 28 42 4C 41 43 4B 2C 20 59 45 4C 4C 4F |RS (BLACK, YELLO|
00001FC0: 57 29 3B 0D 89 3B 0D 0D 86 50 41 47 45 31 3B 0D |W);..;...PAGE1;.|
00001FD0: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 |(**************)|
00001FE0: 0D 0D 86 49 4E 54 52 4F 3B 0D 28 2A 2A 2A 2A 2A |...INTRO;.(*****|
00001FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D A3 28 31 |*********)....(1|
00002000: 30 2C 20 31 29 3B 0D FF 0D 28 22 D4 C8 C5 20 C3 |0, 1);...("... .|
00002010: CF CD D0 C9 CC C5 D2 20 D7 C8 C9 C3 C8 20 D3 D5 |....... ..... ..|
00002020: D0 D0 CF D2 D4 D3 20 C1 CC CC 20 CF C6 20 D4 C8 |...... ... .. ..|
00002030: C5 22 29 3B 0D FF 0D 28 22 C6 C5 C1 D4 D5 D2 C5 |.");...(".......|
00002040: D3 20 CF C6 20 D9 CF D5 D2 20 C3 CF CD CD CF C4 |. .. .... ......|
00002050: CF D2 C5 20 36 34 20 2E 2E 2E 22 29 3B 0D FF 3B |... 64 ...");..;|
00002060: 0D 89 3B 0D 0D 88 20 28 2A 20 50 41 47 45 31 20 |..;... (* PAGE1 |
00002070: 2A 29 0D 49 4E 54 52 4F 3B 0D 9A 49 20 3A 3D 20 |*).INTRO;..I := |
00002080: 31 20 9B 35 30 30 20 97 0D 88 0D 10 82 DF 28 49 |1 .500 .......(I|
00002090: 20 8C 38 20 2B 20 31 2C 20 43 4F 4C 4F 55 52 2C | .8 + 1, COLOUR,|
000020A0: 0D 10 8A 49 20 8C 31 35 20 2B 20 31 29 3B 0D 10 |...I .15 + 1);..|
000020B0: 82 AA 28 32 35 30 29 3B 0D 89 3B 0D 0D 53 45 54 |..(250);..;..SET|
000020C0: 5F 43 4F 4C 4F 55 52 53 20 28 42 4C 55 45 2C 20 |_COLOURS (BLUE, |
000020D0: 4C 49 47 48 54 5F 47 52 45 45 4E 29 3B 0D 49 4E |LIGHT_GREEN);.IN|
000020E0: 54 52 4F 3B 0D 47 50 41 53 43 41 4C 5F 43 4F 4C |TRO;.GPASCAL_COL|
000020F0: 4F 55 52 20 3A 3D 20 35 3B 0D FF 28 22 2A 20 20 |OUR := 5;..("* |
00002100: 53 50 52 49 54 45 53 22 29 3B 0D 46 41 4E 43 59 |SPRITES");.FANCY|
00002110: 3B 0D FF 28 22 2A 20 20 47 52 41 50 48 49 43 53 |;..("* GRAPHICS|
00002120: 22 29 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 2A 20 |");.FANCY;..("* |
00002130: 20 53 4F 55 4E 44 20 45 46 46 45 43 54 53 22 29 | SOUND EFFECTS")|
00002140: 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 2A 20 20 43 |;.FANCY;..("* C|
00002150: 4C 4F 43 4B 22 29 3B 0D 46 41 4E 43 59 3B 0D FF |LOCK");.FANCY;..|
00002160: 28 22 2A 20 20 49 4E 54 45 52 56 41 4C 20 54 49 |("* INTERVAL TI|
00002170: 4D 45 52 22 29 3B 0D 46 41 4E 43 59 3B 0D FF 28 |MER");.FANCY;..(|
00002180: 22 2A 20 20 43 55 52 53 4F 52 20 50 4F 53 49 54 |"* CURSOR POSIT|
00002190: 49 4F 4E 49 4E 47 22 29 3B 0D 46 41 4E 43 59 3B |IONING");.FANCY;|
000021A0: 0D FF 28 22 2A 20 20 50 41 44 44 4C 45 53 22 29 |..("* PADDLES")|
000021B0: 3B 0D 46 41 4E 43 59 3B 0D 9A 49 20 3A 3D 20 31 |;.FANCY;..I := 1|
000021C0: 20 9B 38 10 82 97 0D 10 82 4D 4F 56 45 5F 50 41 | .8......MOVE_PA|
000021D0: 53 43 41 4C 20 28 49 2C 20 33 30 30 2C 0D 10 84 |SCAL (I, 300,...|
000021E0: 32 33 20 2D 20 28 32 38 20 2A 20 28 49 20 3E 20 |23 - (28 * (I > |
000021F0: 32 29 29 20 2B 20 49 20 2A 20 32 38 2C 0D 10 84 |2)) + I * 28,...|
00002200: 32 30 30 29 3B 0D DF 28 32 2C 20 41 43 54 49 56 |200);..(2, ACTIV|
00002210: 45 2C 20 4F 46 46 29 3B 0D 9D 28 22 2A 20 20 4A |E, OFF);..("* J|
00002220: 4F 59 53 54 49 43 4B 53 22 29 3B 20 46 41 4E 43 |OYSTICKS"); FANC|
00002230: 59 3B 0D FF 3B 0D F7 28 32 2C 20 35 2C 20 31 33 |Y;..;..(2, 5, 13|
00002240: 35 2C 20 31 33 36 2C 0D 10 95 31 33 37 29 3B 0D |5, 136,...137);.|
00002250: DF 28 32 2C 20 45 58 50 41 4E 44 58 2C 20 4F 46 |.(2, EXPANDX, OF|
00002260: 46 2C 0D 10 88 32 2C 20 45 58 50 41 4E 44 59 2C |F,...2, EXPANDY,|
00002270: 20 4F 46 46 2C 0D 10 88 32 2C 20 42 45 48 49 4E | OFF,...2, BEHIN|
00002280: 44 42 4B 2C 20 4F 46 46 2C 0D 10 88 32 2C 20 43 |DBK, OFF,...2, C|
00002290: 4F 4C 4F 55 52 2C 20 57 48 49 54 45 29 3B 0D F4 |OLOUR, WHITE);..|
000022A0: 28 32 2C 20 35 30 2C 20 32 32 35 2C 20 32 35 36 |(2, 50, 225, 256|
000022B0: 2C 0D 10 8C 30 2C 20 32 34 30 29 3B 0D 0D FF 28 |,...0, 240);...(|
000022C0: 22 2A 20 20 53 4D 4F 4F 54 48 20 53 43 52 4F 4C |"* SMOOTH SCROL|
000022D0: 4C 49 4E 47 22 29 3B 0D 46 41 4E 43 59 3B 0D FF |LING");.FANCY;..|
000022E0: 28 22 2A 20 20 43 4F 4C 4C 49 53 49 4F 4E 20 44 |("* COLLISION D|
000022F0: 45 54 45 43 54 49 4F 4E 22 29 3B 0D 46 41 4E 43 |ETECTION");.FANC|
00002300: 59 3B 0D FF 28 22 2A 20 20 41 4E 49 4D 41 54 49 |Y;..("* ANIMATI|
00002310: 4F 4E 22 29 3B 0D 0D 98 99 90 F3 28 32 29 3B 0D |ON");......(2);.|
00002320: 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 92 |.I := 1 .8 .....|
00002330: 49 20 3C 3E 20 32 20 93 0D 10 82 4D 4F 56 45 5F |I <> 2 ....MOVE_|
00002340: 50 41 53 43 41 4C 20 28 49 2C 20 EC 28 49 29 2C |PASCAL (I, .(I),|
00002350: 0D 10 8F 31 39 35 2C 20 35 30 29 3B 0D 98 99 90 |...195, 50);....|
00002360: F3 28 38 29 3B 0D F4 28 32 2C 20 EC 28 32 29 2C |.(8);..(2, .(2),|
00002370: 0D 10 8F EE 28 32 29 2C 0D 10 8F 32 35 36 2C 20 |....(2),...256, |
00002380: 30 2C 20 32 30 29 3B 0D 98 99 90 F3 28 32 29 3B |0, 20);.....(2);|
00002390: 0D F7 28 32 2C 20 35 2C 20 31 33 39 2C 20 31 33 |..(2, 5, 139, 13|
000023A0: 38 2C 0D 10 95 31 34 30 2C 20 31 33 38 29 3B 0D |8,...140, 138);.|
000023B0: 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 F4 |.I := 1 .8 .....|
000023C0: 28 49 2C 20 EC 28 49 29 2C 0D 10 91 EE 28 49 29 |(I, .(I),....(I)|
000023D0: 2C 0D 10 91 30 2C 20 2D 31 32 38 2C 20 34 30 30 |,...0, -128, 400|
000023E0: 29 3B 0D 98 99 F3 28 38 29 20 3D 20 30 3B 0D 9A |);....(8) = 0;..|
000023F0: 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 DF 28 |I := 1 .8 .....(|
00002400: 49 2C 20 41 43 54 49 56 45 2C 20 4F 46 46 29 3B |I, ACTIVE, OFF);|
00002410: 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 4F 52 |.SET_COLOURS (OR|
00002420: 41 4E 47 45 2C 20 52 45 44 29 3B 0D 89 3B 0D 0D |ANGE, RED);..;..|
00002430: 86 50 41 47 45 32 3B 0D 28 2A 2A 2A 2A 2A 2A 2A |.PAGE2;.(*******|
00002440: 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9D 28 AB 28 48 |*******)....(.(H|
00002450: 4F 4D 45 29 29 3B 0D FF 28 22 20 20 20 20 20 20 |OME));..(" |
00002460: 20 20 20 20 20 20 20 20 20 D3 D0 D2 C9 D4 C5 D3 | .......|
00002470: 22 29 3B 0D 9D 10 82 28 22 20 20 20 20 20 20 20 |");....(" |
00002480: 20 20 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 22 | ......."|
00002490: 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D3 50 52 49 |);.SLOW;..(".PRI|
000024A0: 54 45 53 20 43 41 4E 20 45 41 53 49 4C 59 20 42 |TES CAN EASILY B|
000024B0: 45 20 44 45 46 49 4E 45 44 20 55 53 49 4E 47 20 |E DEFINED USING |
000024C0: 54 48 45 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 |THE");.SLOW;..("|
000024D0: C4 C5 C6 C9 CE C5 D3 D0 D2 C9 D4 C5 20 43 4F 4D |............ COM|
000024E0: 4D 41 4E 44 2E 22 29 3B 0D 53 4C 4F 57 3B 0D 9D |MAND.");.SLOW;..|
000024F0: 28 22 D4 48 45 59 20 43 41 4E 20 42 45 20 4D 4F |(".HEY CAN BE MO|
00002500: 56 45 44 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C |VED AUTOMATICALL|
00002510: 59 20 46 52 4F 4D 22 29 3B 0D 53 4C 4F 57 3B 0D |Y FROM");.SLOW;.|
00002520: 9D 28 22 50 4C 41 43 45 20 54 4F 20 50 4C 41 43 |.("PLACE TO PLAC|
00002530: 45 20 55 53 49 4E 47 20 54 48 45 20 CD CF D6 C5 |E USING THE ....|
00002540: D3 D0 D2 C9 D4 C5 22 29 3B 0D 53 4C 4F 57 3B 0D |......");.SLOW;.|
00002550: FF 28 22 43 4F 4D 4D 41 4E 44 2E 22 29 3B 0D 53 |.("COMMAND.");.S|
00002560: 4C 4F 57 3B 0D 9D 28 22 D4 48 45 59 20 43 41 4E |LOW;..(".HEY CAN|
00002570: 20 42 45 20 41 4E 49 4D 41 54 45 44 2C 20 54 4F | BE ANIMATED, TO|
00002580: 4F 2C 20 55 53 49 4E 47 20 54 48 45 22 29 3B 0D |O, USING THE");.|
00002590: 53 4C 4F 57 3B 0D FF 28 22 C1 CE C9 CD C1 D4 C5 |SLOW;..(".......|
000025A0: D3 D0 D2 C9 D4 C5 20 43 4F 4D 4D 41 4E 44 2C 20 |...... COMMAND, |
000025B0: 4C 49 4B 45 20 54 48 49 53 20 2E 2E 2E 22 29 3B |LIKE THIS ...");|
000025C0: 0D 53 4C 4F 57 3B 0D FF 3B 0D F7 28 32 2C 20 35 |.SLOW;..;..(2, 5|
000025D0: 2C 20 31 33 35 2C 20 31 33 36 2C 0D 10 95 31 33 |, 135, 136,...13|
000025E0: 37 29 3B 0D DF 28 32 2C 20 43 4F 4C 4F 55 52 2C |7);..(2, COLOUR,|
000025F0: 20 42 52 4F 57 4E 2C 0D 10 88 32 2C 20 42 45 48 | BROWN,...2, BEH|
00002600: 49 4E 44 42 4B 2C 20 4F 4E 29 3B 0D F4 28 32 2C |INDBK, ON);..(2,|
00002610: 20 30 2C 20 31 35 30 2C 20 32 35 36 2C 0D 10 8C | 0, 150, 256,...|
00002620: 30 2C 20 33 37 30 29 3B 0D 98 99 90 F3 28 32 29 |0, 370);.....(2)|
00002630: 3B 0D DF 28 32 2C 20 41 43 54 49 56 45 2C 20 4F |;..(2, ACTIVE, O|
00002640: 46 46 29 3B 0D 9D 28 22 D3 50 52 49 54 45 53 20 |FF);..(".PRITES |
00002650: 43 41 4E 20 42 45 20 45 41 53 49 4C 59 20 45 58 |CAN BE EASILY EX|
00002660: 50 41 4E 44 45 44 20 49 4E 20 54 48 45 22 29 3B |PANDED IN THE");|
00002670: 0D 53 4C 4F 57 3B 0D 9D 28 22 D8 20 41 4E 44 20 |.SLOW;..(". AND |
00002680: D9 20 44 49 52 45 43 54 49 4F 4E 53 2E 20 D4 48 |. DIRECTIONS. .H|
00002690: 45 59 20 43 41 4E 20 42 45 20 50 4C 41 43 45 44 |EY CAN BE PLACED|
000026A0: 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 49 4E 20 |");.SLOW;..("IN |
000026B0: 46 52 4F 4E 54 20 4F 46 20 4F 52 20 42 45 48 49 |FRONT OF OR BEHI|
000026C0: 4E 44 20 54 48 45 20 42 41 43 4B 47 52 4F 55 4E |ND THE BACKGROUN|
000026D0: 44 2E 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D9 |D.");.SLOW;..(".|
000026E0: 4F 55 20 43 41 4E 20 45 41 53 49 4C 59 20 45 53 |OU CAN EASILY ES|
000026F0: 54 41 42 4C 49 53 48 20 41 20 53 50 52 49 54 45 |TABLISH A SPRITE|
00002700: 27 53 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 43 |'S");.SLOW;..("C|
00002710: 55 52 52 45 4E 54 20 50 4F 53 49 54 49 4F 4E 20 |URRENT POSITION |
00002720: 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 2C 20 41 |ON THE SCREEN, A|
00002730: 4E 44 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 57 |ND");.SLOW;..("W|
00002740: 48 45 54 48 45 52 20 4F 52 20 4E 4F 54 20 49 54 |HETHER OR NOT IT|
00002750: 20 49 53 20 4D 4F 56 49 4E 47 2E 22 29 3B 0D 50 | IS MOVING.");.P|
00002760: 41 55 53 45 20 28 35 30 30 29 3B 0D 89 3B 0D 0D |AUSE (500);..;..|
00002770: 86 50 41 47 45 33 3B 0D 28 2A 2A 2A 2A 2A 2A 2A |.PAGE3;.(*******|
00002780: 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9D 28 AB 28 48 |*******)....(.(H|
00002790: 4F 4D 45 29 29 3B 0D FF 28 22 20 20 20 20 20 20 |OME));..(" |
000027A0: 20 20 20 20 20 20 20 20 20 D3 D0 D2 C9 D4 C5 D3 | .......|
000027B0: 22 29 3B 0D 9D 10 82 28 22 20 20 20 20 20 20 20 |");....(" |
000027C0: 20 20 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 22 | ......."|
000027D0: 29 3B 20 53 4C 4F 57 3B 0D 9D 28 22 C7 2D D0 41 |); SLOW;..(".-.A|
000027E0: 53 43 41 4C 20 43 41 4E 20 41 55 54 4F 4D 41 54 |SCAL CAN AUTOMAT|
000027F0: 49 43 41 4C 4C 59 20 53 54 4F 50 20 54 57 4F 22 |ICALLY STOP TWO"|
00002800: 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 53 50 52 49 |);.SLOW;..("SPRI|
00002810: 54 45 53 20 54 48 45 20 49 4E 53 54 41 4E 54 20 |TES THE INSTANT |
00002820: 54 48 41 54 20 54 48 45 59 20 43 4F 4C 4C 49 44 |THAT THEY COLLID|
00002830: 45 2C 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 4C |E,");.SLOW;..("L|
00002840: 49 4B 45 20 54 48 49 53 20 2E 2E 2E 20 22 29 3B |IKE THIS ... ");|
00002850: 0D AD 28 33 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B |..(3);..I := 1 .|
00002860: 32 20 97 0D 10 82 DF 28 49 2C 20 43 4F 4C 4F 55 |2 .....(I, COLOU|
00002870: 52 2C 20 52 45 44 2C 0D 10 8A 49 2C 20 50 4F 49 |R, RED,...I, POI|
00002880: 4E 54 49 54 2C 20 31 32 38 2C 0D 10 8A 49 2C 20 |NTIT, 128,...I, |
00002890: 45 58 50 41 4E 44 58 2C 20 4F 4E 2C 0D 10 8A 49 |EXPANDX, ON,...I|
000028A0: 2C 20 45 58 50 41 4E 44 59 2C 20 4F 4E 29 3B 0D |, EXPANDY, ON);.|
000028B0: F4 28 31 2C 20 30 2C 20 31 35 30 2C 20 32 35 36 |.(1, 0, 150, 256|
000028C0: 2C 20 30 2C 20 33 37 30 29 3B 0D F4 28 32 2C 20 |, 0, 370);..(2, |
000028D0: 33 39 30 2C 20 31 35 30 2C 20 2D 32 35 36 2C 20 |390, 150, -256, |
000028E0: 30 2C 20 33 37 30 29 3B 0D 98 99 FD 3B 0D 53 45 |0, 370);....;.SE|
000028F0: 54 5F 43 4F 4C 4F 55 52 53 20 28 4C 49 47 48 54 |T_COLOURS (LIGHT|
00002900: 5F 52 45 44 2C 20 59 45 4C 4C 4F 57 29 3B 0D 50 |_RED, YELLOW);.P|
00002910: 41 55 53 45 20 28 35 30 30 29 3B 0D 89 3B 0D 0D |AUSE (500);..;..|
00002920: 86 42 49 54 4D 41 50 5F 44 45 4D 4F 3B 0D 28 2A |.BITMAP_DEMO;.(*|
00002930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002940: 2A 2A 2A 29 0D 88 0D 9A 49 20 3A 3D 20 31 20 9B |***)....I := 1 .|
00002950: 38 20 97 0D 10 82 DF 28 49 2C 20 41 43 54 49 56 |8 .....(I, ACTIV|
00002960: 45 2C 20 4F 46 46 29 3B 0D 0D 9D 28 AB 28 48 4F |E, OFF);...(.(HO|
00002970: 4D 45 29 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 |ME));.SET_COLOUR|
00002980: 53 20 28 52 45 44 2C 20 59 45 4C 4C 4F 57 29 3B |S (RED, YELLOW);|
00002990: 0D FF 28 22 20 20 20 20 20 20 20 20 C2 C9 D4 20 |..(" ... |
000029A0: CD C1 D0 20 C7 D2 C1 D0 C8 C9 C3 D3 22 29 3B 0D |... ........");.|
000029B0: FF 28 22 20 20 20 20 20 20 20 20 B8 B8 B8 B8 B8 |.(" .....|
000029C0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 29 3B 0D 53 |...........");.S|
000029D0: 4C 4F 57 3B 0D 9D 28 22 C7 2D D0 41 53 43 41 4C |LOW;..(".-.ASCAL|
000029E0: 20 53 55 50 50 4F 52 54 53 20 42 49 54 2D 4D 41 | SUPPORTS BIT-MA|
000029F0: 50 50 45 44 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 |PPED");.SLOW;..(|
00002A00: 22 28 48 49 47 48 2D 52 45 53 4F 4C 55 54 49 4F |"(HIGH-RESOLUTIO|
00002A10: 4E 29 20 47 52 41 50 48 49 43 53 20 57 49 54 48 |N) GRAPHICS WITH|
00002A20: 20 54 48 45 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 | THE");.SLOW;..(|
00002A30: 22 D0 CC CF D4 20 43 4F 4D 4D 41 4E 44 20 57 48 |".... COMMAND WH|
00002A40: 49 43 48 20 41 4C 4C 4F 57 53 20 50 4F 49 4E 54 |ICH ALLOWS POINT|
00002A50: 53 20 54 4F 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 |S TO");.SLOW;..(|
00002A60: 22 42 45 20 45 41 53 49 4C 59 20 50 4C 4F 54 54 |"BE EASILY PLOTT|
00002A70: 45 44 20 49 4E 20 42 49 54 2D 4D 41 50 20 4D 4F |ED IN BIT-MAP MO|
00002A80: 44 45 22 29 3B 0D 53 4C 4F 57 3B 0D FF 3B 20 FF |DE");.SLOW;..; .|
00002A90: 3B 0D FF 28 22 D7 41 54 43 48 20 54 48 49 53 20 |;..(".ATCH THIS |
00002AA0: 2E 2E 2E 22 29 3B 0D FF 3B 0D 50 41 55 53 45 20 |...");..;.PAUSE |
00002AB0: 28 32 30 30 29 3B 0D E2 28 42 4F 52 44 45 52 2C |(200);..(BORDER,|
00002AC0: 20 42 4C 41 43 4B 2C 20 42 41 43 4B 47 4E 44 2C | BLACK, BACKGND,|
00002AD0: 20 42 4C 41 43 4B 2C 0D 10 88 44 49 53 50 4C 41 | BLACK,...DISPLA|
00002AE0: 59 53 43 52 45 45 4E 2C 20 4F 46 46 2C 0D 10 88 |YSCREEN, OFF,...|
00002AF0: 4D 55 4C 54 49 43 4F 4C 4F 55 52 2C 20 4F 4E 2C |MULTICOLOUR, ON,|
00002B00: 0D 10 88 42 49 54 4D 41 50 2C 20 4F 4E 2C 0D 10 |...BITMAP, ON,..|
00002B10: 88 43 48 41 52 47 45 4E 42 41 53 45 2C 20 34 29 |.CHARGENBASE, 4)|
00002B20: 3B 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D E2 28 |;..(.(HOME));..(|
00002B30: 43 48 41 52 43 4F 4C 4F 55 52 2C 20 4C 49 47 48 |CHARCOLOUR, LIGH|
00002B40: 54 5F 47 52 45 45 4E 29 3B 0D 9A 49 20 3A 3D 20 |T_GREEN);..I := |
00002B50: 31 20 9B 31 30 30 10 82 97 0D 10 83 9D 28 22 20 |1 .100.......(" |
00002B60: 20 20 20 20 20 20 20 20 20 22 29 3B 0D A8 28 42 | ");..(B|
00002B70: 4C 55 45 2C 20 42 52 4F 57 4E 29 3B 0D E2 28 44 |LUE, BROWN);..(D|
00002B80: 49 53 50 4C 41 59 53 43 52 45 45 4E 2C 20 4F 4E |ISPLAYSCREEN, ON|
00002B90: 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 34 20 97 0D |);..I := 1 .4 ..|
00002BA0: 88 0D 10 82 F7 28 49 2C 20 37 2C 20 33 32 2C 20 |.....(I, 7, 32, |
00002BB0: 33 33 2C 20 33 34 2C 20 33 33 29 3B 0D 10 82 DF |33, 34, 33);....|
00002BC0: 28 49 2C 20 45 58 50 41 4E 44 58 2C 20 4F 46 46 |(I, EXPANDX, OFF|
00002BD0: 2C 0D 10 8A 49 2C 20 45 58 50 41 4E 44 59 2C 20 |,...I, EXPANDY, |
00002BE0: 4F 46 46 29 3B 0D 10 82 F4 28 49 2C 32 30 2C 34 |OFF);....(I,20,4|
00002BF0: 30 2C 36 30 20 2A 20 49 2C 34 30 2C 0D 10 8E 31 |0,60 * I,40,...1|
00002C00: 30 30 30 20 2F 20 49 29 3B 0D 89 3B 0D 9A 49 20 |000 / I);..;..I |
00002C10: 3A 3D 20 31 20 9B 31 35 37 20 97 0D 88 0D 10 82 |:= 1 .157 ......|
00002C20: A6 28 31 2C 20 49 2C 20 49 29 3B 0D 10 82 A6 28 |.(1, I, I);....(|
00002C30: 31 2C 20 49 2C 20 49 20 2B 20 31 29 3B 0D 10 82 |1, I, I + 1);...|
00002C40: A6 28 31 2C 20 49 2C 20 49 20 2B 20 32 29 3B 0D |.(1, I, I + 2);.|
00002C50: 89 3B 0D 9A 49 20 3A 3D 20 31 35 37 20 9C 31 20 |.;..I := 157 .1 |
00002C60: 97 0D 88 0D 10 84 A6 28 32 2C 20 49 2C 20 31 35 |.......(2, I, 15|
00002C70: 39 20 2D 20 49 29 3B 0D 10 84 A6 28 32 2C 20 49 |9 - I);....(2, I|
00002C80: 2C 20 31 35 38 20 2D 20 49 29 3B 0D 10 84 A6 28 |, 158 - I);....(|
00002C90: 32 2C 20 49 2C 20 31 35 37 20 2D 20 49 29 3B 0D |2, I, 157 - I);.|
00002CA0: 89 3B 0D 9A 49 20 3A 3D 20 31 20 9B 31 35 39 20 |.;..I := 1 .159 |
00002CB0: 97 0D 88 0D 10 82 A6 28 33 2C 20 31 2C 20 49 29 |.......(3, 1, I)|
00002CC0: 3B 0D 10 82 A6 28 33 2C 20 32 2C 20 49 29 3B 0D |;....(3, 2, I);.|
00002CD0: 10 82 A6 28 33 2C 20 31 35 38 2C 20 49 29 3B 0D |...(3, 158, I);.|
00002CE0: 10 82 A6 28 33 2C 20 31 35 39 2C 20 49 29 3B 0D |...(3, 159, I);.|
00002CF0: 89 3B 0D 9A 49 20 3A 3D 20 31 20 9B 31 35 39 20 |.;..I := 1 .159 |
00002D00: 97 0D 88 0D 10 82 A6 28 33 2C 20 49 2C 20 31 29 |.......(3, I, 1)|
00002D10: 3B 0D 10 82 A6 28 33 2C 20 49 2C 20 32 29 3B 0D |;....(3, I, 2);.|
00002D20: 10 82 A6 28 33 2C 20 49 2C 20 31 35 38 29 3B 0D |...(3, I, 158);.|
00002D30: 10 82 A6 28 33 2C 20 49 2C 20 31 35 39 29 3B 0D |...(3, I, 159);.|
00002D40: 89 3B 0D 98 99 90 F3 28 31 29 3B 0D 9A 49 20 3A |.;.....(1);..I :|
00002D50: 3D 20 31 20 9B 34 20 97 0D 10 82 DF 28 49 2C 20 |= 1 .4 .....(I, |
00002D60: 41 43 54 49 56 45 2C 20 4F 46 46 29 3B 0D E2 28 |ACTIVE, OFF);..(|
00002D70: 44 49 53 50 4C 41 59 53 43 52 45 45 4E 2C 4F 46 |DISPLAYSCREEN,OF|
00002D80: 46 2C 0D 10 8A 42 4F 52 44 45 52 2C 20 52 45 44 |F,...BORDER, RED|
00002D90: 2C 0D 10 8A 42 41 43 4B 47 4E 44 2C 20 52 45 44 |,...BACKGND, RED|
00002DA0: 2C 0D 10 8A 42 49 54 4D 41 50 2C 20 4F 46 46 2C |,...BITMAP, OFF,|
00002DB0: 0D 10 8A 4D 55 4C 54 49 43 4F 4C 4F 55 52 2C 20 |...MULTICOLOUR, |
00002DC0: 4F 46 46 2C 0D 10 8A 43 48 41 52 47 45 4E 42 41 |OFF,...CHARGENBA|
00002DD0: 53 45 2C 20 33 29 3B 0D 89 3B 0D 0D 86 53 4F 55 |SE, 3);..;...SOU|
00002DE0: 4E 44 5F 44 45 4D 4F 3B 0D 28 2A 2A 2A 2A 2A 2A |ND_DEMO;.(******|
00002DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 |*************)..|
00002E00: 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D E2 28 44 |..(.(HOME));..(D|
00002E10: 49 53 50 4C 41 59 53 43 52 45 45 4E 2C 20 4F 4E |ISPLAYSCREEN, ON|
00002E20: 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 |);.SET_COLOURS (|
00002E30: 52 45 44 2C 20 59 45 4C 4C 4F 57 29 3B 0D 0D FF |RED, YELLOW);...|
00002E40: 28 22 20 20 20 20 20 20 20 20 20 20 20 D3 CF D5 |(" ...|
00002E50: CE C4 20 C5 C6 C6 C5 C3 D4 D3 22 29 3B 0D FF 28 |.. .......");..(|
00002E60: 22 20 20 20 20 20 20 20 20 20 20 20 B8 B8 B8 B8 |" ....|
00002E70: B8 B8 B8 B8 B8 B8 B8 B8 B8 22 29 3B 0D 53 4C 4F |.........");.SLO|
00002E80: 57 3B 0D 9D 28 22 C7 2D D0 41 53 43 41 4C 20 50 |W;..(".-.ASCAL P|
00002E90: 52 4F 56 49 44 45 53 20 45 58 54 45 4E 53 49 56 |ROVIDES EXTENSIV|
00002EA0: 45 20 53 55 50 50 4F 52 54 20 46 4F 52 22 29 3B |E SUPPORT FOR");|
00002EB0: 0D 53 4C 4F 57 3B 0D 9D 28 22 54 48 45 20 D3 C9 |.SLOW;..("THE ..|
00002EC0: C4 20 43 48 49 50 20 28 D3 4F 55 4E 44 20 C9 4E |. CHIP (.OUND .N|
00002ED0: 54 45 52 46 41 43 45 20 C4 45 56 49 43 45 29 22 |TERFACE .EVICE)"|
00002EE0: 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 49 4E 20 59 |);.SLOW;..("IN Y|
00002EF0: 4F 55 52 20 C3 4F 4D 4D 4F 44 4F 52 45 20 36 34 |OUR .OMMODORE 64|
00002F00: 2E 20 D4 48 45 20 41 54 54 52 49 42 55 54 45 53 |. .HE ATTRIBUTES|
00002F10: 20 4F 46 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 | OF");.SLOW;..("|
00002F20: 45 41 43 48 20 49 4E 44 49 56 49 44 55 41 4C 20 |EACH INDIVIDUAL |
00002F30: 56 4F 49 43 45 20 41 52 45 20 45 41 53 49 4C 59 |VOICE ARE EASILY|
00002F40: 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 43 4F 4E |");.SLOW;..("CON|
00002F50: 54 52 4F 4C 4C 45 44 2C 20 41 53 20 57 45 4C 4C |TROLLED, AS WELL|
00002F60: 20 41 53 20 54 48 45 20 56 41 52 49 4F 55 53 22 | AS THE VARIOUS"|
00002F70: 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 46 49 4C 54 |);.SLOW;..("FILT|
00002F80: 45 52 49 4E 47 20 41 4E 44 20 53 50 45 43 49 41 |ERING AND SPECIA|
00002F90: 4C 20 45 46 46 45 43 54 53 2E 22 29 3B 0D 53 4C |L EFFECTS.");.SL|
00002FA0: 4F 57 3B 0D 9D 28 22 D4 55 52 4E 20 55 50 20 54 |OW;..(".URN UP T|
00002FB0: 48 45 20 56 4F 4C 55 4D 45 20 4E 4F 57 20 54 4F |HE VOLUME NOW TO|
00002FC0: 20 48 45 41 52 20 41 20 53 41 4D 50 4C 45 22 29 | HEAR A SAMPLE")|
00002FD0: 3B 0D 53 4C 4F 57 3B 0D FF 28 22 4F 46 20 49 54 |;.SLOW;..("OF IT|
00002FE0: 20 49 4E 20 4F 50 45 52 41 54 49 4F 4E 20 2E 2E | IN OPERATION ..|
00002FF0: 2E 2E 2E 22 29 3B 0D 53 4C 4F 57 3B 0D FF 3B 0D |...");.SLOW;..;.|
00003000: 54 55 4E 45 3B 0D 89 3B 0D 0D 0D 28 2A 2D 2D 2D |TUNE;..;...(*---|
00003010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00003020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 0D 88 |------------*)..|
00003030: 20 28 2A 10 82 4D 41 49 4E 20 50 52 4F 47 52 41 | (*..MAIN PROGRA|
00003040: 4D 10 82 2A 29 0D 98 0D 10 83 49 4E 49 54 3B 0D |M..*).....INIT;.|
00003050: 10 83 42 52 49 4E 47 5F 50 41 53 43 41 4C 3B 0D |..BRING_PASCAL;.|
00003060: 10 83 50 41 47 45 31 3B 0D 10 83 50 41 47 45 32 |..PAGE1;...PAGE2|
00003070: 3B 0D 10 83 50 41 47 45 33 3B 0D 10 83 42 49 54 |;...PAGE3;...BIT|
00003080: 4D 41 50 5F 44 45 4D 4F 3B 0D 10 83 53 4F 55 4E |MAP_DEMO;...SOUN|
00003090: 44 5F 44 45 4D 4F 3B 0D 99 46 41 4C 53 45 3B 0D |D_DEMO;..FALSE;.|
000030A0: 89 2E 0D 00 00 00 4E A9 FE 29 24 C9 7C 0E 20 2F |......N..)$.|. /|
000030B0: 04 FF 87 03 |.... |
.@(* %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 : .[8] ..;...SET_COLOURS (BACK,F
ORE);.(********************************)
......(BORDER, BACK,...BACKGND, BACK,...
CHARCOLOUR, FORE)..;...INIT;.(**********
***)...(*-------------------------------
..THE SCREEN, SET BACKGROUND..BORDER .BL
ACK, DISABLE ..SHIFTING (AS TEXT IS IN U
PPER ..LOWER .), .DEFINE OUR..SHAPES..--
------------------------------*)..(.(HOM
E));..(24,1);.SET_COLOURS (BLACK, WHITE)
;..(.(DISABLE_CASE));..(128,..(*..'G'..*
)...$FFFFF0, $C00030, $CFFFF0,...$CC0000
, $CC0000, $CC0000,...$CC3FF0, $CC3030,
$CC3F30,...$CC0330, $CC0330, $CFFF30,...
$C00030, $FFFFF0);..(129,..(*..'-'..*)..
.0,0,0,0,0,0,0,...$FF0000, $C30000, $FF0
000);..(130,..(*..'P'..*)...$FFFFF0, $C0
0030, $CFFF30,...$CC0330, $CC0330, $CC03
30,...$CFFF30, $C00030, $CFFFF0,...$CC00
00, $CC0000, $CC0000,...$CC0000, $FC0000
);..(131,..(*..'A'..*)...$FFFFF0, $C0003
0, $CFFF30,...$CC0330, $CC0330, $CC0330,
...$CC0330, $CFFF30, $C00030,...$CFFF30,
$CC0330, $CC0330,...$CC0330, $FC03F0);.
.(132,..(*..'S'..*)...$FFFFF0, $C00030,
$CFFFF0,...$CC0000, $CC0000, $CFFFF0,...
$C00030, $FFFF30, $000330,...$000330, $0
00330, $FFFF30,...$C00030, $FFFFF0);..(1
33,..(*..'C'..*)...$FFFFC0, $C000C0, $CF
FFC0,...$CC0000, $CC0000, $CC0000,...$CC
0000, $CC0000, $CC0000,...$CC0000, $CC00
00, $CFFFC0,...$C000C0, $FFFFC0);..(134,
..(*..'L'..*)...$FC0000, $CC0000, $CC000
0,...$CC0000, $CC0000, $CC0000,...$CC000
0, $CC0000, $CC0000,...$CC0000, $CC0000,
$CFFF00,...$C00300, $FFFF00);..(135,..(
*..MAN 1 *)...0,...$008000, $01C000, $01
C000,...$018000, $038000, $078000,...$03
6000, $038000, $06C000,...$06C000);..(13
6,..(*..MAN 2 *)...$008000, $01C000, $01
C000,...$0F8000, $09F000, $030000,...$03
0000, $07C000, $0EE000,...$1C6000, $1800
00);..(137,..(*..MAN 3 *)...0,...$008000
, $01C000, $01C000,...$078000, $09C000,
$133000,...$030000, $038000, $1EE000,...
$006000, $006000);..(138,..(*..MAN 4 *).
..$008000, $01C000, $01C000,...$008000,
$03E000, $05D000,...$05D000, $05D000, $0
1C000,...$014000, $014000, $036000);..(1
39,..(*..MAN 5 *)...$008000, $01C000, $0
1C000,...$008000, $03E000, $05D000,...$0
1D000, $01C000, $014000,...$016000, $010
000, $030000);..(140,..(*..MAN 6 *)...$0
08000, $01C000, $01C000,...$008000, $03E
000, $05D000,...$05C000, $01C000, $01400
0,...$034000, $004000, $006000);..(32,..
(* BAT 1 *)...$02040, $0F6F0, $3FFFC,...
$6FFF6, $85FA1, $00600);..(33,..(* BAT 2
*)...$02040, $06660, $06F60,...$0FFF0,
$13FC8, $00600);..(34,..(* BAT 3 *)...$0
1080, $036C0, $03FC0,...$05FA0, $01680,
$00600);..;....PAUSE (X);.(*************
*****)......(3, X)..;...SLOW;.(*********
****).....PAUSE (PERIOD);......;...FANCY
;.(**************)..I, X : .;.....GPASCA
L_COLOUR := GPASCAL_COLOUR...+ 1;....GPA
SCAL_COLOUR .7 ....0: X := WHITE;...1: X
:= CYAN;...2: X := YELLOW;...3: X := ME
DIUM_GREY;...4: X := LIGHT_GREEN;...5: X
:= LIGHT_BLUE;...6: X := LIGHT_GREY....
;....I := 1 .8 .....(I, COLOUR, X);...SL
OW..;...PLAY (VC, NOTE, LENGTH);.(******
**************************)....(VC, PLAY
IT, OFF,...VC, FREQUENCY, NOTE .2,...VC,
PLAYIT, ON);..LENGTH > 0 ....PAUSE (LEN
GTH * 25)..;...TUNE;.(*************)...(
*---------------------.PLAY OUR BACH PIE
CE..---------------------*)..(VOLUME, 15
);.PAUSE (20);..I := 1 .3 .....(I, ATTAC
K, 2,...I, DECAY, 10,...I, SUSTAIN, 10,.
..I, RELEASE, 2,...I, TRIANGLE, ON);...R
OUND := 1 .2 .......(*..BAR 1..*)...PLAY
(1, D, 0);...PLAY (2, B .2, 0);...PLAY
(3, G .2, 2);...PLAY (1, G .1, 1);...PLA
Y (1, A .1, 1);...PLAY (1, B .1, 0);...P
LAY (2, A .2, 1);...PLAY (1, C, 1);...(*
..BAR 2..*)....(3, PLAYIT, OFF);...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);...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..*)...PLA
Y (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);...(*..BA
R 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);...PLA
Y (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, PLAYIT, OFF);.PAU
SE ( 100);..(VOLUME, 0)..;...MOVE_PASCAL
(WHICH, NEWX,...NEWY, MOVES);.(********
***********)...(*-----------------------
--------.MOVE THE NOMINATED .FROM ITS.CU
RRENT POSITION .THE NEW X ..Y COORDINATE
S, IN THE NOMINATED.NUMBER .MOVES..-----
---------------------------*)....(WHICH,
....(WHICH),....(WHICH),...(NEWX - .(WHI
CH))...* 256 / MOVES,...(NEWY - .(WHICH)
)...* 256 / MOVES,...MOVES)..;...BRING_P
ASCAL;.(*********************)...FLASH_B
ORDER;.(*********************)...I := 1;
.....I := I + 1;....(290);....(BORDER, I
);...PAUSE (15);...(8) = 0;..;... (* BRI
NG_PASCAL *)..(8, 1);..(CHARCOLOUR, PURP
LE);..("THIS DEMONSTRATION PROGRAM IS WR
ITTEN");.SLOW;..("ENTIRELY IN G-PASCAL.
IT DOES NOT USE");.SLOW;..("ANY PEEKS,
POKES (OR SIMILAR), OR");.SLOW;..("MACH
INE-CODE SUBROUTINES.");.SLOW;..(1, 7, 3
2, 33, 34, 33);..(1, EXPANDX, OFF,...1,
COLOUR, BLUE,...1, EXPANDY, OFF);..(1,0,
130,180, 0, 500);....(1) = 0;..(1, ACTIV
E, OFF);.(*-----------------------------
-.DEFINE EACH LETTER (IN G-PASCAL)..ITS
POSITION ON THE LINE, ITS..POINTER (THE
LETTER 'A'.OCCURS TWICE) .ITS 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;.POI
NT [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;.SCOL [6] := 11;
.SCOL [7] := 12;.SCOL [8] := 13;..I := 1
.8 .....(I, COLOUR, SCOL [I],...I, POIN
TIT, POINT [I],...I, BEHINDBK, ON,...I,
EXPANDX, ON,...I, EXPANDY, ON);..I := 1
.8 .....(I, 0, 220, 256,...0, 150);.FLAS
H_BORDER;..(.(HOME));..I := 1 .8......MO
VE_PASCAL (I, POSN [I], 55,...300);.FLAS
H_BORDER;.PAUSE (100);.SET_COLOURS (BLAC
K, YELLOW);..;...PAGE1;.(**************)
...INTRO;.(**************)....(10, 1);..
.("THE COMPILER WHICH SUPPORTS ALL OF TH
E");...("FEATURES OF YOUR COMMODORE 64 .
..");..;..;... (* PAGE1 *).INTRO;..I :=
1 .500 .......(I .8 + 1, COLOUR,...I .15
+ 1);....(250);..;..SET_COLOURS (BLUE,
LIGHT_GREEN);.INTRO;.GPASCAL_COLOUR := 5
;..("* SPRITES");.FANCY;..("* GRAPHICS
");.FANCY;..("* SOUND EFFECTS");.FANCY;
..("* CLOCK");.FANCY;..("* INTERVAL TI
MER");.FANCY;..("* CURSOR POSITIONING")
;.FANCY;..("* PADDLES");.FANCY;..I := 1
.8......MOVE_PASCAL (I, 300,...23 - (28
* (I > 2)) + I * 28,...200);..(2, ACTIV
E, OFF);..("* JOYSTICKS"); FANCY;..;..(
2, 5, 135, 136,...137);..(2, EXPANDX, OF
F,...2, EXPANDY, OFF,...2, BEHINDBK, OFF
,...2, COLOUR, WHITE);..(2, 50, 225, 256
,...0, 240);...("* SMOOTH SCROLLING");.
FANCY;..("* COLLISION DETECTION");.FANC
Y;..("* ANIMATION");......(2);..I := 1
.8 .....I <> 2 ....MOVE_PASCAL (I, .(I),
...195, 50);.....(8);..(2, .(2),....(2),
...256, 0, 20);.....(2);..(2, 5, 139, 13
8,...140, 138);..I := 1 .8 .....(I, .(I)
,....(I),...0, -128, 400);....(8) = 0;..
I := 1 .8 .....(I, ACTIVE, OFF);.SET_COL
OURS (ORANGE, RED);..;...PAGE2;.(*******
*******)....(.(HOME));..("
SPRITES");....(" ......."
);.SLOW;..("SPRITES CAN EASILY BE DEFINE
D USING THE");.SLOW;..("DEFINESPRITE COM
MAND.");.SLOW;..("THEY CAN BE MOVED AUTO
MATICALLY FROM");.SLOW;..("PLACE TO PLAC
E USING THE MOVESPRITE");.SLOW;..("COMMA
ND.");.SLOW;..("THEY CAN BE ANIMATED, TO
O, USING THE");.SLOW;..("ANIMATESPRITE C
OMMAND, 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 EASILY EXPANDED IN THE");
.SLOW;..("X AND Y DIRECTIONS. THEY CAN B
E PLACED");.SLOW;..("IN FRONT OF OR BEHI
ND THE BACKGROUND.");.SLOW;..("YOU CAN E
ASILY ESTABLISH A SPRITE'S");.SLOW;..("C
URRENT POSITION ON THE SCREEN, AND");.SL
OW;..("WHETHER OR NOT IT IS MOVING.");.P
AUSE (500);..;...PAGE3;.(**************)
....(.(HOME));..(" SPRITES
");....(" ......."); SLOW;
..("G-PASCAL CAN AUTOMATICALLY STOP TWO"
);.SLOW;..("SPRITES THE INSTANT THAT THE
Y 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);....;.SE
T_COLOURS (LIGHT_RED, YELLOW);.PAUSE (50
0);..;...BITMAP_DEMO;.(*****************
***)....I := 1 .8 .....(I, ACTIVE, OFF);
...(.(HOME));.SET_COLOURS (RED, YELLOW);
..(" BIT MAP GRAPHICS");..("
................");.SLOW;..("G-PASCAL
SUPPORTS BIT-MAPPED");.SLOW;..("(HIGH-R
ESOLUTION) GRAPHICS WITH THE");.SLOW;..(
"PLOT COMMAND WHICH ALLOWS POINTS TO");.
SLOW;..("BE EASILY PLOTTED IN BIT-MAP MO
DE");.SLOW;..; .;..("WATCH THIS ...");..
;.PAUSE (200);..(BORDER, BLACK, BACKGND,
BLACK,...DISPLAYSCREEN, OFF,...MULTICOL
OUR, ON,...BITMAP, ON,...CHARGENBASE, 4)
;..(.(HOME));..(CHARCOLOUR, LIGHT_GREEN)
;..I := 1 .100.......(" ");..(B
LUE, BROWN);..(DISPLAYSCREEN, ON);..I :=
1 .4 .......(I, 7, 32, 33, 34, 33);....
(I, EXPANDX, OFF,...I, EXPANDY, 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, 1
58, 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);..(DISPLAYS
CREEN,OFF,...BORDER, RED,...BACKGND, RED
,...BITMAP, OFF,...MULTICOLOUR, OFF,...C
HARGENBASE, 3);..;...SOUND_DEMO;.(******
*************)....(.(HOME));..(DISPLAYSC
REEN, ON);.SET_COLOURS (RED, YELLOW);...
(" SOUND EFFECTS");..("
.............");.SLOW;..("G-PASCAL P
ROVIDES EXTENSIVE SUPPORT FOR");.SLOW;..
("THE SID CHIP (SOUND INTERFACE DEVICE)"
);.SLOW;..("IN YOUR COMMODORE 64. THE AT
TRIBUTES OF");.SLOW;..("EACH INDIVIDUAL
VOICE ARE EASILY");.SLOW;..("CONTROLLED,
AS WELL AS THE VARIOUS");.SLOW;..("FILT
ERING AND SPECIAL EFFECTS.");.SLOW;..("T
URN UP THE VOLUME NOW TO HEAR A SAMPLE")
;.SLOW;..("OF IT IN OPERATION .....");.S
LOW;..;.TUNE;..;...(*-------------------
------------*).. (*..MAIN PROGRAM..*)...
..INIT;...BRING_PASCAL;...PAGE1;...PAGE2
;...PAGE3;...BITMAP_DEMO;...SOUND_DEMO;.
.FALSE;.......N..)$I|. /....
> CLICK IMAGE PREVIEW FOR FULL MODAL