DISPLAY T&S
FILE INFORMATION
FILENAME(S): DISPLAY T&S
FILE TYPE(S): DEL
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 21:24:59
APPEARS ON: 1 disk(s)
FILE HASH
e189344b132d8ae13080b360951c53bf983fc4f72471b0d9df7b2745613b6bf3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL | DISPLAY T&S | DEL | DuncanTwain | 27 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 9B 38 20 97 0D 10 82 F4 28 49 2C 20 EC 28 49 29 |.8 .....(I, .(I)|
00000010: 2C 0D 10 91 EE 28 49 29 2C 0D 10 91 30 2C 20 2D |,....(I),...0, -|
00000020: 31 32 38 2C 20 34 30 30 29 3B 0D 98 99 F3 28 38 |128, 400);....(8|
00000030: 29 20 3D 20 30 3B 0D 9A 49 20 3A 3D 20 31 20 9B |) = 0;..I := 1 .|
00000040: 38 20 97 0D 10 82 DF 28 49 2C 20 41 43 54 49 56 |8 .....(I, ACTIV|
00000050: 45 2C 20 4F 46 46 29 3B 0D 53 45 54 5F 43 4F 4C |E, OFF);.SET_COL|
00000060: 4F 55 52 53 20 28 4F 52 41 4E 47 45 2C 20 52 45 |OURS (ORANGE, RE|
00000070: 44 29 3B 0D 89 3B 0D 0D 86 50 41 47 45 32 3B 0D |D);..;...PAGE2;.|
00000080: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 |(**************)|
00000090: 0D 88 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D FF |....(.(HOME));..|
000000A0: 28 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |(" |
000000B0: 20 D3 D0 D2 C9 D4 C5 D3 22 29 3B 0D 9D 10 82 28 | .......");....(|
000000C0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000000D0: B8 B8 B8 B8 B8 B8 B8 22 29 3B 0D 53 4C 4F 57 3B |.......");.SLOW;|
000000E0: 0D 9D 28 22 D3 50 52 49 54 45 53 20 43 41 4E 20 |..(".PRITES CAN |
000000F0: 45 41 53 49 4C 59 20 42 45 20 44 45 46 49 4E 45 |EASILY BE DEFINE|
00000100: 44 20 55 53 49 4E 47 20 54 48 45 22 29 3B 0D 53 |D USING THE");.S|
00000110: 4C 4F 57 3B 0D FF 28 22 C4 C5 C6 C9 CE C5 D3 D0 |LOW;..("........|
00000120: D2 C9 D4 C5 20 43 4F 4D 4D 41 4E 44 2E 22 29 3B |.... COMMAND.");|
00000130: 0D 53 4C 4F 57 3B 0D 9D 28 22 D4 48 45 59 20 43 |.SLOW;..(".HEY C|
00000140: 41 4E 20 42 45 20 4D 4F 56 45 44 20 41 55 54 4F |AN BE MOVED AUTO|
00000150: 4D 41 54 49 43 41 4C 4C 59 20 46 52 4F 4D 22 29 |MATICALLY FROM")|
00000160: 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 50 4C 41 43 45 |;.SLOW;..("PLACE|
00000170: 20 54 4F 20 50 4C 41 43 45 20 55 53 49 4E 47 20 | TO PLACE USING |
00000180: 54 48 45 20 CD CF D6 C5 D3 D0 D2 C9 D4 C5 22 29 |THE ..........")|
00000190: 3B 0D 53 4C 4F 57 3B 0D FF 28 22 43 4F 4D 4D 41 |;.SLOW;..("COMMA|
000001A0: 4E 44 2E 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 |ND.");.SLOW;..("|
000001B0: D4 48 45 59 20 43 41 4E 20 42 45 20 41 4E 49 4D |.HEY CAN BE ANIM|
000001C0: 41 54 45 44 2C 20 54 4F 4F 2C 20 55 53 49 4E 47 |ATED, TOO, USING|
000001D0: 20 54 48 45 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 | THE");.SLOW;..(|
000001E0: 22 C1 CE C9 CD C1 D4 C5 D3 D0 D2 C9 D4 C5 20 43 |"............. C|
000001F0: 4F 4D 4D 41 4E 44 2C 20 4C 49 4B 45 20 54 48 49 |OMMAND, LIKE THI|
00000200: 53 20 2E 2E 2E 22 29 3B 0D 53 4C 4F 57 3B 0D FF |S ...");.SLOW;..|
00000210: 3B 0D F7 28 32 2C 20 35 2C 20 31 33 35 2C 20 31 |;..(2, 5, 135, 1|
00000220: 33 36 2C 0D 10 95 31 33 37 29 3B 0D DF 28 32 2C |36,...137);..(2,|
00000230: 20 43 4F 4C 4F 55 52 2C 20 42 52 4F 57 4E 2C 0D | COLOUR, BROWN,.|
00000240: 10 88 32 2C 20 42 45 48 49 4E 44 42 4B 2C 20 4F |..2, BEHINDBK, O|
00000250: 4E 29 3B 0D F4 28 32 2C 20 30 2C 20 31 35 30 2C |N);..(2, 0, 150,|
00000260: 20 32 35 36 2C 0D 10 8C 30 2C 20 33 37 30 29 3B | 256,...0, 370);|
00000270: 0D 98 99 90 F3 28 32 29 3B 0D DF 28 32 2C 20 41 |.....(2);..(2, A|
00000280: 43 54 49 56 45 2C 20 4F 46 46 29 3B 0D 9D 28 22 |CTIVE, OFF);..("|
00000290: D3 50 52 49 54 45 53 20 43 41 4E 20 42 45 20 45 |.PRITES CAN BE E|
000002A0: 41 53 49 4C 59 20 45 58 50 41 4E 44 45 44 20 49 |ASILY EXPANDED I|
000002B0: 4E 20 54 48 45 22 29 3B 0D 53 4C 4F 57 3B 0D 9D |N THE");.SLOW;..|
000002C0: 28 22 D8 20 41 4E 44 20 D9 20 44 49 52 45 43 54 |(". AND . DIRECT|
000002D0: 49 4F 4E 53 2E 20 D4 48 45 59 20 43 41 4E 20 42 |IONS. .HEY CAN B|
000002E0: 45 20 50 4C 41 43 45 44 22 29 3B 0D 53 4C 4F 57 |E PLACED");.SLOW|
000002F0: 3B 0D FF 28 22 49 4E 20 46 52 4F 4E 54 20 4F 46 |;..("IN FRONT OF|
00000300: 20 4F 52 20 42 45 48 49 4E 44 20 54 48 45 20 42 | OR BEHIND THE B|
00000310: 41 43 4B 47 52 4F 55 4E 44 2E 22 29 3B 0D 53 4C |ACKGROUND.");.SL|
00000320: 4F 57 3B 0D 9D 28 22 D9 4F 55 20 43 41 4E 20 45 |OW;..(".OU CAN E|
00000330: 41 53 49 4C 59 20 45 53 54 41 42 4C 49 53 48 20 |ASILY ESTABLISH |
00000340: 41 20 53 50 52 49 54 45 27 53 22 29 3B 0D 53 4C |A SPRITE'S");.SL|
00000350: 4F 57 3B 0D 9D 28 22 43 55 52 52 45 4E 54 20 50 |OW;..("CURRENT P|
00000360: 4F 53 49 54 49 4F 4E 20 4F 4E 20 54 48 45 20 53 |OSITION ON THE S|
00000370: 43 52 45 45 4E 2C 20 41 4E 44 22 29 3B 0D 53 4C |CREEN, AND");.SL|
00000380: 4F 57 3B 0D FF 28 22 57 48 45 54 48 45 52 20 4F |OW;..("WHETHER O|
00000390: 52 20 4E 4F 54 20 49 54 20 49 53 20 4D 4F 56 49 |R NOT IT IS MOVI|
000003A0: 4E 47 2E 22 29 3B 0D 50 41 55 53 45 20 28 35 30 |NG.");.PAUSE (50|
000003B0: 30 29 3B 0D 89 3B 0D 0D 86 50 41 47 45 33 3B 0D |0);..;...PAGE3;.|
000003C0: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 |(**************)|
000003D0: 0D 88 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D FF |....(.(HOME));..|
000003E0: 28 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |(" |
000003F0: 20 D3 D0 D2 C9 D4 C5 D3 22 29 3B 0D 9D 10 82 28 | .......");....(|
00000400: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000410: B8 B8 B8 B8 B8 B8 B8 22 29 3B 20 53 4C 4F 57 3B |......."); SLOW;|
00000420: 0D 9D 28 22 C7 2D D0 41 53 43 41 4C 20 43 41 4E |..(".-.ASCAL CAN|
00000430: 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 20 53 | AUTOMATICALLY S|
00000440: 54 4F 50 20 54 57 4F 22 29 3B 0D 53 4C 4F 57 3B |TOP TWO");.SLOW;|
00000450: 0D 9D 28 22 53 50 52 49 54 45 53 20 54 48 45 20 |..("SPRITES THE |
00000460: 49 4E 53 54 41 4E 54 20 54 48 41 54 20 54 48 45 |INSTANT THAT THE|
00000470: 59 20 43 4F 4C 4C 49 44 45 2C 22 29 3B 0D 53 4C |Y COLLIDE,");.SL|
00000480: 4F 57 3B 0D FF 28 22 4C 49 4B 45 20 54 48 49 53 |OW;..("LIKE THIS|
00000490: 20 2E 2E 2E 20 22 29 3B 0D AD 28 33 29 3B 0D 9A | ... ");..(3);..|
000004A0: 49 20 3A 3D 20 31 20 9B 32 20 97 0D 10 82 DF 28 |I := 1 .2 .....(|
000004B0: 49 2C 20 43 4F 4C 4F 55 52 2C 20 52 45 44 2C 0D |I, COLOUR, RED,.|
000004C0: 10 8A 49 2C 20 50 4F 49 4E 54 49 54 2C 20 31 32 |..I, POINTIT, 12|
000004D0: 38 2C 0D 10 8A 49 2C 20 45 58 50 41 4E 44 58 2C |8,...I, EXPANDX,|
000004E0: 20 4F 4E 2C 0D 10 8A 49 2C 20 45 58 50 41 4E 44 | ON,...I, EXPAND|
000004F0: 59 2C 20 4F 4E 29 3B 0D F4 28 31 2C 20 30 2C 20 |Y, ON);..(1, 0, |
00000500: 31 35 30 2C 20 32 35 36 2C 20 30 2C 20 33 37 30 |150, 256, 0, 370|
00000510: 29 3B 0D F4 28 32 2C 20 33 39 30 2C 20 31 35 30 |);..(2, 390, 150|
00000520: 2C 20 2D 32 35 36 2C 20 30 2C 20 33 37 30 29 3B |, -256, 0, 370);|
00000530: 0D 98 99 FD 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 |....;.SET_COLOUR|
00000540: 53 20 28 4C 49 47 48 54 5F 52 45 44 2C 20 59 45 |S (LIGHT_RED, YE|
00000550: 4C 4C 4F 57 29 3B 0D 50 41 55 53 45 20 28 35 30 |LLOW);.PAUSE (50|
00000560: 30 29 3B 0D 89 3B 0D 0D 86 42 49 54 4D 41 50 5F |0);..;...BITMAP_|
00000570: 44 45 4D 4F 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A |DEMO;.(*********|
00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9A |***********)....|
00000590: 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 DF 28 |I := 1 .8 .....(|
000005A0: 49 2C 20 41 43 54 49 56 45 2C 20 4F 46 46 29 3B |I, ACTIVE, OFF);|
000005B0: 0D 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D 53 45 |...(.(HOME));.SE|
000005C0: 54 5F 43 4F 4C 4F 55 52 53 20 28 52 45 44 2C 20 |T_COLOURS (RED, |
000005D0: 59 45 4C 4C 4F 57 29 3B 0D FF 28 22 20 20 20 20 |YELLOW);..(" |
000005E0: 20 20 20 20 C2 C9 D4 20 CD C1 D0 20 C7 D2 C1 D0 | ... ... ....|
000005F0: C8 C9 C3 D3 22 29 3B 0D FF 28 22 20 20 20 20 20 |....");..(" |
00000600: 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | .............|
00000610: B8 B8 B8 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 |...");.SLOW;..("|
00000620: C7 2D D0 41 53 43 41 4C 20 53 55 50 50 4F 52 54 |.-.ASCAL SUPPORT|
00000630: 53 20 42 49 54 2D 4D 41 50 50 45 44 22 29 3B 0D |S BIT-MAPPED");.|
00000640: 53 4C 4F 57 3B 0D 9D 28 22 28 48 49 47 48 2D 52 |SLOW;..("(HIGH-R|
00000650: 45 53 4F 4C 55 54 49 4F 4E 29 20 47 52 41 50 48 |ESOLUTION) GRAPH|
00000660: 49 43 53 20 57 49 54 48 20 54 48 45 22 29 3B 0D |ICS WITH THE");.|
00000670: 53 4C 4F 57 3B 0D 9D 28 22 D0 CC CF D4 20 43 4F |SLOW;..(".... CO|
00000680: 4D 4D 41 4E 44 20 57 48 49 43 48 20 41 4C 4C 4F |MMAND WHICH ALLO|
00000690: 57 53 20 50 4F 49 4E 54 53 20 54 4F 22 29 3B 0D |WS POINTS TO");.|
000006A0: 53 4C 4F 57 3B 0D 9D 28 22 42 45 20 45 41 53 49 |SLOW;..("BE EASI|
000006B0: 4C 59 20 50 4C 4F 54 54 45 44 20 49 4E 20 42 49 |LY PLOTTED IN BI|
000006C0: 54 2D 4D 41 50 20 4D 4F 44 45 22 29 3B 0D 53 4C |T-MAP MODE");.SL|
000006D0: 4F 57 3B 0D FF 3B 20 FF 3B 0D FF 28 22 D7 41 54 |OW;..; .;..(".AT|
000006E0: 43 48 20 54 48 49 53 20 2E 2E 2E 22 29 3B 0D FF |CH THIS ...");..|
000006F0: 3B 0D 50 41 55 53 45 20 28 32 30 30 29 3B 0D E2 |;.PAUSE (200);..|
00000700: 28 42 4F 52 44 45 52 2C 20 42 4C 41 43 4B 2C 20 |(BORDER, BLACK, |
00000710: 42 41 43 4B 47 4E 44 2C 20 42 4C 41 43 4B 2C 0D |BACKGND, BLACK,.|
00000720: 10 88 44 49 53 50 4C 41 59 53 43 52 45 45 4E 2C |..DISPLAYSCREEN,|
00000730: 20 4F 46 46 2C 0D 10 88 4D 55 4C 54 49 43 4F 4C | OFF,...MULTICOL|
00000740: 4F 55 52 2C 20 4F 4E 2C 0D 10 88 42 49 54 4D 41 |OUR, ON,...BITMA|
00000750: 50 2C 20 4F 4E 2C 0D 10 88 43 48 41 52 47 45 4E |P, ON,...CHARGEN|
00000760: 42 41 53 45 2C 20 34 29 3B 0D 9D 28 AB 28 48 4F |BASE, 4);..(.(HO|
00000770: 4D 45 29 29 3B 0D E2 28 43 48 41 52 43 4F 4C 4F |ME));..(CHARCOLO|
00000780: 55 52 2C 20 4C 49 47 48 54 5F 47 52 45 45 4E 29 |UR, LIGHT_GREEN)|
00000790: 3B 0D 9A 49 20 3A 3D 20 31 20 9B 31 30 30 10 82 |;..I := 1 .100..|
000007A0: 97 0D 10 83 9D 28 22 20 20 20 20 20 20 20 20 20 |.....(" |
000007B0: 20 22 29 3B 0D A8 28 42 4C 55 45 2C 20 42 52 4F | ");..(BLUE, BRO|
000007C0: 57 4E 29 3B 0D E2 28 44 49 53 50 4C 41 59 53 43 |WN);..(DISPLAYSC|
000007D0: 52 45 45 4E 2C 20 4F 4E 29 3B 0D 9A 49 20 3A 3D |REEN, ON);..I :=|
000007E0: 20 31 20 9B 34 20 97 0D 88 0D 10 82 F7 28 49 2C | 1 .4 .......(I,|
000007F0: 20 37 2C 20 33 32 2C 20 33 33 2C 20 33 34 2C 20 | 7, 32, 33, 34, |
00000800: 33 33 29 3B 0D 10 82 DF 28 49 2C 20 45 58 50 41 |33);....(I, EXPA|
00000810: 4E 44 58 2C 20 4F 46 46 2C 0D 10 8A 49 2C 20 45 |NDX, OFF,...I, E|
00000820: 58 50 41 4E 44 59 2C 20 4F 46 46 29 3B 0D 10 82 |XPANDY, OFF);...|
00000830: F4 28 49 2C 32 30 2C 34 30 2C 36 30 20 2A 20 49 |.(I,20,40,60 * I|
00000840: 2C 34 30 2C 0D 10 8E 31 30 30 30 20 2F 20 49 29 |,40,...1000 / I)|
00000850: 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 20 9B 31 35 |;..;..I := 1 .15|
00000860: 37 20 97 0D 88 0D 10 82 A6 28 31 2C 20 49 2C 20 |7 .......(1, I, |
00000870: 49 29 3B 0D 10 82 A6 28 31 2C 20 49 2C 20 49 20 |I);....(1, I, I |
00000880: 2B 20 31 29 3B 0D 10 82 A6 28 31 2C 20 49 2C 20 |+ 1);....(1, I, |
00000890: 49 20 2B 20 32 29 3B 0D 89 3B 0D 9A 49 20 3A 3D |I + 2);..;..I :=|
000008A0: 20 31 35 37 20 9C 31 20 97 0D 88 0D 10 84 A6 28 | 157 .1 .......(|
000008B0: 32 2C 20 49 2C 20 31 35 39 20 2D 20 49 29 3B 0D |2, I, 159 - I);.|
000008C0: 10 84 A6 28 32 2C 20 49 2C 20 31 35 38 20 2D 20 |...(2, I, 158 - |
000008D0: 49 29 3B 0D 10 84 A6 28 32 2C 20 49 2C 20 31 35 |I);....(2, I, 15|
000008E0: 37 20 2D 20 49 29 3B 0D 89 3B 0D 9A 49 20 3A 3D |7 - I);..;..I :=|
000008F0: 20 31 20 9B 31 35 39 20 97 0D 88 0D 10 82 A6 28 | 1 .159 .......(|
00000900: 33 2C 20 31 2C 20 49 29 3B 0D 10 82 A6 28 33 2C |3, 1, I);....(3,|
00000910: 20 32 2C 20 49 29 3B 0D 10 82 A6 28 33 2C 20 31 | 2, I);....(3, 1|
00000920: 35 38 2C 20 49 29 3B 0D 10 82 A6 28 33 2C 20 31 |58, I);....(3, 1|
00000930: 35 39 2C 20 49 29 3B 0D 89 3B 0D 9A 49 20 3A 3D |59, I);..;..I :=|
00000940: 20 31 20 9B 31 35 39 20 97 0D 88 0D 10 82 A6 28 | 1 .159 .......(|
00000950: 33 2C 20 49 2C 20 31 29 3B 0D 10 82 A6 28 33 2C |3, I, 1);....(3,|
00000960: 20 49 2C 20 32 29 3B 0D 10 82 A6 28 33 2C 20 49 | I, 2);....(3, I|
00000970: 2C 20 31 35 38 29 3B 0D 10 82 A6 28 33 2C 20 49 |, 158);....(3, I|
00000980: 2C 20 31 35 39 29 3B 0D 89 3B 0D 98 99 90 F3 28 |, 159);..;.....(|
00000990: 31 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 34 20 97 |1);..I := 1 .4 .|
000009A0: 0D 10 82 DF 28 49 2C 20 41 43 54 49 56 45 2C 20 |....(I, ACTIVE, |
000009B0: 4F 46 46 29 3B 0D E2 28 44 49 53 50 4C 41 59 53 |OFF);..(DISPLAYS|
000009C0: 43 52 45 45 4E 2C 4F 46 46 2C 0D 10 8A 42 4F 52 |CREEN,OFF,...BOR|
000009D0: 44 45 52 2C 20 52 45 44 2C 0D 10 8A 42 41 43 4B |DER, RED,...BACK|
000009E0: 47 4E 44 2C 20 52 45 44 2C 0D 10 8A 42 49 54 4D |GND, RED,...BITM|
000009F0: 41 50 2C 20 4F 46 46 2C 0D 10 8A 4D 55 4C 54 49 |AP, OFF,...MULTI|
00000A00: 43 4F 4C 4F 55 52 2C 20 4F 46 46 2C 0D 10 8A 43 |COLOUR, OFF,...C|
00000A10: 48 41 52 47 45 4E 42 41 53 45 2C 20 33 29 3B 0D |HARGENBASE, 3);.|
00000A20: 89 3B 0D 0D 86 53 4F 55 4E 44 5F 44 45 4D 4F 3B |.;...SOUND_DEMO;|
00000A30: 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(**************|
00000A40: 2A 2A 2A 2A 2A 29 0D 88 0D 9D 28 AB 28 48 4F 4D |*****)....(.(HOM|
00000A50: 45 29 29 3B 0D E2 28 44 49 53 50 4C 41 59 53 43 |E));..(DISPLAYSC|
00000A60: 52 45 45 4E 2C 20 4F 4E 29 3B 0D 53 45 54 5F 43 |REEN, ON);.SET_C|
00000A70: 4F 4C 4F 55 52 53 20 28 52 45 44 2C 20 59 45 4C |OLOURS (RED, YEL|
00000A80: 4C 4F 57 29 3B 0D 0D FF 28 22 20 20 20 20 20 20 |LOW);...(" |
00000A90: 20 20 20 20 20 D3 CF D5 CE C4 20 C5 C6 C6 C5 C3 | ..... .....|
00000AA0: D4 D3 22 29 3B 0D FF 28 22 20 20 20 20 20 20 20 |..");..(" |
00000AB0: 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ............|
00000AC0: B8 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 C7 2D |.");.SLOW;..(".-|
00000AD0: D0 41 53 43 41 4C 20 50 52 4F 56 49 44 45 53 20 |.ASCAL PROVIDES |
00000AE0: 45 58 54 45 4E 53 49 56 45 20 53 55 50 50 4F 52 |EXTENSIVE SUPPOR|
00000AF0: 54 20 46 4F 52 22 29 3B 0D 53 4C 4F 57 3B 0D 9D |T FOR");.SLOW;..|
00000B00: 28 22 54 48 45 20 D3 C9 C4 20 43 48 49 50 20 28 |("THE ... CHIP (|
00000B10: D3 4F 55 4E 44 20 C9 4E 54 45 52 46 41 43 45 20 |.OUND .NTERFACE |
00000B20: C4 45 56 49 43 45 29 22 29 3B 0D 53 4C 4F 57 3B |.EVICE)");.SLOW;|
00000B30: 0D 9D 28 22 49 4E 20 59 4F 55 52 20 C3 4F 4D 4D |..("IN YOUR .OMM|
00000B40: 4F 44 4F 52 45 20 36 34 2E 20 D4 48 45 20 41 54 |ODORE 64. .HE AT|
00000B50: 54 52 49 42 55 54 45 53 20 4F 46 22 29 3B 0D 53 |TRIBUTES OF");.S|
00000B60: 4C 4F 57 3B 0D 9D 28 22 45 41 43 48 20 49 4E 44 |LOW;..("EACH IND|
00000B70: 49 56 49 44 55 41 4C 20 56 4F 49 43 45 20 41 52 |IVIDUAL VOICE AR|
00000B80: 45 20 45 41 53 49 4C 59 22 29 3B 0D 53 4C 4F 57 |E EASILY");.SLOW|
00000B90: 3B 0D 9D 28 22 43 4F 4E 54 52 4F 4C 4C 45 44 2C |;..("CONTROLLED,|
00000BA0: 20 41 53 20 57 45 4C 4C 20 41 53 20 54 48 45 20 | AS WELL AS THE |
00000BB0: 56 41 52 49 4F 55 53 22 29 3B 0D 53 4C 4F 57 3B |VARIOUS");.SLOW;|
00000BC0: 0D FF 28 22 46 49 4C 54 45 52 49 4E 47 20 41 4E |..("FILTERING AN|
00000BD0: 44 20 53 50 45 43 49 41 4C 20 45 46 46 45 43 54 |D SPECIAL EFFECT|
00000BE0: 53 2E 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D4 |S.");.SLOW;..(".|
00000BF0: 55 52 4E 20 55 50 20 54 48 45 20 56 4F 4C 55 4D |URN UP THE VOLUM|
00000C00: 45 20 4E 4F 57 20 54 4F 20 48 45 41 52 20 41 20 |E NOW TO HEAR A |
00000C10: 53 41 4D 50 4C 45 22 29 3B 0D 53 4C 4F 57 3B 0D |SAMPLE");.SLOW;.|
00000C20: FF 28 22 4F 46 20 49 54 20 49 4E 20 4F 50 45 52 |.("OF IT IN OPER|
00000C30: 41 54 49 4F 4E 20 2E 2E 2E 2E 2E 22 29 3B 0D 53 |ATION .....");.S|
00000C40: 4C 4F 57 3B 0D FF 3B 0D 54 55 4E 45 3B 0D 89 3B |LOW;..;.TUNE;..;|
00000C50: 0D 0D 0D 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |...(*-----------|
00000C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000C70: 2D 2D 2D 2D 2A 29 0D 88 20 28 2A 10 82 4D 41 49 |----*).. (*..MAI|
00000C80: 4E 20 50 52 4F 47 52 41 4D 10 82 2A 29 0D 98 0D |N PROGRAM..*)...|
00000C90: 10 83 49 4E 49 54 3B 0D 10 83 42 52 49 4E 47 5F |..INIT;...BRING_|
00000CA0: 50 41 53 43 41 4C 3B 0D 10 83 50 41 47 45 31 3B |PASCAL;...PAGE1;|
00000CB0: 0D 10 83 50 41 47 45 32 3B 0D 10 83 50 41 47 45 |...PAGE2;...PAGE|
00000CC0: 33 3B 0D 10 83 42 49 54 4D 41 50 5F 44 45 4D 4F |3;...BITMAP_DEMO|
00000CD0: 3B 0D 10 83 53 4F 55 4E 44 5F 44 45 4D 4F 3B 0D |;...SOUND_DEMO;.|
00000CE0: 99 46 41 4C 53 45 3B 0D 89 2E 0D 00 00 00 4E A9 |.FALSE;.......N.|
00000CF0: FE 29 24 C9 7C 0E 20 2F 20 0A BE 0C 6D C6 19 |.)$.|. / ...m.. |
.8 .....(I, .(I),....(I),...0, -128, 400
);....(8) = 0;..I := 1 .8 .....(I, ACTIV
E, OFF);.SET_COLOURS (ORANGE, RED);..;..
.PAGE2;.(**************)....(.(HOME));..
(" SPRITES");....("
.......");.SLOW;..("SPRITES CAN
EASILY BE DEFINED USING THE");.SLOW;..("
DEFINESPRITE COMMAND.");.SLOW;..("THEY C
AN BE MOVED AUTOMATICALLY FROM");.SLOW;.
.("PLACE TO PLACE USING THE MOVESPRITE")
;.SLOW;..("COMMAND.");.SLOW;..("THEY CAN
BE ANIMATED, TOO, USING THE");.SLOW;..(
"ANIMATESPRITE COMMAND, LIKE THIS ...");
.SLOW;..;..(2, 5, 135, 136,...137);..(2,
COLOUR, BROWN,...2, BEHINDBK, ON);..(2,
0, 150, 256,...0, 370);.....(2);..(2, A
CTIVE, OFF);..("SPRITES CAN BE EASILY EX
PANDED IN THE");.SLOW;..("X AND Y DIRECT
IONS. THEY CAN BE PLACED");.SLOW;..("IN
FRONT OF OR BEHIND THE BACKGROUND.");.SL
OW;..("YOU CAN EASILY ESTABLISH A SPRITE
'S");.SLOW;..("CURRENT POSITION ON THE S
CREEN, AND");.SLOW;..("WHETHER OR NOT IT
IS MOVING.");.PAUSE (500);..;...PAGE3;.
(**************)....(.(HOME));..("
SPRITES");....("
......."); SLOW;..("G-PASCAL CAN AUTOMAT
ICALLY STOP TWO");.SLOW;..("SPRITES THE
INSTANT THAT THEY COLLIDE,");.SLOW;..("L
IKE 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_RED, YE
LLOW);.PAUSE (500);..;...BITMAP_DEMO;.(*
*******************)....I := 1 .8 .....(
I, ACTIVE, OFF);...(.(HOME));.SET_COLOUR
S (RED, YELLOW);..(" BIT MAP GRAP
HICS");..(" ................");.S
LOW;..("G-PASCAL SUPPORTS BIT-MAPPED");.
SLOW;..("(HIGH-RESOLUTION) GRAPHICS WITH
THE");.SLOW;..("PLOT COMMAND WHICH ALLO
WS POINTS TO");.SLOW;..("BE EASILY PLOTT
ED IN BIT-MAP MODE");.SLOW;..; .;..("WAT
CH THIS ...");..;.PAUSE (200);..(BORDER,
BLACK, BACKGND, BLACK,...DISPLAYSCREEN,
OFF,...MULTICOLOUR, ON,...BITMAP, ON,..
.CHARGENBASE, 4);..(.(HOME));..(CHARCOLO
UR, LIGHT_GREEN);..I := 1 .100.......("
");..(BLUE, BROWN);..(DISPLAYSC
REEN, ON);..I := 1 .4 .......(I, 7, 32,
33, 34, 33);....(I, EXPANDX, OFF,...I, E
XPANDY, OFF);....(I,20,40,60 * I,40,...1
000 / I);..;..I := 1 .157 .......(1, I,
I);....(1, I, I + 1);....(1, I, I + 2);.
.;..I := 157 .1 .......(2, I, 159 - I);.
...(2, I, 158 - I);....(2, I, 157 - I);.
.;..I := 1 .159 .......(3, 1, I);....(3,
2, I);....(3, 158, I);....(3, 159, I);.
.;..I := 1 .159 .......(3, I, 1);....(3,
I, 2);....(3, I, 158);....(3, I, 159);.
.;.....(1);..I := 1 .4 .....(I, ACTIVE,
OFF);..(DISPLAYSCREEN,OFF,...BORDER, RED
,...BACKGND, RED,...BITMAP, OFF,...MULTI
COLOUR, OFF,...CHARGENBASE, 3);..;...SOU
ND_DEMO;.(*******************)....(.(HOM
E));..(DISPLAYSCREEN, ON);.SET_COLOURS (
RED, YELLOW);...(" SOUND EFFEC
TS");..(" .............");.SLO
W;..("G-PASCAL PROVIDES EXTENSIVE SUPPOR
T FOR");.SLOW;..("THE SID CHIP (SOUND IN
TERFACE DEVICE)");.SLOW;..("IN YOUR COMM
ODORE 64. THE ATTRIBUTES OF");.SLOW;..("
EACH INDIVIDUAL VOICE ARE EASILY");.SLOW
;..("CONTROLLED, AS WELL AS THE VARIOUS"
);.SLOW;..("FILTERING AND SPECIAL EFFECT
S.");.SLOW;..("TURN UP THE VOLUME NOW TO
HEAR A SAMPLE");.SLOW;..("OF IT IN OPER
ATION .....");.SLOW;..;.TUNE;..;...(*---
----------------------------*).. (*..MAI
N PROGRAM..*).....INIT;...BRING_PASCAL;.
..PAGE1;...PAGE2;...PAGE3;...BITMAP_DEMO
;...SOUND_DEMO;..FALSE;.......N..)$I|. /
...MF.
> CLICK IMAGE PREVIEW FOR FULL MODAL