DINOSAURS.LOGO
FILE INFORMATION
FILENAME(S): DINOSAURS.LOGO
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-10-19 22:48:23
APPEARS ON: 6 disk(s)
FILE HASH
e7a98a50e90d92da078cebb12d9c0ff36444287ae86281d13b55efc383b4646c
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES DISK | DINOSAURS.LOGO | PRG | Radd Maxx | 23 | 2 | DOWNLOAD FILE |
| COMMODORE LOGO | DINOSAURS.LOGO | PRG | High Voltage Complete C64 Collection | 8 | 5 | DOWNLOAD FILE |
| LOGO | DINOSAURS.LOGO | PRG | Curtcool, LPN | 27 | 16 | DOWNLOAD FILE |
| BLACKSOFT 025 A | DINOSAURS.LOGO | PRG | DuncanTwain | 27 | 16 | DOWNLOAD FILE |
| HENNIE 521 | DINOSAURS.LOGO | PRG | DuncanTwain | 23 | 2 | DOWNLOAD FILE |
| TIGA | DINOSAURS.LOGO | PRG | DuncanTwain | 30 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 44 45 4D 4F 0D 20 52 45 41 44 20 |. TO DEMO. READ | 00000010: 22 53 50 52 49 54 45 53 0D 20 52 45 41 44 20 22 |"SPRITES. READ "| 00000020: 41 4E 49 4D 41 4C 53 0D 20 45 41 43 48 20 5B 30 |ANIMALS. EACH [0| 00000030: 20 34 20 35 20 36 20 37 5D 20 5B 48 54 5D 0D 20 | 4 5 6 7] [HT]. | 00000040: 45 41 43 48 20 5B 31 20 32 20 33 5D 20 5B 53 45 |EACH [1 2 3] [SE| 00000050: 54 53 48 41 50 45 20 31 20 50 55 5D 0D 20 54 45 |TSHAPE 1 PU]. TE| 00000060: 4C 4C 20 33 20 42 49 47 58 20 42 49 47 59 0D 20 |LL 3 BIGX BIGY. | 00000070: 54 45 4C 4C 20 32 20 53 4D 41 4C 4C 58 20 42 49 |TELL 2 SMALLX BI| 00000080: 47 59 0D 20 54 45 4C 4C 20 31 20 53 4D 41 4C 4C |GY. TELL 1 SMALL| 00000090: 58 20 53 4D 41 4C 4C 59 0D 20 53 54 52 4F 4C 4C |X SMALLY. STROLL| 000000A0: 44 45 4D 4F 0D 45 4E 44 0D 0D 54 4F 20 53 54 52 |DEMO.END..TO STR| 000000B0: 4F 4C 4C 44 45 4D 4F 0D 20 49 46 20 52 43 3F 20 |OLLDEMO. IF RC? | 000000C0: 54 48 45 4E 20 53 50 4C 49 54 53 43 52 45 45 4E |THEN SPLITSCREEN| 000000D0: 20 53 54 4F 50 20 45 4C 53 45 20 53 54 52 4F 4C | STOP ELSE STROL| 000000E0: 4C 0D 20 53 54 52 4F 4C 4C 44 45 4D 4F 0D 45 4E |L. STROLLDEMO.EN| 000000F0: 44 0D 0D 54 4F 20 53 54 52 4F 4C 4C 0D 20 54 45 |D..TO STROLL. TE| 00000100: 4C 4C 20 33 20 50 45 4E 43 4F 4C 4F 52 20 35 20 |LL 3 PENCOLOR 5 | 00000110: 53 45 54 58 59 20 36 30 20 32 31 0D 20 54 45 4C |SETXY 60 21. TEL| 00000120: 4C 20 32 20 50 45 4E 43 4F 4C 4F 52 20 39 20 53 |L 2 PENCOLOR 9 S| 00000130: 45 54 58 59 20 31 30 30 20 32 31 0D 20 54 45 4C |ETXY 100 21. TEL| 00000140: 4C 20 31 20 50 45 4E 43 4F 4C 4F 52 20 38 20 53 |L 1 PENCOLOR 8 S| 00000150: 45 54 58 59 20 31 33 30 20 30 0D 20 45 41 43 48 |ETXY 130 0. EACH| 00000160: 20 5B 31 20 32 20 33 5D 20 5B 53 45 54 48 20 30 | [1 2 3] [SETH 0| 00000170: 20 53 54 5D 0D 20 53 43 45 4E 45 52 59 0D 20 52 | ST]. SCENERY. R| 00000180: 45 50 45 41 54 20 34 20 5B 54 45 4C 4C 20 33 20 |EPEAT 4 [TELL 3 | 00000190: 43 4C 55 4E 4B 20 31 20 54 45 4C 4C 20 32 20 43 |CLUNK 1 TELL 2 C| 000001A0: 4C 55 4E 4B 20 31 20 54 45 4C 4C 20 31 20 53 4B |LUNK 1 TELL 1 SK| 000001B0: 49 50 20 33 5D 20 53 45 54 58 20 2D 20 33 35 0D |IP 3] SETX - 35.| 000001C0: 20 54 45 4C 4C 20 33 20 45 41 54 0D 20 54 45 4C | TELL 3 EAT. TEL| 000001D0: 4C 20 32 20 53 45 54 58 20 2D 20 36 35 20 45 41 |L 2 SETX - 65 EA| 000001E0: 54 0D 20 54 45 4C 4C 20 31 20 45 41 54 0D 45 4E |T. TELL 1 EAT.EN| 000001F0: 44 0D 0D 54 4F 20 53 43 45 4E 45 52 59 0D 20 42 |D..TO SCENERY. B| 00000200: 41 43 4B 47 52 4F 55 4E 44 20 31 20 54 45 4C 4C |ACKGROUND 1 TELL| 00000210: 20 30 20 50 55 20 48 54 20 50 45 4E 43 4F 4C 4F | 0 PU HT PENCOLO| 00000220: 52 20 35 0D 20 53 45 54 58 59 20 2D 20 31 33 30 |R 5. SETXY - 130| 00000230: 20 28 20 2D 20 32 30 20 29 20 53 45 54 48 20 30 | ( - 20 ) SETH 0| 00000240: 0D 20 50 44 20 54 52 45 45 20 32 35 20 50 55 0D |. PD TREE 25 PU.| 00000250: 20 52 54 20 39 30 20 46 44 20 34 35 20 4C 54 20 | RT 90 FD 45 LT | 00000260: 39 30 0D 20 50 44 20 54 52 45 45 20 32 35 20 50 |90. PD TREE 25 P| 00000270: 55 0D 20 52 54 20 39 30 20 46 44 20 34 30 20 4C |U. RT 90 FD 40 L| 00000280: 54 20 39 30 0D 20 50 44 20 54 52 45 45 20 31 35 |T 90. PD TREE 15| 00000290: 20 50 55 0D 45 4E 44 0D 0D 54 4F 20 43 4C 55 4E | PU.END..TO CLUN| 000002A0: 4B 20 3A 4E 0D 20 4C 54 20 38 30 0D 20 52 45 50 |K :N. LT 80. REP| 000002B0: 45 41 54 20 3A 4E 20 5B 46 44 20 32 32 20 53 48 |EAT :N [FD 22 SH| 000002C0: 41 4B 45 20 32 20 4C 54 20 32 30 20 46 44 20 32 |AKE 2 LT 20 FD 2| 000002D0: 32 20 53 48 41 4B 45 20 32 20 52 54 20 32 30 5D |2 SHAKE 2 RT 20]| 000002E0: 0D 20 52 54 20 38 30 0D 45 4E 44 0D 0D 54 4F 20 |. RT 80.END..TO | 000002F0: 53 4B 49 50 20 3A 4E 0D 20 4C 54 20 37 30 0D 20 |SKIP :N. LT 70. | 00000300: 52 45 50 45 41 54 20 3A 4E 20 5B 46 44 20 31 35 |REPEAT :N [FD 15| 00000310: 20 4C 54 20 34 30 20 46 44 20 33 30 20 52 54 20 | LT 40 FD 30 RT | 00000320: 34 30 20 46 44 20 31 35 20 52 45 50 45 41 54 20 |40 FD 15 REPEAT | 00000330: 33 20 5B 52 54 20 52 41 4E 44 4F 4D 20 33 36 30 |3 [RT RANDOM 360| 00000340: 20 46 44 20 52 41 4E 44 4F 4D 20 32 30 5D 20 53 | FD RANDOM 20] S| 00000350: 45 54 48 20 32 39 30 20 53 45 54 59 20 31 30 20 |ETH 290 SETY 10 | 00000360: 42 4B 20 31 35 20 52 54 20 34 30 20 42 4B 20 31 |BK 15 RT 40 BK 1| 00000370: 35 20 4C 54 20 34 30 5D 0D 20 52 54 20 37 30 0D |5 LT 40]. RT 70.| 00000380: 45 4E 44 0D 0D 54 4F 20 45 41 54 0D 20 53 45 54 |END..TO EAT. SET| 00000390: 48 20 30 20 52 45 50 45 41 54 20 36 20 5B 46 44 |H 0 REPEAT 6 [FD| 000003A0: 20 31 30 20 52 54 20 39 30 20 46 44 20 31 30 20 | 10 RT 90 FD 10 | 000003B0: 42 4B 20 31 30 20 4C 54 20 39 30 20 42 4B 20 31 |BK 10 LT 90 BK 1| 000003C0: 30 5D 0D 45 4E 44 0D 0D 54 4F 20 53 48 41 4B 45 |0].END..TO SHAKE| 000003D0: 20 3A 4E 0D 20 52 45 50 45 41 54 20 3A 4E 20 5B | :N. REPEAT :N [| 000003E0: 46 44 20 31 20 42 4B 20 31 5D 0D 45 4E 44 0D 0D |FD 1 BK 1].END..| 000003F0: 54 4F 20 54 4F 50 20 3A 53 49 5A 45 0D 20 49 46 |TO TOP :SIZE. IF| 00000400: 20 3A 53 49 5A 45 20 3C 20 37 20 53 54 4F 50 0D | :SIZE < 7 STOP.| 00000410: 20 4C 54 20 32 35 0D 20 46 44 20 3A 53 49 5A 45 | LT 25. FD :SIZE| 00000420: 0D 20 54 4F 50 20 3A 53 49 5A 45 20 2A 20 30 2E |. TOP :SIZE * 0.| 00000430: 36 35 0D 20 42 4B 20 3A 53 49 5A 45 0D 20 52 54 |65. BK :SIZE. RT| 00000440: 20 35 30 20 46 44 20 3A 53 49 5A 45 0D 20 54 4F | 50 FD :SIZE. TO| 00000450: 50 20 3A 53 49 5A 45 20 2A 20 30 2E 36 35 0D 20 |P :SIZE * 0.65. | 00000460: 42 4B 20 3A 53 49 5A 45 0D 20 4C 54 20 32 35 0D |BK :SIZE. LT 25.| 00000470: 45 4E 44 0D 0D 54 4F 20 54 52 45 45 20 3A 53 49 |END..TO TREE :SI| 00000480: 5A 45 0D 20 50 44 20 46 44 20 3A 53 49 5A 45 20 |ZE. PD FD :SIZE | 00000490: 54 4F 50 20 3A 53 49 5A 45 20 42 4B 20 3A 53 49 |TOP :SIZE BK :SI| 000004A0: 5A 45 20 50 55 0D 45 4E 44 0D 0D 4D 41 4B 45 20 |ZE PU.END..MAKE | 000004B0: 22 53 54 41 52 54 55 50 20 5B 44 45 4D 4F 5D 0D |"STARTUP [DEMO].|
. TO DEMO. READ "SPRITES. READ "ANIMALS. EACH [0 4 5 6 7] [HT]. EACH [1 2 3] [SE TSHAPE 1 PU]. TELL 3 BIGX BIGY. TELL 2 S MALLX BIGY. TELL 1 SMALLX SMALLY. STROLL DEMO.END..TO STROLLDEMO. IF RC? THEN SPL ITSCREEN STOP ELSE STROLL. STROLLDEMO.EN D..TO STROLL. TELL 3 PENCOLOR 5 SETXY 60 21. TELL 2 PENCOLOR 9 SETXY 100 21. TEL L 1 PENCOLOR 8 SETXY 130 0. EACH [1 2 3] [SETH 0 ST]. SCENERY. REPEAT 4 [TELL 3 CLUNK 1 TELL 2 CLUNK 1 TELL 1 SKIP 3] SE TX - 35. TELL 3 EAT. TELL 2 SETX - 65 EA T. TELL 1 EAT.END..TO SCENERY. BACKGROUN D 1 TELL 0 PU HT PENCOLOR 5. SETXY - 130 ( - 20 ) SETH 0. PD TREE 25 PU. RT 90 F D 45 LT 90. PD TREE 25 PU. RT 90 FD 40 L T 90. PD TREE 15 PU.END..TO CLUNK :N. LT 80. REPEAT :N [FD 22 SHAKE 2 LT 20 FD 2 2 SHAKE 2 RT 20]. RT 80.END..TO SKIP :N. LT 70. REPEAT :N [FD 15 LT 40 FD 30 RT 40 FD 15 REPEAT 3 [RT RANDOM 360 FD RAND OM 20] SETH 290 SETY 10 BK 15 RT 40 BK 1 5 LT 40]. RT 70.END..TO EAT. SETH 0 REPE AT 6 [FD 10 RT 90 FD 10 BK 10 LT 90 BK 1 0].END..TO SHAKE :N. REPEAT :N [FD 1 BK 1].END..TO TOP :SIZE. IF :SIZE < 7 STOP. LT 25. FD :SIZE. TOP :SIZE * 0.65. BK : SIZE. RT 50 FD :SIZE. TOP :SIZE * 0.65. BK :SIZE. LT 25.END..TO TREE :SIZE. PD F D :SIZE TOP :SIZE BK :SIZE PU.END..MAKE "STARTUP [DEMO].
> CLICK IMAGE PREVIEW FOR FULL MODAL