RANDOM FILE
FILE INFORMATION
FILENAME(S): RANDOM FILE
FILE TYPE(S): DEL
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 21:24:59
APPEARS ON: 1 disk(s)
FILE HASH
60976831fdfd5d244c5bc10c0f437ba4b1b7bb406c501925fb1f3c00576959e8
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL | RANDOM FILE | DEL | DuncanTwain | 27 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 08 1F 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000020: 3D 08 0C 00 8F 20 2A 20 52 41 4E 44 4F 4D 20 46 |=.... * RANDOM F|
00000030: 49 4C 45 20 45 58 41 4D 50 4C 45 20 2A 00 5B 08 |ILE EXAMPLE *.[.|
00000040: 0E 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 7C 08 10 00 |***********.|...|
00000060: 86 49 24 28 36 36 34 29 3A 46 44 B2 30 3A 46 58 |.I$(664):FD.0:FX|
00000070: B2 35 3A 43 48 B2 32 3A 46 50 B2 31 00 9D 08 12 |.5:CH.2:FP.1....|
00000080: 00 99 22 93 11 11 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |..".............|
00000090: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 B8 08 |............"...|
000000A0: 14 00 99 22 20 20 49 4E 53 45 52 54 20 44 41 54 |..." INSERT DAT|
000000B0: 41 20 53 48 45 45 54 22 00 D5 08 16 00 99 22 C4 |A SHEET"......".|
000000C0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000000D0: C4 C4 C4 C4 22 00 F2 08 18 00 99 22 11 11 20 20 |...."......".. |
000000E0: 20 20 53 54 41 52 54 20 50 52 45 53 53 20 27 53 | START PRESS 'S|
000000F0: 27 22 00 06 09 1A 00 A1 50 24 3A 8B 50 24 B3 B1 |'"......P$:.P$..|
00000100: 22 53 22 A7 32 36 00 23 09 1C 00 9F 31 35 2C 38 |"S".26.#....15,8|
00000110: 2C 31 35 2C 22 49 30 22 3A 9F 32 2C 38 2C 32 2C |,15,"I0":.2,8,2,|
00000120: 22 23 22 00 43 09 1E 00 99 22 93 11 C6 C6 C6 C6 |"#".C...."......|
00000130: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00000140: C6 C6 22 00 5F 09 20 00 99 22 49 4E 44 45 58 20 |.."._. .."INDEX |
00000150: 46 49 4C 45 20 4F 50 45 52 41 54 49 4F 4E 22 00 |FILE OPERATION".|
00000160: 7D 09 22 00 99 22 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |}.".."..........|
00000170: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 A1 09 |............"...|
00000180: 24 00 85 22 11 20 20 20 20 20 4E 45 57 20 53 48 |$..". NEW SH|
00000190: 45 45 54 3F 20 4E 9D 9D 9D 22 3B 4F 24 3A 99 22 |EET? N...";O$:."|
000001A0: 22 00 B0 09 26 00 8B 4F 24 B2 22 4E 22 A7 34 36 |"...&..O$."N".46|
000001B0: 00 C0 09 28 00 8B 4F 24 B3 B1 22 59 22 A7 33 36 |...(..O$.."Y".36|
000001C0: 00 DC 09 2A 00 99 3A 99 22 20 20 20 20 57 41 49 |...*..:." WAI|
000001D0: 54 21 22 3A 81 49 B2 31 A4 36 36 34 00 0D 0A 2C |T!":.I.1.664...,|
000001E0: 00 99 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 11 11 |..".............|
000001F0: 11 11 11 11 11 11 11 20 20 20 20 9D 29 3B 0D 0D |....... .);..|
00000200: FF 28 22 2A 20 20 53 4D 4F 4F 54 48 20 53 43 52 |.("* SMOOTH SCR|
00000210: 4F 4C 4C 49 4E 47 22 29 3B 0D 46 41 4E 43 59 3B |OLLING");.FANCY;|
00000220: 0D FF 28 22 2A 20 20 43 4F 4C 4C 49 53 49 4F 4E |..("* COLLISION|
00000230: 20 44 45 54 45 43 54 49 4F 4E 22 29 3B 0D 46 41 | DETECTION");.FA|
00000240: 4E 43 59 3B 0D FF 28 22 2A 20 20 41 4E 49 4D 41 |NCY;..("* ANIMA|
00000250: 54 49 4F 4E 22 29 3B 0D 0D 98 99 90 F3 28 32 29 |TION");......(2)|
00000260: 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 |;..I := 1 .8 ...|
00000270: 82 92 49 20 3C 3E 20 32 20 93 0D 10 82 4D 4F 56 |..I <> 2 ....MOV|
00000280: 45 5F 50 41 53 43 41 4C 20 28 49 2C 20 EC 28 49 |E_PASCAL (I, .(I|
00000290: 29 2C 0D 10 8F 31 39 35 2C 20 35 30 29 3B 0D 98 |),...195, 50);..|
000002A0: 99 90 F3 28 38 29 3B 0D F4 28 32 2C 20 EC 28 32 |...(8);..(2, .(2|
000002B0: 29 2C 0D 10 8F EE 28 32 29 2C 0D 10 8F 32 35 36 |),....(2),...256|
000002C0: 2C 20 30 2C 20 32 30 29 3B 0D 98 99 90 F3 28 32 |, 0, 20);.....(2|
000002D0: 29 3B 0D F7 28 32 2C 20 35 2C 20 31 33 39 2C 20 |);..(2, 5, 139, |
000002E0: 31 33 38 2C 0D 10 95 31 34 30 2C 20 31 33 38 29 |138,...140, 138)|
000002F0: 3B 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 |;..I := 1 .8 ...|
00000300: 82 F4 28 49 2C 20 EC 28 49 29 2C 0D 10 91 EE 28 |..(I, .(I),....(|
00000310: 49 29 2C 0D 10 91 30 2C 20 2D 31 32 38 2C 20 34 |I),...0, -128, 4|
00000320: 30 30 29 3B 0D 98 99 F3 28 38 29 20 3D 20 30 3B |00);....(8) = 0;|
00000330: 0D 9A 49 20 3A 3D 20 31 20 9B 38 20 97 0D 10 82 |..I := 1 .8 ....|
00000340: DF 28 49 2C 20 41 43 54 49 56 45 2C 20 4F 46 46 |.(I, ACTIVE, OFF|
00000350: 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 |);.SET_COLOURS (|
00000360: 4F 52 41 4E 47 45 2C 20 52 45 44 29 3B 0D 89 3B |ORANGE, RED);..;|
00000370: 0D 0D 86 50 41 47 45 32 3B 0D 28 2A 2A 2A 2A 2A |...PAGE2;.(*****|
00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9D 28 AB |*********)....(.|
00000390: 28 48 4F 4D 45 29 29 3B 0D FF 28 22 20 20 20 20 |(HOME));..(" |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 D3 D0 D2 C9 D4 | .....|
000003B0: C5 D3 22 29 3B 0D 9D 10 82 28 22 20 20 20 20 20 |..");....(" |
000003C0: 20 20 20 20 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 | ......|
000003D0: B8 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D3 50 |.");.SLOW;..(".P|
000003E0: 52 49 54 45 53 20 43 41 4E 20 45 41 53 49 4C 59 |RITES CAN EASILY|
000003F0: 20 42 45 20 44 45 46 49 4E 45 44 20 55 53 49 4E | BE DEFINED USIN|
00000400: 47 20 54 48 45 22 29 3B 0D 53 4C 4F 57 3B 0D FF |G THE");.SLOW;..|
00000410: 28 22 C4 C5 C6 C9 CE C5 D3 D0 D2 C9 D4 C5 20 43 |("............ C|
00000420: 4F 4D 4D 41 4E 44 2E 22 29 3B 0D 53 4C 4F 57 3B |OMMAND.");.SLOW;|
00000430: 0D 9D 28 22 D4 48 45 59 20 43 41 4E 20 42 45 20 |..(".HEY CAN BE |
00000440: 4D 4F 56 45 44 20 41 55 54 4F 4D 41 54 49 43 41 |MOVED AUTOMATICA|
00000450: 4C 4C 59 20 46 52 4F 4D 22 29 3B 0D 53 4C 4F 57 |LLY FROM");.SLOW|
00000460: 3B 0D 9D 28 22 50 4C 41 43 45 20 54 4F 20 50 4C |;..("PLACE TO PL|
00000470: 41 43 45 20 55 53 49 4E 47 20 54 48 45 20 CD CF |ACE USING THE ..|
00000480: D6 C5 D3 D0 D2 C9 D4 C5 22 29 3B 0D 53 4C 4F 57 |........");.SLOW|
00000490: 3B 0D FF 28 22 43 4F 4D 4D 41 4E 44 2E 22 29 3B |;..("COMMAND.");|
000004A0: 0D 53 4C 4F 57 3B 0D 9D 28 22 D4 48 45 59 20 43 |.SLOW;..(".HEY C|
000004B0: 41 4E 20 42 45 20 41 4E 49 4D 41 54 45 44 2C 20 |AN BE ANIMATED, |
000004C0: 54 4F 4F 2C 20 55 53 49 4E 47 20 54 48 45 22 29 |TOO, USING THE")|
000004D0: 3B 0D 53 4C 4F 57 3B 0D FF 28 22 C1 CE C9 CD C1 |;.SLOW;..(".....|
000004E0: D4 C5 D3 D0 D2 C9 D4 C5 20 43 4F 4D 4D 41 4E 44 |........ COMMAND|
000004F0: 2C 20 4C 49 4B 45 20 54 48 49 53 20 2E 2E 2E 22 |, LIKE THIS ..."|
00000500: 29 3B 0D 53 4C 4F 57 3B 0D FF 3B 0D F7 28 32 2C |);.SLOW;..;..(2,|
00000510: 20 35 2C 20 31 33 35 2C 20 31 33 36 2C 0D 10 95 | 5, 135, 136,...|
00000520: 31 33 37 29 3B 0D DF 28 32 2C 20 43 4F 4C 4F 55 |137);..(2, COLOU|
00000530: 52 2C 20 42 52 4F 57 4E 2C 0D 10 88 32 2C 20 42 |R, BROWN,...2, B|
00000540: 45 48 49 4E 44 42 4B 2C 20 4F 4E 29 3B 0D F4 28 |EHINDBK, ON);..(|
00000550: 32 2C 20 30 2C 20 31 35 30 2C 20 32 35 36 2C 0D |2, 0, 150, 256,.|
00000560: 10 8C 30 2C 20 33 37 30 29 3B 0D 98 99 90 F3 28 |..0, 370);.....(|
00000570: 32 29 3B 0D DF 28 32 2C 20 41 43 54 49 56 45 2C |2);..(2, ACTIVE,|
00000580: 20 4F 46 46 29 3B 0D 9D 28 22 D3 50 52 49 54 45 | OFF);..(".PRITE|
00000590: 53 20 43 41 4E 20 42 45 20 45 41 53 49 4C 59 20 |S CAN BE EASILY |
000005A0: 45 58 50 41 4E 44 45 44 20 49 4E 20 54 48 45 22 |EXPANDED IN THE"|
000005B0: 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 D8 20 41 4E |);.SLOW;..(". AN|
000005C0: 44 20 D9 20 44 49 52 45 43 54 49 4F 4E 53 2E 20 |D . DIRECTIONS. |
000005D0: D4 48 45 59 20 43 41 4E 20 42 45 20 50 4C 41 43 |.HEY CAN BE PLAC|
000005E0: 45 44 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 49 |ED");.SLOW;..("I|
000005F0: 4E 20 46 52 4F 4E 54 20 4F 46 20 4F 52 20 42 45 |N FRONT OF OR BE|
00000600: 48 49 4E 44 20 54 48 45 20 42 41 43 4B 47 52 4F |HIND THE BACKGRO|
00000610: 55 4E 44 2E 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 |UND.");.SLOW;..(|
00000620: 22 D9 4F 55 20 43 41 4E 20 45 41 53 49 4C 59 20 |".OU CAN EASILY |
00000630: 45 53 54 41 42 4C 49 53 48 20 41 20 53 50 52 49 |ESTABLISH A SPRI|
00000640: 54 45 27 53 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 |TE'S");.SLOW;..(|
00000650: 22 43 55 52 52 45 4E 54 20 50 4F 53 49 54 49 4F |"CURRENT POSITIO|
00000660: 4E 20 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 2C |N ON THE SCREEN,|
00000670: 20 41 4E 44 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 | AND");.SLOW;..(|
00000680: 22 57 48 45 54 48 45 52 20 4F 52 20 4E 4F 54 20 |"WHETHER OR NOT |
00000690: 49 54 20 49 53 20 4D 4F 56 49 4E 47 2E 22 29 3B |IT IS MOVING.");|
000006A0: 0D 50 41 55 53 45 20 28 35 30 30 29 3B 0D 89 3B |.PAUSE (500);..;|
000006B0: 0D 0D 86 50 41 47 45 33 3B 0D 28 2A 2A 2A 2A 2A |...PAGE3;.(*****|
000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 0D 88 0D 9D 28 AB |*********)....(.|
000006D0: 28 48 4F 4D 45 29 29 3B 0D FF 28 22 20 20 20 20 |(HOME));..(" |
000006E0: 20 20 20 20 20 20 20 20 20 20 20 D3 D0 D2 C9 D4 | .....|
000006F0: C5 D3 22 29 3B 0D 9D 10 82 28 22 20 20 20 20 20 |..");....(" |
00000700: 20 20 20 20 20 20 20 20 20 20 B8 B8 B8 B8 B8 B8 | ......|
00000710: B8 22 29 3B 20 53 4C 4F 57 3B 0D 9D 28 22 C7 2D |."); SLOW;..(".-|
00000720: D0 41 53 43 41 4C 20 43 41 4E 20 41 55 54 4F 4D |.ASCAL CAN AUTOM|
00000730: 41 54 49 43 41 4C 4C 59 20 53 54 4F 50 20 54 57 |ATICALLY STOP TW|
00000740: 4F 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 53 50 |O");.SLOW;..("SP|
00000750: 52 49 54 45 53 20 54 48 45 20 49 4E 53 54 41 4E |RITES THE INSTAN|
00000760: 54 20 54 48 41 54 20 54 48 45 59 20 43 4F 4C 4C |T THAT THEY COLL|
00000770: 49 44 45 2C 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 |IDE,");.SLOW;..(|
00000780: 22 4C 49 4B 45 20 54 48 49 53 20 2E 2E 2E 20 22 |"LIKE THIS ... "|
00000790: 29 3B 0D AD 28 33 29 3B 0D 9A 49 20 3A 3D 20 31 |);..(3);..I := 1|
000007A0: 20 9B 32 20 97 0D 10 82 DF 28 49 2C 20 43 4F 4C | .2 .....(I, COL|
000007B0: 4F 55 52 2C 20 52 45 44 2C 0D 10 8A 49 2C 20 50 |OUR, RED,...I, P|
000007C0: 4F 49 4E 54 49 54 2C 20 31 32 38 2C 0D 10 8A 49 |OINTIT, 128,...I|
000007D0: 2C 20 45 58 50 41 4E 44 58 2C 20 4F 4E 2C 0D 10 |, EXPANDX, ON,..|
000007E0: 8A 49 2C 20 45 58 50 41 4E 44 59 2C 20 4F 4E 29 |.I, EXPANDY, ON)|
000007F0: 3B 0D F4 28 31 2C 20 30 2C 20 31 35 30 2C 20 32 |;..(1, 0, 150, 2|
00000800: 35 36 2C 20 30 2C 20 33 37 30 29 3B 0D F4 28 32 |56, 0, 370);..(2|
00000810: 2C 20 33 39 30 2C 20 31 35 30 2C 20 2D 32 35 36 |, 390, 150, -256|
00000820: 2C 20 30 2C 20 33 37 30 29 3B 0D 98 99 FD 3B 0D |, 0, 370);....;.|
00000830: 53 45 54 5F 43 4F 4C 4F 55 52 53 20 28 4C 49 47 |SET_COLOURS (LIG|
00000840: 48 54 5F 52 45 44 2C 20 59 45 4C 4C 4F 57 29 3B |HT_RED, YELLOW);|
00000850: 0D 50 41 55 53 45 20 28 35 30 30 29 3B 0D 89 3B |.PAUSE (500);..;|
00000860: 0D 0D 86 42 49 54 4D 41 50 5F 44 45 4D 4F 3B 0D |...BITMAP_DEMO;.|
00000870: 28 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |(***************|
00000880: 2A 2A 2A 2A 2A 29 0D 88 0D 9A 49 20 3A 3D 20 31 |*****)....I := 1|
00000890: 20 9B 38 20 97 0D 10 82 DF 28 49 2C 20 41 43 54 | .8 .....(I, ACT|
000008A0: 49 56 45 2C 20 4F 46 46 29 3B 0D 0D 9D 28 AB 28 |IVE, OFF);...(.(|
000008B0: 48 4F 4D 45 29 29 3B 0D 53 45 54 5F 43 4F 4C 4F |HOME));.SET_COLO|
000008C0: 55 52 53 20 28 52 45 44 2C 20 59 45 4C 4C 4F 57 |URS (RED, YELLOW|
000008D0: 29 3B 0D FF 28 22 20 20 20 20 20 20 20 20 C2 C9 |);..(" ..|
000008E0: D4 20 CD C1 D0 20 C7 D2 C1 D0 C8 C9 C3 D3 22 29 |. ... ........")|
000008F0: 3B 0D FF 28 22 20 20 20 20 20 20 20 20 B8 B8 B8 |;..(" ...|
00000900: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 29 3B |.............");|
00000910: 0D 53 4C 4F 57 3B 0D 9D 28 22 C7 2D D0 41 53 43 |.SLOW;..(".-.ASC|
00000920: 41 4C 20 53 55 50 50 4F 52 54 53 20 42 49 54 2D |AL SUPPORTS BIT-|
00000930: 4D 41 50 50 45 44 22 29 3B 0D 53 4C 4F 57 3B 0D |MAPPED");.SLOW;.|
00000940: 9D 28 22 28 48 49 47 48 2D 52 45 53 4F 4C 55 54 |.("(HIGH-RESOLUT|
00000950: 49 4F 4E 29 20 47 52 41 50 48 49 43 53 20 57 49 |ION) GRAPHICS WI|
00000960: 54 48 20 54 48 45 22 29 3B 0D 53 4C 4F 57 3B 0D |TH THE");.SLOW;.|
00000970: 9D 28 22 D0 CC CF D4 20 43 4F 4D 4D 41 4E 44 20 |.(".... COMMAND |
00000980: 57 48 49 43 48 20 41 4C 4C 4F 57 53 20 50 4F 49 |WHICH ALLOWS POI|
00000990: 4E 54 53 20 54 4F 22 29 3B 0D 53 4C 4F 57 3B 0D |NTS TO");.SLOW;.|
000009A0: 9D 28 22 42 45 20 45 41 53 49 4C 59 20 50 4C 4F |.("BE EASILY PLO|
000009B0: 54 54 45 44 20 49 4E 20 42 49 54 2D 4D 41 50 20 |TTED IN BIT-MAP |
000009C0: 4D 4F 44 45 22 29 3B 0D 53 4C 4F 57 3B 0D FF 3B |MODE");.SLOW;..;|
000009D0: 20 FF 3B 0D FF 28 22 D7 41 54 43 48 20 54 48 49 | .;..(".ATCH THI|
000009E0: 53 20 2E 2E 2E 22 29 3B 0D FF 3B 0D 50 41 55 53 |S ...");..;.PAUS|
000009F0: 45 20 28 32 30 30 29 3B 0D E2 28 42 4F 52 44 45 |E (200);..(BORDE|
00000A00: 52 2C 20 42 4C 41 43 4B 2C 20 42 41 43 4B 47 4E |R, BLACK, BACKGN|
00000A10: 44 2C 20 42 4C 41 43 4B 2C 0D 10 88 44 49 53 50 |D, BLACK,...DISP|
00000A20: 4C 41 59 53 43 52 45 45 4E 2C 20 4F 46 46 2C 0D |LAYSCREEN, OFF,.|
00000A30: 10 88 4D 55 4C 54 49 43 4F 4C 4F 55 52 2C 20 4F |..MULTICOLOUR, O|
00000A40: 4E 2C 0D 10 88 42 49 54 4D 41 50 2C 20 4F 4E 2C |N,...BITMAP, ON,|
00000A50: 0D 10 88 43 48 41 52 47 45 4E 42 41 53 45 2C 20 |...CHARGENBASE, |
00000A60: 34 29 3B 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D |4);..(.(HOME));.|
00000A70: E2 28 43 48 41 52 43 4F 4C 4F 55 52 2C 20 4C 49 |.(CHARCOLOUR, LI|
00000A80: 47 48 54 5F 47 52 45 45 4E 29 3B 0D 9A 49 20 3A |GHT_GREEN);..I :|
00000A90: 3D 20 31 20 9B 31 30 30 10 82 97 0D 10 83 9D 28 |= 1 .100.......(|
00000AA0: 22 20 20 20 20 20 20 20 20 20 20 22 29 3B 0D A8 |" ");..|
00000AB0: 28 42 4C 55 45 2C 20 42 52 4F 57 4E 29 3B 0D E2 |(BLUE, BROWN);..|
00000AC0: 28 44 49 53 50 4C 41 59 53 43 52 45 45 4E 2C 20 |(DISPLAYSCREEN, |
00000AD0: 4F 4E 29 3B 0D 9A 49 20 3A 3D 20 31 20 9B 34 20 |ON);..I := 1 .4 |
00000AE0: 97 0D 88 0D 10 82 F7 28 49 2C 20 37 2C 20 33 32 |.......(I, 7, 32|
00000AF0: 2C 20 33 33 2C 20 33 34 2C 20 33 33 29 3B 0D 10 |, 33, 34, 33);..|
00000B00: 82 DF 28 49 2C 20 45 58 50 41 4E 44 58 2C 20 4F |..(I, EXPANDX, O|
00000B10: 46 46 2C 0D 10 8A 49 2C 20 45 58 50 41 4E 44 59 |FF,...I, EXPANDY|
00000B20: 2C 20 4F 46 46 29 3B 0D 10 82 F4 28 49 2C 32 30 |, OFF);....(I,20|
00000B30: 2C 34 30 2C 36 30 20 2A 20 49 2C 34 30 2C 0D 10 |,40,60 * I,40,..|
00000B40: 8E 31 30 30 30 20 2F 20 49 29 3B 0D 89 3B 0D 9A |.1000 / I);..;..|
00000B50: 49 20 3A 3D 20 31 20 9B 31 35 37 20 97 0D 88 0D |I := 1 .157 ....|
00000B60: 10 82 A6 28 31 2C 20 49 2C 20 49 29 3B 0D 10 82 |...(1, I, I);...|
00000B70: A6 28 31 2C 20 49 2C 20 49 20 2B 20 31 29 3B 0D |.(1, I, I + 1);.|
00000B80: 10 82 A6 28 31 2C 20 49 2C 20 49 20 2B 20 32 29 |...(1, I, I + 2)|
00000B90: 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 35 37 20 9C |;..;..I := 157 .|
00000BA0: 31 20 97 0D 88 0D 10 84 A6 28 32 2C 20 49 2C 20 |1 .......(2, I, |
00000BB0: 31 35 39 20 2D 20 49 29 3B 0D 10 84 A6 28 32 2C |159 - I);....(2,|
00000BC0: 20 49 2C 20 31 35 38 20 2D 20 49 29 3B 0D 10 84 | I, 158 - I);...|
00000BD0: A6 28 32 2C 20 49 2C 20 31 35 37 20 2D 20 49 29 |.(2, I, 157 - I)|
00000BE0: 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 20 9B 31 35 |;..;..I := 1 .15|
00000BF0: 39 20 97 0D 88 0D 10 82 A6 28 33 2C 20 31 2C 20 |9 .......(3, 1, |
00000C00: 49 29 3B 0D 10 82 A6 28 33 2C 20 32 2C 20 49 29 |I);....(3, 2, I)|
00000C10: 3B 0D 10 82 A6 28 33 2C 20 31 35 38 2C 20 49 29 |;....(3, 158, I)|
00000C20: 3B 0D 10 82 A6 28 33 2C 20 31 35 39 2C 20 49 29 |;....(3, 159, I)|
00000C30: 3B 0D 89 3B 0D 9A 49 20 3A 3D 20 31 20 9B 31 35 |;..;..I := 1 .15|
00000C40: 39 20 97 0D 88 0D 10 82 A6 28 33 2C 20 49 2C 20 |9 .......(3, I, |
00000C50: 31 29 3B 0D 10 82 A6 28 33 2C 20 49 2C 20 32 29 |1);....(3, I, 2)|
00000C60: 3B 0D 10 82 A6 28 33 2C 20 49 2C 20 31 35 38 29 |;....(3, I, 158)|
00000C70: 3B 0D 10 82 A6 28 33 2C 20 49 2C 20 31 35 39 29 |;....(3, I, 159)|
00000C80: 3B 0D 89 3B 0D 98 99 90 F3 28 31 29 3B 0D 9A 49 |;..;.....(1);..I|
00000C90: 20 3A 3D 20 31 20 9B 34 20 97 0D 10 82 DF 28 49 | := 1 .4 .....(I|
00000CA0: 2C 20 41 43 54 49 56 45 2C 20 4F 46 46 29 3B 0D |, ACTIVE, OFF);.|
00000CB0: E2 28 44 49 53 50 4C 41 59 53 43 52 45 45 4E 2C |.(DISPLAYSCREEN,|
00000CC0: 4F 46 46 2C 0D 10 8A 42 4F 52 44 45 52 2C 20 52 |OFF,...BORDER, R|
00000CD0: 45 44 2C 0D 10 8A 42 41 43 4B 47 4E 44 2C 20 52 |ED,...BACKGND, R|
00000CE0: 45 44 2C 0D 10 8A 42 49 54 4D 41 50 2C 20 4F 46 |ED,...BITMAP, OF|
00000CF0: 46 2C 0D 10 8A 4D 55 4C 54 49 43 4F 4C 4F 55 52 |F,...MULTICOLOUR|
00000D00: 2C 20 4F 46 46 2C 0D 10 8A 43 48 41 52 47 45 4E |, OFF,...CHARGEN|
00000D10: 42 41 53 45 2C 20 33 29 3B 0D 89 3B 0D 0D 86 53 |BASE, 3);..;...S|
00000D20: 4F 55 4E 44 5F 44 45 4D 4F 3B 0D 28 2A 2A 2A 2A |OUND_DEMO;.(****|
00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 29 |***************)|
00000D40: 0D 88 0D 9D 28 AB 28 48 4F 4D 45 29 29 3B 0D E2 |....(.(HOME));..|
00000D50: 28 44 49 53 50 4C 41 59 53 43 52 45 45 4E 2C 20 |(DISPLAYSCREEN, |
00000D60: 4F 4E 29 3B 0D 53 45 54 5F 43 4F 4C 4F 55 52 53 |ON);.SET_COLOURS|
00000D70: 20 28 52 45 44 2C 20 59 45 4C 4C 4F 57 29 3B 0D | (RED, YELLOW);.|
00000D80: 0D FF 28 22 20 20 20 20 20 20 20 20 20 20 20 D3 |..(" .|
00000D90: CF D5 CE C4 20 C5 C6 C6 C5 C3 D4 D3 22 29 3B 0D |.... .......");.|
00000DA0: FF 28 22 20 20 20 20 20 20 20 20 20 20 20 B8 B8 |.(" ..|
00000DB0: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 22 29 3B 0D 53 |...........");.S|
00000DC0: 4C 4F 57 3B 0D 9D 28 22 C7 2D D0 41 53 43 41 4C |LOW;..(".-.ASCAL|
00000DD0: 20 50 52 4F 56 49 44 45 53 20 45 58 54 45 4E 53 | PROVIDES EXTENS|
00000DE0: 49 56 45 20 53 55 50 50 4F 52 54 20 46 4F 52 22 |IVE SUPPORT FOR"|
00000DF0: 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 54 48 45 20 |);.SLOW;..("THE |
00000E00: D3 C9 C4 20 43 48 49 50 20 28 D3 4F 55 4E 44 20 |... CHIP (.OUND |
00000E10: C9 4E 54 45 52 46 41 43 45 20 C4 45 56 49 43 45 |.NTERFACE .EVICE|
00000E20: 29 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 49 4E |)");.SLOW;..("IN|
00000E30: 20 59 4F 55 52 20 C3 4F 4D 4D 4F 44 4F 52 45 20 | YOUR .OMMODORE |
00000E40: 36 34 2E 20 D4 48 45 20 41 54 54 52 49 42 55 54 |64. .HE ATTRIBUT|
00000E50: 45 53 20 4F 46 22 29 3B 0D 53 4C 4F 57 3B 0D 9D |ES OF");.SLOW;..|
00000E60: 28 22 45 41 43 48 20 49 4E 44 49 56 49 44 55 41 |("EACH INDIVIDUA|
00000E70: 4C 20 56 4F 49 43 45 20 41 52 45 20 45 41 53 49 |L VOICE ARE EASI|
00000E80: 4C 59 22 29 3B 0D 53 4C 4F 57 3B 0D 9D 28 22 43 |LY");.SLOW;..("C|
00000E90: 4F 4E 54 52 4F 4C 4C 45 44 2C 20 41 53 20 57 45 |ONTROLLED, AS WE|
00000EA0: 4C 4C 20 41 53 20 54 48 45 20 56 41 52 49 4F 55 |LL AS THE VARIOU|
00000EB0: 53 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 46 49 |S");.SLOW;..("FI|
00000EC0: 4C 54 45 52 49 4E 47 20 41 4E 44 20 53 50 45 43 |LTERING AND SPEC|
00000ED0: 49 41 4C 20 45 46 46 45 43 54 53 2E 22 29 3B 0D |IAL EFFECTS.");.|
00000EE0: 53 4C 4F 57 3B 0D 9D 28 22 D4 55 52 4E 20 55 50 |SLOW;..(".URN UP|
00000EF0: 20 54 48 45 20 56 4F 4C 55 4D 45 20 4E 4F 57 20 | THE VOLUME NOW |
00000F00: 54 4F 20 48 45 41 52 20 41 20 53 41 4D 50 4C 45 |TO HEAR A SAMPLE|
00000F10: 22 29 3B 0D 53 4C 4F 57 3B 0D FF 28 22 4F 46 20 |");.SLOW;..("OF |
00000F20: 49 54 20 49 4E 20 4F 50 45 52 41 54 49 4F 4E 20 |IT IN OPERATION |
00000F30: 2E 2E 2E 2E 2E 22 29 3B 0D 53 4C 4F 57 3B 0D FF |.....");.SLOW;..|
00000F40: 3B 0D 54 55 4E 45 3B 0D 89 3B 0D 0D 0D 28 2A 2D |;.TUNE;..;...(*-|
00000F50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000F60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2A 29 |--------------*)|
00000F70: 0D 88 20 28 2A 10 82 4D 41 49 4E 20 50 52 4F 47 |.. (*..MAIN PROG|
00000F80: 52 41 4D 10 82 2A 29 0D 98 0D 10 83 49 4E 49 54 |RAM..*).....INIT|
00000F90: 3B 0D 10 83 42 52 49 4E 47 5F 50 41 53 43 41 4C |;...BRING_PASCAL|
00000FA0: 3B 0D 10 83 50 41 47 45 31 3B 0D 10 83 50 41 47 |;...PAGE1;...PAG|
00000FB0: 45 32 3B 0D 10 83 50 41 47 45 33 3B 0D 10 83 42 |E2;...PAGE3;...B|
00000FC0: 49 54 4D 41 50 5F 44 45 4D 4F 3B 0D 10 83 53 4F |ITMAP_DEMO;...SO|
00000FD0: 55 4E 44 5F 44 45 4D 4F 3B 0D 99 46 41 4C 53 45 |UND_DEMO;..FALSE|
00000FE0: 3B 0D 89 2E 0D 00 00 00 4E A9 FE 29 24 C9 7C 0E |;.......N..)$.|.|
00000FF0: 20 2F 20 0A BE 0C 6D C6 19 | / ...m.. |
....... ***********************.=.... *
RANDOM FILE EXAMPLE *.[.... ************
***********.|....I$(664):FD.0:FX.5:CH.2:
FP.1......"...FFFFFFFFFFFFFFFFFFFFFF"...
..." INSERT DATA SHEET".U...."DDDDDDDDD
DDDDDDDDDDDD"......".. START PRESS 'S
'"......P$:.P$.."S".26.#....15,8,15,"I0"
:.2,8,2,"#".C...."..FFFFFFFFFFFFFFFFFFFF
FF"._. .."INDEX FILE OPERATION".}.".."DD
DDDDDDDDDDDDDDDDDDDD"...$..". NEW SH
EET? N...";O$:.""...&..O$."N".46...(..O$
.."Y".36...*..:." WAIT!":.I.1.664...,
..".................... .);...("* SM
OOTH SCROLLING");.FANCY;..("* COLLISION
DETECTION");.FANCY;..("* ANIMATION");.
.....(2);..I := 1 .8 .....I <> 2 ....MOV
E_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, 4
00);....(8) = 0;..I := 1 .8 .....(I, ACT
IVE, OFF);.SET_COLOURS (ORANGE, RED);..;
...PAGE2;.(**************)....(.(HOME));
..(" SPRITES");....("
.......");.SLOW;..("SPRITES CA
N EASILY BE DEFINED USING THE");.SLOW;..
("DEFINESPRITE COMMAND.");.SLOW;..("THEY
CAN BE MOVED AUTOMATICALLY FROM");.SLOW
;..("PLACE TO PLACE USING THE MOVESPRITE
");.SLOW;..("COMMAND.");.SLOW;..("THEY C
AN 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,
ACTIVE, OFF);..("SPRITES CAN BE EASILY
EXPANDED IN THE");.SLOW;..("X AND Y DIRE
CTIONS. THEY CAN BE PLACED");.SLOW;..("I
N FRONT OF OR BEHIND THE BACKGROUND.");.
SLOW;..("YOU CAN EASILY ESTABLISH A SPRI
TE'S");.SLOW;..("CURRENT POSITION ON THE
SCREEN, AND");.SLOW;..("WHETHER OR NOT
IT IS MOVING.");.PAUSE (500);..;...PAGE3
;.(**************)....(.(HOME));..("
SPRITES");....("
......."); SLOW;..("G-PASCAL CAN AUTOM
ATICALLY STOP TWO");.SLOW;..("SPRITES TH
E INSTANT THAT THEY COLLIDE,");.SLOW;..(
"LIKE THIS ... ");..(3);..I := 1 .2 ....
.(I, COLOUR, RED,...I, POINTIT, 128,...I
, EXPANDX, ON,...I, EXPANDY, ON);..(1, 0
, 150, 256, 0, 370);..(2, 390, 150, -256
, 0, 370);....;.SET_COLOURS (LIGHT_RED,
YELLOW);.PAUSE (500);..;...BITMAP_DEMO;.
(********************)....I := 1 .8 ....
.(I, ACTIVE, OFF);...(.(HOME));.SET_COLO
URS (RED, YELLOW);..(" BIT MAP GR
APHICS");..(" ................");
.SLOW;..("G-PASCAL SUPPORTS BIT-MAPPED")
;.SLOW;..("(HIGH-RESOLUTION) GRAPHICS WI
TH THE");.SLOW;..("PLOT COMMAND WHICH AL
LOWS POINTS TO");.SLOW;..("BE EASILY PLO
TTED IN BIT-MAP MODE");.SLOW;..; .;..("W
ATCH THIS ...");..;.PAUSE (200);..(BORDE
R, BLACK, BACKGND, BLACK,...DISPLAYSCREE
N, OFF,...MULTICOLOUR, ON,...BITMAP, ON,
...CHARGENBASE, 4);..(.(HOME));..(CHARCO
LOUR, LIGHT_GREEN);..I := 1 .100.......(
" ");..(BLUE, BROWN);..(DISPLAY
SCREEN, 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, 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, R
ED,...BACKGND, RED,...BITMAP, OFF,...MUL
TICOLOUR, OFF,...CHARGENBASE, 3);..;...S
OUND_DEMO;.(*******************)....(.(H
OME));..(DISPLAYSCREEN, ON);.SET_COLOURS
(RED, YELLOW);...(" SOUND EFF
ECTS");..(" .............");.S
LOW;..("G-PASCAL PROVIDES EXTENSIVE SUPP
ORT FOR");.SLOW;..("THE SID CHIP (SOUND
INTERFACE DEVICE)");.SLOW;..("IN YOUR CO
MMODORE 64. THE ATTRIBUTES OF");.SLOW;..
("EACH INDIVIDUAL VOICE ARE EASILY");.SL
OW;..("CONTROLLED, AS WELL AS THE VARIOU
S");.SLOW;..("FILTERING AND SPECIAL EFFE
CTS.");.SLOW;..("TURN UP THE VOLUME NOW
TO HEAR A SAMPLE");.SLOW;..("OF IT IN OP
ERATION .....");.SLOW;..;.TUNE;..;...(*-
------------------------------*).. (*..M
AIN PROGRAM..*).....INIT;...BRING_PASCAL
;...PAGE1;...PAGE2;...PAGE3;...BITMAP_DE
MO;...SOUND_DEMO;..FALSE;.......N..)$I|.
/ ...MF.
> CLICK IMAGE PREVIEW FOR FULL MODAL