LETZTER TEIL 13
FILE INFORMATION
FILENAME(S): LETZTER TEIL 13
FILE TYPE(S): DEL
FILE SIZE: 7K
FIRST SEEN: 2025-12-02 23:08:22
APPEARS ON: 1 disk(s)
FILE HASH
963a262fe03fb6472e8b4817e4f8abf7d54e9130f8020d064d62a75970736458
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPRACHPROGRAMME | LETZTER TEIL 13 | DEL | swasti, flohmarkt, swasti, misc | 8 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 47 20 |);...PLAY (1, G |
00000010: 8F 31 2C 20 32 29 3B 0D 10 82 50 4C 41 59 20 28 |.1, 2);...PLAY (|
00000020: 31 2C 20 47 20 8F 31 2C 20 32 29 3B 0D 10 82 28 |1, G .1, 2);...(|
00000030: 2A 10 82 42 41 52 20 35 10 82 2A 29 0D 10 82 50 |*..BAR 5..*)...P|
00000040: 4C 41 59 20 28 32 2C 20 41 20 8F 32 2C 20 30 29 |LAY (2, A .2, 0)|
00000050: 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 43 2C 20 |;...PLAY (1, C, |
00000060: 32 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 44 |2);...PLAY (1, D|
00000070: 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C |, 1);...PLAY (1,|
00000080: 20 43 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 28 | C, 1);...PLAY (|
00000090: 31 2C 20 42 20 8F 31 2C 20 31 29 3B 0D 10 82 50 |1, B .1, 1);...P|
000000A0: 4C 41 59 20 28 31 2C 20 41 20 8F 31 2C 20 31 29 |LAY (1, A .1, 1)|
000000B0: 3B 0D 10 82 28 2A 10 82 42 41 52 20 36 10 82 2A |;...(*..BAR 6..*|
000000C0: 29 0D 10 82 50 4C 41 59 20 28 32 2C 20 47 20 8F |)...PLAY (2, G .|
000000D0: 32 2C 20 30 29 3B 0D 10 82 50 4C 41 59 20 28 31 |2, 0);...PLAY (1|
000000E0: 2C 20 42 20 8F 31 2C 20 32 29 3B 0D 10 82 50 4C |, B .1, 2);...PL|
000000F0: 41 59 20 28 31 2C 20 43 2C 20 31 29 3B 0D 10 82 |AY (1, C, 1);...|
00000100: 50 4C 41 59 20 28 31 2C 20 42 20 8F 31 2C 20 31 |PLAY (1, B .1, 1|
00000110: 29 3B 0D 10 82 50 4C 41 59 20 28 31 2C 20 41 20 |);...PLAY (1, A |
00000120: 8F 31 2C 20 31 29 3B 0D 10 82 50 4C 41 59 20 28 |.1, 1);...PLAY (|
00000130: 31 2C 20 47 20 8F 31 2C 20 31 29 3B 0D 10 82 92 |1, G .1, 1);....|
00000140: 52 4F 55 4E 44 20 3D 20 31 20 93 0D 10 84 88 0D |ROUND = 1 ......|
00000150: 10 84 28 2A 10 82 42 41 52 20 37 10 82 2A 29 0D |..(*..BAR 7..*).|
00000160: 10 84 50 4C 41 59 20 28 32 2C 20 44 20 8F 31 2C |..PLAY (2, D .1,|
00000170: 20 30 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 | 0);...PLAY (1, |
00000180: 46 53 20 8F 31 2C 20 32 29 3B 0D 10 84 50 4C 41 |FS .1, 2);...PLA|
00000190: 59 20 28 32 2C 20 42 20 8F 32 2C 20 30 29 3B 0D |Y (2, B .2, 0);.|
000001A0: 10 84 50 4C 41 59 20 28 31 2C 20 47 20 8F 31 2C |..PLAY (1, G .1,|
000001B0: 20 31 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 | 1);...PLAY (1, |
000001C0: 41 20 8F 31 2C 20 31 29 3B 0D 10 84 50 4C 41 59 |A .1, 1);...PLAY|
000001D0: 20 28 32 2C 20 47 20 8F 32 2C 20 30 29 3B 0D 10 | (2, G .2, 0);..|
000001E0: 84 50 4C 41 59 20 28 31 2C 20 42 20 8F 31 2C 20 |.PLAY (1, B .1, |
000001F0: 31 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 47 |1);...PLAY (1, G|
00000200: 20 8F 31 2C 20 31 29 3B 0D 10 84 28 2A 10 82 42 | .1, 1);...(*..B|
00000210: 41 52 20 38 10 82 2A 29 0D 10 84 50 4C 41 59 20 |AR 8..*)...PLAY |
00000220: 28 32 2C 20 44 20 8F 31 2C 20 30 29 3B 0D 10 84 |(2, D .1, 0);...|
00000230: 50 4C 41 59 20 28 31 2C 20 41 20 8F 31 2C 20 32 |PLAY (1, A .1, 2|
00000240: 29 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 44 20 |);...PLAY (2, D |
00000250: 8F 32 2C 20 31 29 3B 0D 10 84 50 4C 41 59 20 28 |.2, 1);...PLAY (|
00000260: 32 2C 20 43 20 8F 31 2C 20 31 29 3B 0D 10 84 50 |2, C .1, 1);...P|
00000270: 4C 41 59 20 28 32 2C 20 42 20 8F 32 2C 20 31 29 |LAY (2, B .2, 1)|
00000280: 3B 0D 10 84 50 4C 41 59 20 28 32 2C 20 41 20 8F |;...PLAY (2, A .|
00000290: 32 2C 20 31 29 3B 0D 10 84 89 0D 10 82 94 0D 10 |2, 1);..........|
000002A0: 84 88 0D 10 84 28 2A 10 82 42 41 52 20 31 35 10 |.....(*..BAR 15.|
000002B0: 82 2A 29 0D 10 84 50 4C 41 59 20 28 32 2C 20 43 |.*)...PLAY (2, C|
000002C0: 20 8F 31 2C 20 30 29 3B 0D 10 84 50 4C 41 59 20 | .1, 0);...PLAY |
000002D0: 28 31 2C 20 41 20 8F 31 2C 20 32 29 3B 0D 10 84 |(1, A .1, 2);...|
000002E0: 50 4C 41 59 20 28 32 2C 20 44 20 8F 31 2C 20 30 |PLAY (2, D .1, 0|
000002F0: 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 42 20 |);...PLAY (1, B |
00000300: 8F 31 2C 20 31 29 3B 0D 10 84 50 4C 41 59 20 28 |.1, 1);...PLAY (|
00000310: 31 2C 20 41 20 8F 31 2C 20 31 29 3B 0D 10 84 50 |1, A .1, 1);...P|
00000320: 4C 41 59 20 28 32 2C 20 44 20 8F 32 2C 20 30 29 |LAY (2, D .2, 0)|
00000330: 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 47 20 8F |;...PLAY (1, G .|
00000340: 31 2C 20 31 29 3B 0D 10 84 50 4C 41 59 20 28 31 |1, 1);...PLAY (1|
00000350: 2C 20 46 53 20 8F 31 2C 20 31 29 3B 0D 10 84 28 |, FS .1, 1);...(|
00000360: 2A 10 82 42 41 52 20 31 36 10 82 2A 29 0D 10 84 |*..BAR 16..*)...|
00000370: 50 4C 41 59 20 28 32 2C 20 47 20 8F 32 2C 20 30 |PLAY (2, G .2, 0|
00000380: 29 3B 0D 10 84 50 4C 41 59 20 28 31 2C 20 47 20 |);...PLAY (1, G |
00000390: 8F 31 2C 20 34 29 3B 0D 10 84 50 4C 41 59 20 28 |.1, 4);...PLAY (|
000003A0: 32 2C 20 47 20 8F 33 2C 20 32 29 3B 0D 10 84 89 |2, G .3, 2);....|
000003B0: 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 20 9B 33 20 |;..;..I := 1 .3 |
000003C0: 97 0D 10 82 E1 28 49 2C 20 50 4C 41 59 49 54 2C |.....(I, PLAYIT,|
000003D0: 20 4F 46 46 29 3B 0D 50 41 55 53 45 20 28 20 31 | OFF);.PAUSE ( 1|
000003E0: 30 30 29 3B 0D E3 28 56 4F 4C 55 4D 45 2C 20 30 |00);..(VOLUME, 0|
000003F0: 29 0D 89 3B 0D 0D 86 4D 4F 56 45 5F 50 41 53 43 |)..;...MOVE_PASC|
00000400: 41 4C 20 28 57 48 49 43 48 2C 20 4E 45 57 58 2C |AL (WHICH, NEWX,|
00000410: 0D 10 96 4E 45 57 59 2C 20 4D 4F 56 45 53 29 3B |...NEWY, MOVES);|
00000420: 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(**************|
00000430: 2A 2A 2A 2A 2A 29 0D 88 0D 28 2A 2D 2D 2D 2D 2D |*****)...(*-----|
00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D CD 4F 56 45 20 |----------..OVE |
00000460: 54 48 45 20 4E 4F 4D 49 4E 41 54 45 44 20 DF 46 |THE NOMINATED .F|
00000470: 52 4F 4D 20 49 54 53 0D 43 55 52 52 45 4E 54 20 |ROM ITS.CURRENT |
00000480: 50 4F 53 49 54 49 4F 4E 20 9B 54 48 45 20 4E 45 |POSITION .THE NE|
00000490: 57 20 58 20 8D 0D 59 20 43 4F 4F 52 44 49 4E 41 |W X ..Y COORDINA|
000004A0: 54 45 53 2C 20 49 4E 20 54 48 45 20 4E 4F 4D 49 |TES, IN THE NOMI|
000004B0: 4E 41 54 45 44 0D 4E 55 4D 42 45 52 20 85 4D 4F |NATED.NUMBER .MO|
000004C0: 56 45 53 2E 0D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |VES..-----------|
000004D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000004E0: 2D 2D 2D 2D 2D 2A 29 0D 10 82 F4 28 57 48 49 43 |-----*)....(WHIC|
000004F0: 48 2C 0D 10 84 EC 28 57 48 49 43 48 29 2C 0D 10 |H,....(WHICH),..|
00000500: 84 EE 28 57 48 49 43 48 29 2C 0D 10 84 28 4E 45 |..(WHICH),...(NE|
00000510: 57 58 20 2D 20 EC 28 57 48 49 43 48 29 29 0D 10 |WX - .(WHICH))..|
00000520: 87 2A 20 32 35 36 20 2F 20 4D 4F 56 45 53 2C 0D |.* 256 / MOVES,.|
00000530: 10 84 28 4E 45 57 59 20 2D 20 EE 28 57 48 49 43 |..(NEWY - .(WHIC|
00000540: 48 29 29 0D 10 87 2A 20 32 35 36 20 2F 20 4D 4F |H))...* 256 / MO|
00000550: 56 45 53 2C 0D 10 84 4D 4F 56 45 53 29 0D 89 3B |VES,...MOVES)..;|
00000560: 0D 0D 86 42 52 49 4E 47 5F 50 41 53 43 41 4C 3B |...BRING_PASCAL;|
00000570: 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(**************|
00000580: 2A 2A 2A 2A 2A 2A 2A 29 0D 0D 86 46 4C 41 53 48 |*******)...FLASH|
00000590: 5F 42 4F 52 44 45 52 3B 0D 28 2A 2A 2A 2A 2A 2A |_BORDER;.(******|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 |***************)|
000005B0: 0D 88 0D 49 20 3A 3D 20 31 3B 0D 98 0D 10 83 49 |...I := 1;.....I|
000005C0: 20 3A 3D 20 49 20 2B 20 31 3B 0D 10 83 AA 28 32 | := I + 1;....(2|
000005D0: 39 30 29 3B 0D 10 83 E2 28 42 4F 52 44 45 52 2C |90);....(BORDER,|
000005E0: 20 49 29 3B 0D 10 83 50 41 55 53 45 20 28 31 35 | I);...PAUSE (15|
000005F0: 29 3B 0D 99 F3 28 38 29 20 3D 20 30 3B 0D 89 3B |);...(8) = 0;..;|
00000600: 0D 0D 88 20 28 2A 20 42 52 49 4E 47 5F 50 41 53 |... (* BRING_PAS|
00000610: 43 41 4C 20 2A 29 0D A3 28 38 2C 20 31 29 3B 0D |CAL *)..(8, 1);.|
00000620: E2 28 43 48 41 52 43 4F 4C 4F 55 52 2C 20 50 55 |.(CHARCOLOUR, PU|
00000630: 52 50 4C 45 29 3B 0D FF 28 22 D4 48 49 53 20 44 |RPLE);..(".HIS D|
00000640: 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 50 52 4F |EMONSTRATION PRO|
00000650: 47 52 41 4D 20 49 53 20 57 52 49 54 54 45 4E 22 |GRAM IS WRITTEN"|
00000660: 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 45 4E 54 49 |);.SLOW;..("ENTI|
00000670: 52 45 4C 59 3A 49 4E 20 C7 2D D0 41 53 43 41 4C |RELY:IN .-.ASCAL|
00000680: 2E 20 20 C9 54 3A 44 4F 45 53 20 4E 4F 54 20 55 |. .T:DOES NOT U|
00000690: 53 45 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 41 |SE");.SLOW;..("A|
000006A0: 4E 59 20 D0 C5 C5 CB 53 2C 20 D0 CF CB C5 53 20 |NY ....S, ....S |
000006B0: 28 4F 52 20 53 49 4D 49 4C 41 52 29 2C 20 20 4F |(OR SIMILAR), O|
000006C0: 52 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 4D 41 |R");.SLOW;..("MA|
000006D0: 43 48 49 4E 45 2D 43 4F 44 45 20 53 55 42 52 4F |CHINE-CODE SUBRO|
000006E0: 55 54 49 4E 45 53 2E 22 29 3B 0D 53 4C 4F 57 3B |UTINES.");.SLOW;|
000006F0: 0D F7 28 31 2C 20 37 2C 20 33 32 2C 20 33 33 2C |..(1, 7, 32, 33,|
00000700: 20 33 34 2C 20 33 33 29 3B 0D DF 28 31 2C 20 45 | 34, 33);..(1, E|
00000710: 58 50 41 4E 44 58 2C 20 4F 46 46 2C 0D 10 88 31 |XPANDX, OFF,...1|
00000720: 2C 20 43 4F 4C 4F 55 52 2C 20 42 4C 55 45 2C 0D |, COLOUR, BLUE,.|
00000730: 10 88 31 2C 20 45 58 50 41 4E 44 59 2C 20 4F 46 |..1, EXPANDY, OF|
00000740: 46 29 3B 0D F4 28 31 2C 30 2C 31 33 30 2C 31 38 |F);..(1,0,130,18|
00000750: 30 2C 20 30 2C 20 35 30 30 29 3B 0D 98 99 F3 28 |0, 0, 500);....(|
00000760: 31 29 20 3D 20 30 3B 0D DF 28 31 2C 20 41 43 54 |1) = 0;..(1, ACT|
00000770: 49 56 45 2C 20 4F 46 46 29 3B 0D 28 2A 2D 2D 2D |IVE, OFF);.(*---|
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 0D C4 45 46 49 |-----------..EFI|
000007A0: 4E 45 20 45 41 43 48 20 4C 45 54 54 45 52 20 28 |NE EACH LETTER (|
000007B0: 49 4E 20 C7 2D D0 41 53 43 41 4C 29 0D 9A 49 54 |IN .-.ASCAL)..IT|
000007C0: 53 20 50 4F 53 49 54 49 4F 4E 20 4F 4E 20 54 48 |S POSITION ON TH|
000007D0: 45 20 4C 49 4E 45 2C 20 49 54 53 0D DF 50 4F 49 |E LINE, ITS..POI|
000007E0: 4E 54 45 52 20 28 54 48 45 20 4C 45 54 54 45 52 |NTER (THE LETTER|
000007F0: 20 27 41 27 0D 4F 43 43 55 52 53 20 54 57 49 43 | 'A'.OCCURS TWIC|
00000800: 45 29 20 8D 49 54 53 20 43 4F 4C 4F 55 52 2E 0D |E) .ITS COLOUR..|
00000810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000820: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A |---------------*|
00000830: 29 0D 50 4F 53 4E 20 5B 31 5D 20 3A 3D 20 32 35 |).POSN [1] := 25|
00000840: 3B 0D 50 4F 53 4E 20 5B 32 5D 20 3A 3D 20 37 30 |;.POSN [2] := 70|
00000850: 3B 0D 50 4F 53 4E 20 5B 33 5D 20 3A 3D 20 39 30 |;.POSN [3] := 90|
00000860: 3B 0D 50 4F 53 4E 20 5B 34 5D 20 3A 3D 20 31 33 |;.POSN [4] := 13|
00000870: 35 3B 0D 50 4F 53 4E 20 5B 35 5D 20 3A 3D 20 31 |5;.POSN [5] := 1|
00000880: 38 30 3B 0D 50 4F 53 4E 20 5B 36 5D 20 3A 3D 20 |80;.POSN [6] := |
00000890: 32 32 35 3B 0D 50 4F 53 4E 20 5B 37 5D 20 3A 3D |225;.POSN [7] :=|
000008A0: 20 32 36 35 3B 0D 50 4F 53 4E 20 5B 38 5D 20 3A | 265;.POSN [8] :|
000008B0: 3D 20 33 31 30 3B 0D 50 4F 49 4E 54 20 5B 31 5D |= 310;.POINT [1]|
000008C0: 20 3A 3D 20 31 32 38 3B 0D 50 4F 49 4E 54 20 5B | := 128;.POINT [|
000008D0: 32 5D 20 3A 3D 20 31 32 39 3B 0D 50 4F 49 4E 54 |2] := 129;.POINT|
000008E0: 20 5B 33 5D 20 3A 3D 20 31 33 30 3B 0D 50 4F 49 | [3] := 130;.POI|
000008F0: 4E 54 20 5B 34 5D 20 3A 3D 20 31 33 31 3B 0D 50 |NT [4] := 131;.P|
00000900: 4F 49 4E 54 20 5B 35 5D 20 3A 3D 20 31 33 32 3B |OINT [5] := 132;|
00000910: 0D 50 4F 49 4E 54 20 5B 36 5D 20 3A 3D 20 31 33 |.POINT [6] := 13|
00000920: 33 3B 0D 50 4F 49 4E 54 20 5B 37 5D 20 3A 3D 20 |3;.POINT [7] := |
00000930: 31 33 31 3B 0D 50 4F 49 4E 54 20 5B 38 5D 20 3A |131;.POINT [8] :|
00000940: 3D 20 31 33 34 3B 0D 53 43 4F 4C 20 5B 31 5D 20 |= 134;.SCOL [1] |
00000950: 3A 3D 20 33 3B 0D 53 43 4F 4C 20 5B 32 5D 20 3A |:= 3;.SCOL [2] :|
00000960: 3D 20 34 3B 0D 53 43 4F 4C 20 5B 33 5D 20 3A 3D |= 4;.SCOL [3] :=|
00000970: 20 37 3B 0D 53 43 4F 4C 20 5B 34 5D 20 3A 3D 20 | 7;.SCOL [4] := |
00000980: 38 3B 0D 53 43 4F 4C 20 5B 35 5D 20 3A 3D 20 31 |8;.SCOL [5] := 1|
00000990: 30 3B 0D 53 43 4F 4C 20 5B 36 5D 20 3A 3D 20 31 |0;.SCOL [6] := 1|
000009A0: 31 3B 0D 53 43 4F 4C 20 5B 37 5D 20 3A 3D 20 31 |1;.SCOL [7] := 1|
000009B0: 32 3B 0D 53 43 4F 4C 20 5B 38 5D 20 3A 3D 20 31 |2;.SCOL [8] := 1|
000009C0: 33 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D |3;..I := 1 .8 ..|
000009D0: 10 82 DF 28 49 2C 20 43 4F 4C 4F 55 52 2C 20 53 |...(I, COLOUR, S|
000009E0: 43 4F 4C 20 5B 49 5D 2C 0D 10 8A 49 2C 20 50 4F |COL [I],...I, PO|
000009F0: 49 4E 54 49 54 2C 20 50 4F 49 4E 54 20 5B 49 5D |INTIT, POINT [I]|
00000A00: 2C 0D 10 8A 49 2C 20 42 45 48 49 4E 44 42 4B 2C |,...I, BEHINDBK,|
00000A10: 20 4F 4E 2C 0D 10 8A 49 2C 20 45 58 50 41 4E 44 | ON,...I, EXPAND|
00000A20: 58 2C 20 4F 4E 2C 0D 10 8A 49 2C 20 45 58 50 41 |X, ON,...I, EXPA|
00000A30: 4E 44 59 2C 20 4F 4E 29 3B 0D 9A 49 20 3A 3D 20 |NDY, ON);..I := |
00000A40: 31 20 9B 38 20 97 0D 10 82 F4 28 49 2C 20 30 2C |1 .8 .....(I, 0,|
00000A50: 20 32 32 30 2C 20 32 35 36 2C 0D 10 8E 30 2C 20 | 220, 256,...0, |
00000A60: 31 35 30 29 3B 0D 46 4C 41 53 48 5F 42 4F 52 44 |150);.FLASH_BORD|
00000A70: 45 52 3B 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D |ER;..(.(HOME));.|
00000A80: 9A 49 20 3A 3D 20 31 20 9B 38 10 82 97 0D 10 82 |.I := 1 .8......|
00000A90: 4D 4F 56 45 5F 50 41 53 43 41 4C 20 28 49 2C 20 |MOVE_PASCAL (I, |
00000AA0: 50 4F 53 4E 20 5B 49 5D 2C 20 35 35 2C 0D 10 8F |POSN [I], 55,...|
00000AB0: 33 30 30 29 3B 0D 46 4C 41 53 48 5F 42 4F 52 44 |300);.FLASH_BORD|
00000AC0: 45 52 3B 0D 50 41 55 53 45 20 28 31 30 30 29 3B |ER;.PAUSE (100);|
00000AD0: 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 42 4C |.SET_COLOURS (BL|
00000AE0: 41 43 4B 2C 20 59 45 4C 4C 4F 57 29 3B 0D 89 3B |ACK, YELLOW);..;|
00000AF0: 0D 0D 86 50 41 47 45 31 3B 0D 28 2A 2A 2A 2A 2A |...PAGE1;.(*****|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 0D 86 49 4E 54 |*********)...INT|
00000B10: 52 4F 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |RO;.(***********|
00000B20: 2A 2A 2A 29 0D 88 0D A3 28 31 30 2C 20 31 29 3B |***)....(10, 1);|
00000B30: 0D FF 0D 28 22 D4 C8 C5 20 C3 CF CD D0 C9 CC C5 |...("... .......|
00000B40: D2 20 D7 C8 C9 C3 C8 20 D3 D5 D0 D0 CF D2 D4 D3 |. ..... ........|
00000B50: 20 C1 CC CC 20 CF C6 20 D4 C8 C5 22 29 3B 0D FF | ... .. ...");..|
00000B60: 0D 28 22 C6 C5 C1 D4 D5 D2 C5 D3 20 CF C6 20 D9 |.("........ .. .|
00000B70: CF D5 D2 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 |... ......... 64|
00000B80: 20 2E 2E 2E 22 29 3B 0D FF 3B 0D 89 3B 0D 0D 88 | ...");..;..;...|
00000B90: 20 28 2A 20 50 41 47 45 31 20 2A 29 0D 49 4E 54 | (* PAGE1 *).INT|
00000BA0: 52 4F 3B 0D 9A 49 20 3A 3D 20 31 20 9B 35 30 30 |RO;..I := 1 .500|
00000BB0: 20 97 0D 88 0D 10 82 DF 28 49 20 8C 38 20 2B 20 | .......(I .8 + |
00000BC0: 31 2C 20 43 4F 4C 4F 55 52 2C 0D 10 8A 49 20 8C |1, COLOUR,...I .|
00000BD0: 31 35 20 2B 20 31 29 3B 0D 10 82 AA 28 32 35 30 |15 + 1);....(250|
00000BE0: 29 3B 0D 89 3B 0D 0D 53 45 54 5F 43 4F 4C 4F 55 |);..;..SET_COLOU|
00000BF0: 52 53 20 28 42 4C 55 45 2C 20 4C 49 47 48 54 5F |RS (BLUE, LIGHT_|
00000C00: 47 52 45 45 4E 29 3B 0D 49 4E 54 52 4F 3B 0D 47 |GREEN);.INTRO;.G|
00000C10: 50 41 53 43 41 4C 5F 43 4F 4C 4F 55 52 20 3A 3D |PASCAL_COLOUR :=|
00000C20: 20 35 3B 0D FF 28 22 2A 20 20 53 50 52 49 54 45 | 5;..("* SPRITE|
00000C30: 53 22 29 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 2A |S");.FANCY;..("*|
00000C40: 20 20 47 52 41 50 48 49 43 53 22 29 3B 0D 46 41 | GRAPHICS");.FA|
00000C50: 4E 43 59 3B 0D FF 28 22 2A 20 20 53 4F 55 4E 44 |NCY;..("* SOUND|
00000C60: 20 45 46 46 45 43 54 53 22 29 3B 0D 46 41 4E 43 | EFFECTS");.FANC|
00000C70: 59 3B 0D FF 28 22 2A 20 20 43 4C 4F 43 4B 22 29 |Y;..("* CLOCK")|
00000C80: 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 2A 20 20 49 |;.FANCY;..("* I|
00000C90: 4E 54 45 52 56 41 4C 20 54 49 4D 45 52 22 29 3B |NTERVAL TIMER");|
00000CA0: 0D 46 41 4E 43 59 3B 0D FF 28 22 2A 20 20 43 55 |.FANCY;..("* CU|
00000CB0: 52 53 4F 52 20 50 4F 53 49 54 49 4F 4E 49 4E 47 |RSOR POSITIONING|
00000CC0: 22 29 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 2A 20 |");.FANCY;..("* |
00000CD0: 20 50 41 44 44 4C 45 53 22 29 3B 0D 46 41 4E 43 | PADDLES");.FANC|
00000CE0: 59 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 10 82 97 |Y;..I := 1 .8...|
00000CF0: 0D 10 82 4D 4F 56 45 5F 50 41 53 43 41 4C 20 28 |...MOVE_PASCAL (|
00000D00: 49 2C 20 33 30 30 2C 0D 10 84 32 33 20 2D 20 28 |I, 300,...23 - (|
00000D10: 32 38 20 2A 20 28 49 20 3E 20 32 29 29 20 2B 20 |28 * (I > 2)) + |
00000D20: 49 20 2A 20 32 38 2C 0D 10 84 32 30 30 29 3B 0D |I * 28,...200);.|
00000D30: DF 28 32 2C 20 41 43 54 49 56 45 2C 20 4F 46 46 |.(2, ACTIVE, OFF|
00000D40: 29 3B 0D 9D 28 22 2A 20 20 4A 4F 59 53 54 49 43 |);..("* JOYSTIC|
00000D50: 4B 53 22 29 3B 20 46 41 4E 43 59 3B 0D FF 3B 0D |KS"); FANCY;..;.|
00000D60: F7 28 32 2C 20 35 2C 20 31 33 35 2C 20 31 33 36 |.(2, 5, 135, 136|
00000D70: 2C 0D 10 95 31 33 37 29 3B 0D DF 28 32 2C 20 45 |,...137);..(2, E|
00000D80: 58 50 41 4E 44 58 2C 20 4F 46 46 2C 0D 10 88 32 |XPANDX, OFF,...2|
00000D90: 2C 20 45 58 50 41 4E 44 59 2C 20 4F 46 46 2C 0D |, EXPANDY, OFF,.|
00000DA0: 10 88 32 2C 20 42 45 48 49 4E 44 42 4B 2C 20 4F |..2, BEHINDBK, O|
00000DB0: 46 46 2C 0D 10 88 32 2C 20 43 4F 4C 4F 55 52 2C |FF,...2, COLOUR,|
00000DC0: 20 57 48 49 54 45 29 3B 0D F4 28 32 2C 20 35 30 | WHITE);..(2, 50|
00000DD0: 2C 20 32 32 35 2C 20 32 35 36 2C 0D 10 8C 30 2C |, 225, 256,...0,|
00000DE0: 20 32 34 30 29 3B 0D 0D FF 28 22 2A 20 20 53 4D | 240);...("* SM|
00000DF0: 4F 4F 54 48 20 53 43 52 4F 4C 4C 49 4E 47 22 29 |OOTH SCROLLING")|
00000E00: 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 2A 20 20 43 |;.FANCY;..("* C|
00000E10: 4F 4C 4C 49 53 49 4F 4E 20 44 45 54 45 43 54 49 |OLLISION DETECTI|
00000E20: 4F 4E 22 29 3B 0D 46 41 4E 43 59 3B 0D FF 28 22 |ON");.FANCY;..("|
00000E30: 2A 20 20 41 4E 49 4D 41 54 49 4F 4E 22 29 3B 0D |* ANIMATION");.|
00000E40: 0D 98 99 90 F3 28 32 29 3B 0D 9A 49 20 3A 3D 20 |.....(2);..I := |
00000E50: 31 20 9B 38 20 97 0D 10 82 92 49 20 3C 3E 20 32 |1 .8 .....I <> 2|
00000E60: 20 93 0D 10 82 4D 4F 56 45 5F 50 41 53 43 41 4C | ....MOVE_PASCAL|
00000E70: 20 28 49 2C 20 EC 28 49 29 2C 0D 10 8F 31 39 35 | (I, .(I),...195|
00000E80: 2C 20 35 30 29 3B 0D 98 99 90 F3 28 38 29 3B 0D |, 50);.....(8);.|
00000E90: F4 28 32 2C 20 EC 28 32 29 2C 0D 10 8F EE 28 32 |.(2, .(2),....(2|
00000EA0: 29 2C 0D 10 8F 32 35 36 2C 20 30 2C 20 32 30 29 |),...256, 0, 20)|
00000EB0: 3B 0D 98 99 90 F3 28 32 29 3B 0D F7 28 32 2C 20 |;.....(2);..(2, |
00000EC0: 35 2C 20 31 33 39 2C 20 31 33 38 2C 0D 10 95 31 |5, 139, 138,...1|
00000ED0: 34 30 2C 20 31 33 38 29 3B 0D 9A 49 20 3A 3D 20 |40, 138);..I := |
00000EE0: 31 20 9B 38 20 97 0D 10 82 F4 28 49 2C 20 EC 28 |1 .8 .....(I, .(|
00000EF0: 49 29 2C 0D 10 91 EE 28 49 29 2C 0D 10 91 30 2C |I),....(I),...0,|
00000F00: 20 2D 31 32 38 2C 20 34 30 30 29 3B 0D 98 99 F3 | -128, 400);....|
00000F10: 28 38 29 20 3D 20 30 3B 0D 9A 49 20 3A 3D 20 31 |(8) = 0;..I := 1|
00000F20: 20 9B 38 20 97 0D 10 82 DF 28 49 2C 20 41 43 54 | .8 .....(I, ACT|
00000F30: 49 56 45 2C 20 4F 46 46 29 3B 0D 53 45 54 5F 43 |IVE, OFF);.SET_C|
00000F40: 4F 4C 4F 55 52 53 20 28 4F 52 41 4E 47 45 2C 20 |OLOURS (ORANGE, |
00000F50: 52 45 44 29 3B 0D 89 3B 0D 0D 86 50 41 47 45 32 |RED);..;...PAGE2|
00000F60: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
00000F70: 2A 29 0D 88 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B |*)....(.(HOME));|
00000F80: 0D FF 28 22 20 20 20 20 20 20 20 20 20 20 20 20 |..(" |
00000F90: 20 20 20 D3 D0 D2 C9 D4 C5 D3 22 29 3B 0D 9D 10 | .......");...|
00000FA0: 82 28 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.(" |
00000FB0: 20 20 B8 B8 B8 B8 B8 B8 B8 22 29 3B 0D 53 4C 4F | .......");.SLO|
00000FC0: 57 3B 0D 9D 28 22 D3 50 52 49 54 45 53 20 43 41 |W;..(".PRITES CA|
00000FD0: 4E 20 45 41 53 49 4C 59 20 42 45 20 44 45 46 49 |N EASILY BE DEFI|
00000FE0: 4E 45 44 20 55 53 49 4E 47 20 54 48 45 22 29 3B |NED USING THE");|
00000FF0: 0D 53 4C 4F 57 3B 0D FF 28 22 C4 C5 C6 C9 CE C5 |.SLOW;..("......|
00001000: D3 D0 D2 C9 D4 C5 20 43 4F 4D 4D 41 4E 44 2E 22 |...... COMMAND."|
00001010: 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D4 48 45 59 |);.SLOW;..(".HEY|
00001020: 20 43 41 4E 20 42 45 20 4D 4F 56 45 44 20 41 55 | CAN BE MOVED AU|
00001030: 54 4F 4D 41 54 49 43 41 4C 4C 59 20 46 52 4F 4D |TOMATICALLY FROM|
00001040: 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 50 4C 41 |");.SLOW;..("PLA|
00001050: 43 45 20 54 4F 20 50 4C 41 43 45 20 55 53 49 4E |CE TO PLACE USIN|
00001060: 47 20 54 48 45 20 CD CF D6 C5 D3 D0 D2 C9 D4 C5 |G THE ..........|
00001070: 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 43 4F 4D |");.SLOW;..("COM|
00001080: 4D 41 4E 44 2E 22 29 3B 0D 53 4C 4F 57 3B 0D 9D |MAND.");.SLOW;..|
00001090: 28 22 D4 48 45 59 20 43 41 4E 20 42 45 20 41 4E |(".HEY CAN BE AN|
000010A0: 49 4D 41 54 45 44 2C 20 54 4F 4F 2C 20 55 53 49 |IMATED, TOO, USI|
000010B0: 4E 47 20 54 48 45 22 29 3B 0D 53 4C 4F 57 3B 0D |NG THE");.SLOW;.|
000010C0: FF 28 22 C1 CE C9 CD C1 D4 C5 D3 D0 D2 C9 D4 C5 |.(".............|
000010D0: 20 43 4F 4D 4D 41 4E 44 2C 20 4C 49 4B 45 20 54 | COMMAND, LIKE T|
000010E0: 48 49 53 20 2E 2E 2E 22 29 3B 0D 53 4C 4F 57 3B |HIS ...");.SLOW;|
000010F0: 0D FF 3B 0D F7 28 32 2C 20 35 2C 20 31 33 35 2C |..;..(2, 5, 135,|
00001100: 20 31 33 36 2C 0D 10 95 31 33 37 29 3B 0D DF 28 | 136,...137);..(|
00001110: 32 2C 20 43 4F 4C 4F 55 52 2C 20 42 52 4F 57 4E |2, COLOUR, BROWN|
00001120: 2C 0D 10 88 32 2C 20 42 45 48 49 4E 44 42 4B 2C |,...2, BEHINDBK,|
00001130: 20 4F 4E 29 3B 0D F4 28 32 2C 20 30 2C 20 31 35 | ON);..(2, 0, 15|
00001140: 30 2C 20 32 35 36 2C 0D 10 8C 30 2C 20 33 37 30 |0, 256,...0, 370|
00001150: 29 3B 0D 98 99 90 F3 28 32 29 3B 0D DF 28 32 2C |);.....(2);..(2,|
00001160: 20 41 43 54 49 56 45 2C 20 4F 46 46 29 3B 0D 9D | ACTIVE, OFF);..|
00001170: 28 22 D3 50 52 49 54 45 53 20 43 41 4E 20 42 45 |(".PRITES CAN BE|
00001180: 20 45 41 53 49 4C 59 20 45 58 50 41 4E 44 45 44 | EASILY EXPANDED|
00001190: 20 49 4E 20 54 48 45 22 29 3B 0D 53 4C 4F 57 3B | IN THE");.SLOW;|
000011A0: 0D 9D 28 22 D8 20 41 4E 44 20 D9 20 44 49 52 45 |..(". AND . DIRE|
000011B0: 43 54 49 4F 4E 53 2E 20 D4 48 45 59 20 43 41 4E |CTIONS. .HEY CAN|
000011C0: 20 42 45 20 50 4C 41 43 45 44 22 29 3B 0D 53 4C | BE PLACED");.SL|
000011D0: 4F 57 3B 0D FF 28 22 49 4E 20 46 52 4F 4E 54 20 |OW;..("IN FRONT |
000011E0: 4F 46 20 4F 52 20 42 45 48 49 4E 44 20 54 48 45 |OF OR BEHIND THE|
000011F0: 20 42 41 43 4B 47 52 4F 55 4E 44 2E 22 29 3B 0D | BACKGROUND.");.|
00001200: 53 4C 4F 57 3B 0D 9D 28 22 D9 4F 55 20 43 41 4E |SLOW;..(".OU CAN|
00001210: 20 45 41 53 49 4C 59 20 45 53 54 41 42 4C 49 53 | EASILY ESTABLIS|
00001220: 48 20 41 20 53 50 52 49 54 45 27 53 22 29 3B 0D |H A SPRITE'S");.|
00001230: 53 4C 4F 57 3B 0D 9D 28 22 43 55 52 52 45 4E 54 |SLOW;..("CURRENT|
00001240: 20 50 4F 53 49 54 49 4F 4E 20 4F 4E 20 54 48 45 | POSITION ON THE|
00001250: 20 53 43 52 45 45 4E 2C 20 41 4E 44 22 29 3B 0D | SCREEN, AND");.|
00001260: 53 4C 4F 57 3B 0D FF 28 22 57 48 45 54 48 45 52 |SLOW;..("WHETHER|
00001270: 20 4F 52 20 4E 4F 54 20 49 54 20 49 53 20 4D 4F | OR NOT IT IS MO|
00001280: 56 49 4E 47 2E 22 29 3B 0D 50 41 55 53 45 20 28 |VING.");.PAUSE (|
00001290: 35 30 30 29 3B 0D 89 3B 0D 0D 86 50 41 47 45 33 |500);..;...PAGE3|
000012A0: 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.(*************|
000012B0: 2A 29 0D 88 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B |*)....(.(HOME));|
000012C0: 0D FF 28 22 20 20 20 20 20 20 20 20 20 20 20 20 |..(" |
000012D0: 20 20 20 D3 D0 D2 C9 D4 C5 D3 22 29 3B 0D 9D 10 | .......");...|
000012E0: 82 28 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.(" |
000012F0: 20 20 B8 B8 B8 B8 B8 B8 B8 22 29 3B 20 53 4C 4F | ......."); SLO|
00001300: 57 3B 0D 9D 28 22 C7 2D D0 41 53 43 41 4C 20 43 |W;..(".-.ASCAL C|
00001310: 41 4E 20 41 55 54 4F 4D 41 54 49 43 41 4C 4C 59 |AN AUTOMATICALLY|
00001320: 20 53 54 4F 50 20 54 57 4F 22 29 3B 0D 53 4C 4F | STOP TWO");.SLO|
00001330: 57 3B 0D 9D 28 22 53 50 52 49 54 45 53 20 54 48 |W;..("SPRITES TH|
00001340: 45 20 49 4E 53 54 41 4E 54 20 54 48 41 54 20 54 |E INSTANT THAT T|
00001350: 48 45 59 20 43 4F 4C 4C 49 44 45 2C 22 29 3B 0D |HEY COLLIDE,");.|
00001360: 53 4C 4F 57 3B 0D FF 28 22 4C 49 4B 45 20 54 48 |SLOW;..("LIKE TH|
00001370: 49 53 20 2E 2E 2E 20 22 29 3B 0D AD 28 33 29 3B |IS ... ");..(3);|
00001380: 0D 9A 49 20 3A 3D 20 31 20 9B 32 20 97 0D 10 82 |..I := 1 .2 ....|
00001390: DF 28 49 2C 20 43 4F 4C 4F 55 52 2C 20 52 45 44 |.(I, COLOUR, RED|
000013A0: 2C 0D 10 8A 49 2C 20 50 4F 49 4E 54 49 54 2C 20 |,...I, POINTIT, |
000013B0: 31 32 38 2C 0D 10 8A 49 2C 20 45 58 50 41 4E 44 |128,...I, EXPAND|
000013C0: 58 2C 20 4F 4E 2C 0D 10 8A 49 2C 20 45 58 50 41 |X, ON,...I, EXPA|
000013D0: 4E 44 59 2C 20 4F 4E 29 3B 0D F4 28 31 2C 20 30 |NDY, ON);..(1, 0|
000013E0: 2C 20 31 35 30 2C 20 32 35 36 2C 20 30 2C 20 33 |, 150, 256, 0, 3|
000013F0: 37 30 29 3B 0D F4 28 32 2C 20 33 39 30 2C 20 31 |70);..(2, 390, 1|
00001400: 35 30 2C 20 2D 32 35 36 2C 20 30 2C 20 33 37 30 |50, -256, 0, 370|
00001410: 29 3B 0D 98 99 FD 3B 0D 53 45 54 5F 43 4F 4C 4F |);....;.SET_COLO|
00001420: 55 52 53 20 28 4C 49 47 48 54 5F 52 45 44 2C 20 |URS (LIGHT_RED, |
00001430: 59 45 4C 4C 4F 57 29 3B 0D 50 41 55 53 45 20 28 |YELLOW);.PAUSE (|
00001440: 35 30 30 29 3B 0D 89 3B 0D 0D 86 42 49 54 4D 41 |500);..;...BITMA|
00001450: 50 5F 44 45 4D 4F 3B 0D 28 2A 2A 2A 2A 2A 2A 2A |P_DEMO;.(*******|
00001460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 |*************)..|
00001470: 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 |..I := 1 .8 ....|
00001480: DF 28 49 2C 20 41 43 54 49 56 45 2C 20 4F 46 46 |.(I, ACTIVE, OFF|
00001490: 29 3B 0D 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D |);...(.(HOME));.|
000014A0: 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 52 45 44 |SET_COLOURS (RED|
000014B0: 2C 20 59 45 4C 4C 4F 57 29 3B 0D FF 28 22 20 20 |, YELLOW);..(" |
000014C0: 20 20 20 20 20 20 C2 C9 D4 20 CD C1 D0 20 C7 D2 | ... ... ..|
000014D0: C1 D0 C8 C9 C3 D3 22 29 3B 0D FF 28 22 20 20 20 |......");..(" |
000014E0: 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ...........|
000014F0: B8 B8 B8 B8 B8 22 29 3B 0D 53 4C 4F 57 3B 0D 9D |.....");.SLOW;..|
00001500: 28 22 C7 2D D0 41 53 43 41 4C 20 53 55 50 50 4F |(".-.ASCAL SUPPO|
00001510: 52 54 53 20 42 49 54 2D 4D 41 50 50 45 44 22 29 |RTS BIT-MAPPED")|
00001520: 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 28 48 49 47 48 |;.SLOW;..("(HIGH|
00001530: 2D 52 45 53 4F 4C 55 54 49 4F 4E 29 20 47 52 41 |-RESOLUTION) GRA|
00001540: 50 48 49 43 53 20 57 49 54 48 20 54 48 45 22 29 |PHICS WITH THE")|
00001550: 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D0 CC CF D4 20 |;.SLOW;..(".... |
00001560: 43 4F 4D 4D 41 4E 44 20 57 48 49 43 48 20 41 4C |COMMAND WHICH AL|
00001570: 4C 4F 57 53 20 50 4F 49 4E 54 53 20 54 4F 22 29 |LOWS POINTS TO")|
00001580: 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 42 45 20 45 41 |;.SLOW;..("BE EA|
00001590: 53 49 4C 59 20 50 4C 4F 54 54 45 44 20 49 4E 20 |SILY PLOTTED IN |
000015A0: 42 49 54 2D 4D 41 50 20 4D 4F 44 45 22 29 3B 0D |BIT-MAP MODE");.|
000015B0: 53 4C 4F 57 3B 0D FF 3B 20 FF 3B 0D FF 28 22 D7 |SLOW;..; .;..(".|
000015C0: 41 54 43 48 20 54 48 49 53 20 2E 2E 2E 22 29 3B |ATCH THIS ...");|
000015D0: 0D FF 3B 0D 50 41 55 53 45 20 28 32 30 30 29 3B |..;.PAUSE (200);|
000015E0: 0D E2 28 42 4F 52 44 45 52 2C 20 42 4C 41 43 4B |..(BORDER, BLACK|
000015F0: 2C 20 42 41 43 4B 47 4E 44 2C 20 42 4C 41 43 4B |, BACKGND, BLACK|
00001600: 2C 0D 10 88 44 49 53 50 4C 41 59 53 43 52 45 45 |,...DISPLAYSCREE|
00001610: 4E 2C 20 4F 46 46 2C 0D 10 88 4D 55 4C 54 49 43 |N, OFF,...MULTIC|
00001620: 4F 4C 4F 55 52 2C 20 4F 4E 2C 0D 10 88 42 49 54 |OLOUR, ON,...BIT|
00001630: 4D 41 50 2C 20 4F 4E 2C 0D 10 88 43 48 41 52 47 |MAP, ON,...CHARG|
00001640: 45 4E 42 41 53 45 2C 20 34 29 3B 0D 9D 28 AB 28 |ENBASE, 4);..(.(|
00001650: 48 4F 4D 45 29 29 3B 0D E2 28 43 48 41 52 43 4F |HOME));..(CHARCO|
00001660: 4C 4F 55 52 2C 20 4C 49 47 48 54 5F 47 52 45 45 |LOUR, LIGHT_GREE|
00001670: 4E 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 31 30 30 |N);..I := 1 .100|
00001680: 10 82 97 0D 10 83 9D 28 22 20 20 20 20 20 20 20 |.......(" |
00001690: 20 20 20 22 29 3B 0D A8 28 42 4C 55 45 2C 20 42 | ");..(BLUE, B|
000016A0: 52 4F 57 4E 29 3B 0D E2 28 44 49 53 50 4C 41 59 |ROWN);..(DISPLAY|
000016B0: 53 43 52 45 45 4E 2C 20 4F 4E 29 3B 0D 9A 49 20 |SCREEN, ON);..I |
000016C0: 3A 3D 20 31 20 9B 34 20 97 0D 88 0D 10 82 F7 28 |:= 1 .4 .......(|
000016D0: 49 2C 20 37 2C 20 33 32 2C 20 33 33 2C 20 33 34 |I, 7, 32, 33, 34|
000016E0: 2C 20 33 33 29 3B 0D 10 82 DF 28 49 2C 20 45 58 |, 33);....(I, EX|
000016F0: 50 41 4E 44 58 2C 20 4F 46 46 2C 0D 10 8A 49 2C |PANDX, OFF,...I,|
00001700: 20 45 58 50 41 4E 44 59 2C 20 4F 46 46 29 3B 0D | EXPANDY, OFF);.|
00001710: 10 82 F4 28 49 2C 32 30 2C 34 30 2C 36 30 20 2A |...(I,20,40,60 *|
00001720: 20 49 2C 34 30 2C 0D 10 8E 31 30 30 30 20 2F 20 | I,40,...1000 / |
00001730: 49 29 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 20 9B |I);..;..I := 1 .|
00001740: 31 35 37 20 97 0D 88 0D 10 82 A6 28 31 2C 20 49 |157 .......(1, I|
00001750: 2C 20 49 29 3B 0D 10 82 A6 28 31 2C 20 49 2C 20 |, I);....(1, I, |
00001760: 49 20 2B 20 31 29 3B 0D 10 82 A6 28 31 2C 20 49 |I + 1);....(1, I|
00001770: 2C 20 49 20 2B 20 32 29 3B 0D 89 3B 0D 9A 49 20 |, I + 2);..;..I |
00001780: 3A 3D 20 31 35 37 20 9C 31 20 97 0D 88 0D 10 84 |:= 157 .1 ......|
00001790: A6 28 32 2C 20 49 2C 20 31 35 39 20 2D 20 49 29 |.(2, I, 159 - I)|
000017A0: 3B 0D 10 84 A6 28 32 2C 20 49 2C 20 31 35 38 20 |;....(2, I, 158 |
000017B0: 2D 20 49 29 3B 0D 10 84 A6 28 32 2C 20 49 2C 20 |- I);....(2, I, |
000017C0: 31 35 37 20 2D 20 49 29 3B 0D 89 3B 0D 9A 49 20 |157 - I);..;..I |
000017D0: 3A 3D 20 31 20 9B 31 35 39 20 97 0D 88 0D 10 82 |:= 1 .159 ......|
000017E0: A6 28 33 2C 20 31 2C 20 49 29 3B 0D 10 82 A6 28 |.(3, 1, I);....(|
000017F0: 33 2C 20 32 2C 20 49 29 3B 0D 10 82 A6 28 33 2C |3, 2, I);....(3,|
00001800: 20 31 35 38 2C 20 49 29 3B 0D 10 82 A6 28 33 2C | 158, I);....(3,|
00001810: 20 31 35 39 2C 20 49 29 3B 0D 89 3B 0D 9A 49 20 | 159, I);..;..I |
00001820: 3A 3D 20 31 20 9B 31 35 39 20 97 0D 88 0D 10 82 |:= 1 .159 ......|
00001830: A6 28 33 2C 20 49 2C 20 31 29 3B 0D 10 82 A6 28 |.(3, I, 1);....(|
00001840: 33 2C 20 49 2C 20 32 29 3B 0D 10 82 A6 28 33 2C |3, I, 2);....(3,|
00001850: 20 49 2C 20 31 35 38 29 3B 0D 10 82 A6 28 33 2C | I, 158);....(3,|
00001860: 20 49 2C 20 31 35 39 29 3B 0D 89 3B 0D 98 99 90 | I, 159);..;....|
00001870: F3 28 31 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 34 |.(1);..I := 1 .4|
00001880: 20 97 0D 10 82 DF 28 49 2C 20 41 43 54 49 56 45 | .....(I, ACTIVE|
00001890: 2C 20 4F 46 46 29 3B 0D E2 28 44 49 53 50 4C 41 |, OFF);..(DISPLA|
000018A0: 59 53 43 52 45 45 4E 2C 4F 46 46 2C 0D 10 8A 42 |YSCREEN,OFF,...B|
000018B0: 4F 52 44 45 52 2C 20 52 45 44 2C 0D 10 8A 42 41 |ORDER, RED,...BA|
000018C0: 43 4B 47 4E 44 2C 20 52 45 44 2C 0D 10 8A 42 49 |CKGND, RED,...BI|
000018D0: 54 4D 41 50 2C 20 4F 46 46 2C 0D 10 8A 4D 55 4C |TMAP, OFF,...MUL|
000018E0: 54 49 43 4F 4C 4F 55 52 2C 20 4F 46 46 2C 0D 10 |TICOLOUR, OFF,..|
000018F0: 8A 43 48 41 52 47 45 4E 42 41 53 45 2C 20 33 29 |.CHARGENBASE, 3)|
00001900: 3B 0D 89 3B 0D 0D 86 53 4F 55 4E 44 5F 44 45 4D |;..;...SOUND_DEM|
00001910: 4F 3B 0D 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |O;.(************|
00001920: 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9D 28 AB 28 48 |*******)....(.(H|
00001930: 4F 4D 45 29 29 3B 0D E2 28 44 49 53 50 4C 41 59 |OME));..(DISPLAY|
00001940: 53 43 52 45 45 4E 2C 20 4F 4E 29 3B 0D 53 45 54 |SCREEN, ON);.SET|
00001950: 5F 43 4F 4C 4F 55 52 53 20 28 52 45 44 2C 20 59 |_COLOURS (RED, Y|
00001960: 45 4C 4C 4F 57 29 3B 0D 0D FF 28 22 20 20 20 20 |ELLOW);...(" |
00001970: 20 20 20 20 20 20 20 D3 CF D5 CE C4 20 C5 C6 C6 | ..... ...|
00001980: C5 C3 D4 D3 22 29 3B 0D FF 28 22 20 20 20 20 20 |....");..(" |
00001990: 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ..........|
000019A0: B8 B8 B8 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 |...");.SLOW;..("|
000019B0: C7 2D D0 41 53 43 41 4C 20 50 52 4F 56 49 44 45 |.-.ASCAL PROVIDE|
000019C0: 53 20 45 58 54 45 4E 53 49 56 45 20 53 55 50 50 |S EXTENSIVE SUPP|
000019D0: 4F 52 54 20 46 4F 52 22 29 3B 0D 53 4C 4F 57 3B |ORT FOR");.SLOW;|
000019E0: 0D 9D 28 22 54 48 45 20 D3 C9 C4 20 43 48 49 50 |..("THE ... CHIP|
000019F0: 20 28 D3 4F 55 4E 44 20 C9 4E 54 45 52 46 41 43 | (.OUND .NTERFAC|
00001A00: 45 20 C4 45 56 49 43 45 29 22 29 3B 0D 53 4C 4F |E .EVICE)");.SLO|
00001A10: 57 3B 0D 9D 28 22 49 4E 20 59 4F 55 52 20 C3 4F |W;..("IN YOUR .O|
00001A20: 4D 4D 4F 44 4F 52 45 20 36 34 2E 20 D4 48 45 20 |MMODORE 64. .HE |
00001A30: 41 54 54 52 49 42 55 54 45 53 20 4F 46 22 29 3B |ATTRIBUTES OF");|
00001A40: 0D 53 4C 4F 57 3B 0D 9D 28 22 45 41 43 48 20 49 |.SLOW;..("EACH I|
00001A50: 4E 44 49 56 49 44 55 41 4C 20 56 4F 49 43 45 20 |NDIVIDUAL VOICE |
00001A60: 41 52 45 20 45 41 53 49 4C 59 22 29 3B 0D 53 4C |ARE EASILY");.SL|
00001A70: 4F 57 3B 0D 9D 28 22 43 4F 4E 54 52 4F 4C 4C 45 |OW;..("CONTROLLE|
00001A80: 44 2C 20 41 53 20 57 45 4C 4C 20 41 53 20 54 48 |D, AS WELL AS TH|
00001A90: 45 20 56 41 52 49 4F 55 53 22 29 3B 0D 53 4C 4F |E VARIOUS");.SLO|
00001AA0: 57 3B 0D FF 28 22 46 49 4C 54 45 52 49 4E 47 20 |W;..("FILTERING |
00001AB0: 41 4E 44 20 53 50 45 43 49 41 4C 20 45 46 46 45 |AND SPECIAL EFFE|
00001AC0: 43 54 53 2E 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 |CTS.");.SLOW;..(|
00001AD0: 22 D4 55 52 4E 20 55 50 20 54 48 45 20 56 4F 4C |".URN UP THE VOL|
00001AE0: 55 4D 45 20 4E 4F 57 20 54 4F 20 48 45 41 52 20 |UME NOW TO HEAR |
00001AF0: 41 20 53 41 4D 50 4C 45 22 29 3B 0D 53 4C 4F 57 |A SAMPLE");.SLOW|
00001B00: 3B 0D FF 28 22 4F 46 20 49 54 20 49 4E 20 4F 50 |;..("OF IT IN OP|
00001B10: 45 52 41 54 49 4F 4E 20 2E 2E 2E 2E 2E 22 29 3B |ERATION .....");|
00001B20: 0D 53 4C 4F 57 3B 0D FF 3B 0D 54 55 4E 45 3B 0D |.SLOW;..;.TUNE;.|
00001B30: 89 3B 0D 0D 0D 28 2A 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;...(*---------|
00001B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001B50: 2D 2D 2D 2D 2D 2D 2A 29 0D 88 20 28 2A 10 82 4D |------*).. (*..M|
00001B60: 41 49 4E 20 50 52 4F 47 52 41 4D 10 82 2A 29 0D |AIN PROGRAM..*).|
00001B70: 98 0D 10 83 49 4E 49 54 3B 0D 10 83 42 52 49 4E |....INIT;...BRIN|
00001B80: 47 5F 50 41 53 43 41 4C 3B 0D 10 83 50 41 47 45 |G_PASCAL;...PAGE|
00001B90: 31 3B 0D 10 83 50 41 47 45 32 3B 0D 10 83 50 41 |1;...PAGE2;...PA|
00001BA0: 47 45 33 3B 0D 10 83 42 49 54 4D 41 50 5F 44 45 |GE3;...BITMAP_DE|
00001BB0: 4D 4F 3B 0D 10 83 53 4F 55 4E 44 5F 44 45 4D 4F |MO;...SOUND_DEMO|
00001BC0: 3B 0D 99 46 41 4C 53 45 3B 0D 89 2E 0D 00 86 |;..FALSE;...... |
);...PLAY (1, G .1, 2);...PLAY (1, G .1,
2);...(*..BAR 5..*)...PLAY (2, A .2, 0)
;...PLAY (1, C, 2);...PLAY (1, D, 1);...
PLAY (1, C, 1);...PLAY (1, B .1, 1);...P
LAY (1, A .1, 1);...(*..BAR 6..*)...PLAY
(2, G .2, 0);...PLAY (1, B .1, 2);...PL
AY (1, C, 1);...PLAY (1, B .1, 1);...PLA
Y (1, A .1, 1);...PLAY (1, G .1, 1);....
ROUND = 1 ........(*..BAR 7..*)...PLAY (
2, D .1, 0);...PLAY (1, FS .1, 2);...PLA
Y (2, B .2, 0);...PLAY (1, G .1, 1);...P
LAY (1, A .1, 1);...PLAY (2, G .2, 0);..
.PLAY (1, B .1, 1);...PLAY (1, G .1, 1);
...(*..BAR 8..*)...PLAY (2, D .1, 0);...
PLAY (1, A .1, 2);...PLAY (2, D .2, 1);.
..PLAY (2, C .1, 1);...PLAY (2, B .2, 1)
;...PLAY (2, A .2, 1);...............(*.
.BAR 15..*)...PLAY (2, C .1, 0);...PLAY
(1, A .1, 2);...PLAY (2, D .1, 0);...PLA
Y (1, B .1, 1);...PLAY (1, A .1, 1);...P
LAY (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);.PAUSE ( 100);..(V
OLUME, 0)..;...MOVE_PASCAL (WHICH, NEWX,
...NEWY, MOVES);.(*******************)..
.(*-------------------------------.MOVE
THE NOMINATED .FROM ITS.CURRENT POSITION
.THE NEW X ..Y COORDINATES, IN THE NOMI
NATED.NUMBER .MOVES..-------------------
-------------*)....(WHICH,....(WHICH),..
..(WHICH),...(NEWX - .(WHICH))...* 256 /
MOVES,...(NEWY - .(WHICH))...* 256 / MO
VES,...MOVES)..;...BRING_PASCAL;.(******
***************)...FLASH_BORDER;.(******
***************)...I := 1;.....I := I +
1;....(290);....(BORDER, I);...PAUSE (15
);...(8) = 0;..;... (* BRING_PASCAL *)..
(8, 1);..(CHARCOLOUR, PURPLE);..("THIS D
EMONSTRATION PROGRAM IS WRITTEN");.SLOW;
..("ENTIRELY:IN G-PASCAL. IT:DOES NOT U
SE");.SLOW;..("ANY PEEKS, POKES (OR SIMI
LAR), OR");.SLOW;..("MACHINE-CODE SUBRO
UTINES.");.SLOW;..(1, 7, 32, 33, 34, 33)
;..(1, EXPANDX, OFF,...1, COLOUR, BLUE,.
..1, EXPANDY, OFF);..(1,0,130,180, 0, 50
0);....(1) = 0;..(1, ACTIVE, OFF);.(*---
---------------------------.DEFINE EACH
LETTER (IN G-PASCAL)..ITS POSITION ON TH
E LINE, ITS..POINTER (THE LETTER 'A'.OCC
URS TWICE) .ITS COLOUR..----------------
---------------*).POSN [1] := 25;.POSN [
2] := 70;.POSN [3] := 90;.POSN [4] := 13
5;.POSN [5] := 180;.POSN [6] := 225;.POS
N [7] := 265;.POSN [8] := 310;.POINT [1]
:= 128;.POINT [2] := 129;.POINT [3] :=
130;.POINT [4] := 131;.POINT [5] := 132;
.POINT [6] := 133;.POINT [7] := 131;.POI
NT [8] := 134;.SCOL [1] := 3;.SCOL [2] :
= 4;.SCOL [3] := 7;.SCOL [4] := 8;.SCOL
[5] := 10;.SCOL [6] := 11;.SCOL [7] := 1
2;.SCOL [8] := 13;..I := 1 .8 .....(I, C
OLOUR, SCOL [I],...I, POINTIT, POINT [I]
,...I, BEHINDBK, ON,...I, EXPANDX, ON,..
.I, EXPANDY, ON);..I := 1 .8 .....(I, 0,
220, 256,...0, 150);.FLASH_BORDER;..(.(
HOME));..I := 1 .8......MOVE_PASCAL (I,
POSN [I], 55,...300);.FLASH_BORDER;.PAUS
E (100);.SET_COLOURS (BLACK, YELLOW);..;
...PAGE1;.(**************)...INTRO;.(***
***********)....(10, 1);...("THE COMPILE
R WHICH SUPPORTS ALL OF THE");...("FEATU
RES 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;..("* SPRITE
S");.FANCY;..("* GRAPHICS");.FANCY;..("
* SOUND EFFECTS");.FANCY;..("* CLOCK")
;.FANCY;..("* INTERVAL TIMER");.FANCY;.
.("* CURSOR POSITIONING");.FANCY;..("*
PADDLES");.FANCY;..I := 1 .8......MOVE_
PASCAL (I, 300,...23 - (28 * (I > 2)) +
I * 28,...200);..(2, ACTIVE, OFF);..("*
JOYSTICKS"); FANCY;..;..(2, 5, 135, 136
,...137);..(2, EXPANDX, OFF,...2, EXPAND
Y, OFF,...2, BEHINDBK, OFF,...2, COLOUR,
WHITE);..(2, 50, 225, 256,...0, 240);..
.("* SMOOTH SCROLLING");.FANCY;..("* C
OLLISION DETECTION");.FANCY;..("* ANIMA
TION");......(2);..I := 1 .8 .....I <> 2
....MOVE_PASCAL (I, .(I),...195, 50);..
...(8);..(2, .(2),....(2),...256, 0, 20)
;.....(2);..(2, 5, 139, 138,...140, 138)
;..I := 1 .8 .....(I, .(I),....(I),...0,
-128, 400);....(8) = 0;..I := 1 .8 ....
.(I, ACTIVE, OFF);.SET_COLOURS (ORANGE,
RED);..;...PAGE2;.(**************)....(.
(HOME));..(" SPRITES");...
.(" .......");.SLOW;..("SP
RITES CAN EASILY BE DEFINED USING THE");
.SLOW;..("DEFINESPRITE COMMAND.");.SLOW;
..("THEY CAN BE MOVED AUTOMATICALLY FROM
");.SLOW;..("PLACE TO PLACE USING THE MO
VESPRITE");.SLOW;..("COMMAND.");.SLOW;..
("THEY CAN BE ANIMATED, TOO, USING THE")
;.SLOW;..("ANIMATESPRITE COMMAND, LIKE T
HIS ...");.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 AN
D Y DIRECTIONS. THEY CAN BE PLACED");.SL
OW;..("IN FRONT OF OR BEHIND THE BACKGRO
UND.");.SLOW;..("YOU CAN EASILY ESTABLIS
H A SPRITE'S");.SLOW;..("CURRENT POSITIO
N ON THE SCREEN, AND");.SLOW;..("WHETHER
OR NOT IT IS MOVING.");.PAUSE (500);..;
...PAGE3;.(**************)....(.(HOME));
..(" SPRITES");....("
......."); SLOW;..("G-PASCAL C
AN AUTOMATICALLY STOP TWO");.SLOW;..("SP
RITES THE INSTANT THAT THEY COLLIDE,");.
SLOW;..("LIKE THIS ... ");..(3);..I := 1
.2 .....(I, COLOUR, RED,...I, POINTIT,
128,...I, EXPANDX, ON,...I, EXPANDY, ON)
;..(1, 0, 150, 256, 0, 370);..(2, 390, 1
50, -256, 0, 370);....;.SET_COLOURS (LIG
HT_RED, YELLOW);.PAUSE (500);..;...BITMA
P_DEMO;.(********************)....I := 1
.8 .....(I, ACTIVE, OFF);...(.(HOME));.
SET_COLOURS (RED, YELLOW);..(" BI
T MAP GRAPHICS");..(" ...........
.....");.SLOW;..("G-PASCAL SUPPORTS BIT-
MAPPED");.SLOW;..("(HIGH-RESOLUTION) GRA
PHICS WITH THE");.SLOW;..("PLOT COMMAND
WHICH ALLOWS POINTS TO");.SLOW;..("BE EA
SILY PLOTTED IN BIT-MAP MODE");.SLOW;..;
.;..("WATCH THIS ...");..;.PAUSE (200);
..(BORDER, BLACK, BACKGND, BLACK,...DISP
LAYSCREEN, OFF,...MULTICOLOUR, ON,...BIT
MAP, ON,...CHARGENBASE, 4);..(.(HOME));.
.(CHARCOLOUR, LIGHT_GREEN);..I := 1 .100
.......(" ");..(BLUE, BROWN);..
(DISPLAYSCREEN, ON);..I := 1 .4 .......(
I, 7, 32, 33, 34, 33);....(I, EXPANDX, O
FF,...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, 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,...B
ORDER, RED,...BACKGND, RED,...BITMAP, OF
F,...MULTICOLOUR, OFF,...CHARGENBASE, 3)
;..;...SOUND_DEMO;.(*******************)
....(.(HOME));..(DISPLAYSCREEN, ON);.SET
_COLOURS (RED, YELLOW);...(" S
OUND EFFECTS");..(" ..........
...");.SLOW;..("G-PASCAL PROVIDES EXTENS
IVE SUPPORT FOR");.SLOW;..("THE SID CHIP
(SOUND INTERFACE DEVICE)");.SLOW;..("IN
YOUR COMMODORE 64. THE ATTRIBUTES OF");
.SLOW;..("EACH INDIVIDUAL VOICE ARE EASI
LY");.SLOW;..("CONTROLLED, AS WELL AS TH
E VARIOUS");.SLOW;..("FILTERING AND SPEC
IAL EFFECTS.");.SLOW;..("TURN UP THE VOL
UME NOW TO HEAR A SAMPLE");.SLOW;..("OF
IT IN OPERATION .....");.SLOW;..;.TUNE;.
.;...(*-------------------------------*)
.. (*..MAIN PROGRAM..*).....INIT;...BRIN
G_PASCAL;...PAGE1;...PAGE2;...PAGE3;...B
ITMAP_DEMO;...SOUND_DEMO;..FALSE;......
> CLICK IMAGE PREVIEW FOR FULL MODAL