LG-SUBMARINE
FILE INFORMATION
FILENAME(S): LG-SUBMARINE
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:14:31
APPEARS ON: 1 disk(s)
FILE HASH
6916e40c68c8bd0c39b79914238424abf44b3d2ef9c80d8780568cb28145ef64
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO FILES | LG-SUBMARINE | PRG | DuncanTwain | 24 | 7 | 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 4C 47 2D 53 50 52 49 54 45 53 0D 20 52 45 41 |"LG-SPRITES. REA| 00000020: 44 20 22 4C 47 2D 56 45 48 49 43 4C 45 53 0D 20 |D "LG-VEHICLES. | 00000030: 45 41 43 48 20 5B 30 20 31 20 32 20 33 20 35 20 |EACH [0 1 2 3 5 | 00000040: 36 20 37 5D 20 5B 48 54 5D 0D 20 54 45 4C 4C 20 |6 7] [HT]. TELL | 00000050: 3A 53 55 42 4D 41 52 49 4E 45 0D 20 46 55 4C 4C |:SUBMARINE. FULL| 00000060: 53 43 52 45 45 4E 0D 20 53 55 42 4D 41 52 49 4E |SCREEN. SUBMARIN| 00000070: 45 44 45 4D 4F 0D 45 4E 44 0D 0D 54 4F 20 53 55 |EDEMO.END..TO SU| 00000080: 42 4D 41 52 49 4E 45 44 45 4D 4F 0D 20 53 50 49 |BMARINEDEMO. SPI| 00000090: 52 41 4C 0D 20 49 46 20 52 43 3F 20 54 48 45 4E |RAL. IF RC? THEN| 000000A0: 20 53 50 4C 49 54 53 43 52 45 45 4E 20 53 54 4F | SPLITSCREEN STO| 000000B0: 50 20 45 4C 53 45 20 53 55 42 4D 41 52 49 4E 45 |P ELSE SUBMARINE| 000000C0: 44 45 4D 4F 0D 45 4E 44 0D 0D 54 4F 20 53 50 49 |DEMO.END..TO SPI| 000000D0: 52 41 4C 0D 20 42 41 43 4B 47 52 4F 55 4E 44 20 |RAL. BACKGROUND | 000000E0: 36 20 50 45 4E 43 4F 4C 4F 52 20 37 0D 20 50 55 |6 PENCOLOR 7. PU| 000000F0: 20 48 54 20 53 45 54 48 20 30 20 48 4F 4D 45 20 | HT SETH 0 HOME | 00000100: 53 4D 41 4C 4C 58 20 53 4D 41 4C 4C 59 20 53 54 |SMALLX SMALLY ST| 00000110: 0D 20 45 58 50 41 4E 44 20 32 20 31 30 30 0D 20 |. EXPAND 2 100. | 00000120: 52 45 50 45 41 54 20 33 30 20 5B 50 45 4E 43 4F |REPEAT 30 [PENCO| 00000130: 4C 4F 52 20 52 41 4E 44 4F 4D 20 31 36 20 46 44 |LOR RANDOM 16 FD| 00000140: 20 52 41 4E 44 4F 4D 20 31 30 30 20 52 54 20 52 | RANDOM 100 RT R| 00000150: 41 4E 44 4F 4D 20 33 36 30 20 52 41 4E 44 53 49 |ANDOM 360 RANDSI| 00000160: 5A 45 20 42 41 43 4B 47 52 4F 55 4E 44 20 52 41 |ZE BACKGROUND RA| 00000170: 4E 44 4F 4D 20 31 36 5D 0D 20 53 45 54 58 59 20 |NDOM 16]. SETXY | 00000180: 31 32 30 20 30 0D 20 53 4D 41 4C 4C 58 20 53 4D |120 0. SMALLX SM| 00000190: 41 4C 4C 59 20 53 45 54 48 20 30 0D 20 53 54 41 |ALLY SETH 0. STA| 000001A0: 4D 50 43 49 52 43 4C 45 20 31 32 30 0D 20 43 4F |MPCIRCLE 120. CO| 000001B0: 4E 54 52 41 43 54 20 31 30 30 20 32 0D 20 48 4F |NTRACT 100 2. HO| 000001C0: 4D 45 0D 20 52 45 50 45 41 54 20 32 30 20 5B 42 |ME. REPEAT 20 [B| 000001D0: 41 43 4B 47 52 4F 55 4E 44 20 52 41 4E 44 4F 4D |ACKGROUND RANDOM| 000001E0: 20 31 36 20 50 45 4E 43 4F 4C 4F 52 20 52 41 4E | 16 PENCOLOR RAN| 000001F0: 44 4F 4D 20 31 36 5D 0D 20 50 45 4E 43 4F 4C 4F |DOM 16]. PENCOLO| 00000200: 52 20 37 0D 20 43 53 20 52 45 50 45 41 54 20 32 |R 7. CS REPEAT 2| 00000210: 30 20 5B 42 41 43 4B 47 52 4F 55 4E 44 20 52 41 |0 [BACKGROUND RA| 00000220: 4E 44 4F 4D 20 31 36 5D 20 42 41 43 4B 47 52 4F |NDOM 16] BACKGRO| 00000230: 55 4E 44 20 36 0D 45 4E 44 0D 0D 54 4F 20 45 58 |UND 6.END..TO EX| 00000240: 50 41 4E 44 20 3A 53 49 5A 45 20 3A 53 49 5A 45 |PAND :SIZE :SIZE| 00000250: 4D 41 58 0D 20 49 46 20 3A 53 49 5A 45 20 3E 20 |MAX. IF :SIZE > | 00000260: 3A 53 49 5A 45 4D 41 58 20 53 54 4F 50 0D 20 52 |:SIZEMAX STOP. R| 00000270: 45 50 45 41 54 20 34 20 5B 4C 54 55 52 4E 20 3A |EPEAT 4 [LTURN :| 00000280: 53 49 5A 45 5D 0D 20 45 58 50 41 4E 44 20 3A 53 |SIZE]. EXPAND :S| 00000290: 49 5A 45 20 2B 20 31 30 20 3A 53 49 5A 45 4D 41 |IZE + 10 :SIZEMA| 000002A0: 58 0D 45 4E 44 0D 0D 54 4F 20 52 41 4E 44 53 49 |X.END..TO RANDSI| 000002B0: 5A 45 0D 20 4C 4F 43 41 4C 20 22 50 49 43 4B 0D |ZE. LOCAL "PICK.| 000002C0: 20 4D 41 4B 45 20 22 50 49 43 4B 20 49 54 45 4D | MAKE "PICK ITEM| 000002D0: 20 31 20 2B 20 52 41 4E 44 4F 4D 20 34 20 5B 53 | 1 + RANDOM 4 [S| 000002E0: 4D 41 4C 4C 58 20 42 49 47 58 20 53 4D 41 4C 4C |MALLX BIGX SMALL| 000002F0: 59 20 42 49 47 59 5D 0D 20 52 55 4E 20 28 20 4C |Y BIGY]. RUN ( L| 00000300: 49 53 54 20 3A 50 49 43 4B 20 29 0D 45 4E 44 0D |IST :PICK ).END.| 00000310: 0D 54 4F 20 53 54 41 4D 50 43 49 52 43 4C 45 20 |.TO STAMPCIRCLE | 00000320: 3A 53 49 5A 45 0D 20 50 44 20 52 45 50 45 41 54 |:SIZE. PD REPEAT| 00000330: 20 33 36 20 5B 4C 54 20 35 20 53 54 41 4D 50 43 | 36 [LT 5 STAMPC| 00000340: 48 41 52 20 22 2A 20 46 44 20 3A 53 49 5A 45 20 |HAR "* FD :SIZE | 00000350: 2A 20 28 33 2E 31 34 31 35 39 20 2F 20 31 38 29 |* (3.14159 / 18)| 00000360: 20 4C 54 20 35 20 50 45 4E 43 4F 4C 4F 52 20 52 | LT 5 PENCOLOR R| 00000370: 41 4E 44 4F 4D 20 31 36 5D 20 50 55 0D 45 4E 44 |ANDOM 16] PU.END| 00000380: 0D 0D 54 4F 20 43 4F 4E 54 52 41 43 54 20 3A 53 |..TO CONTRACT :S| 00000390: 49 5A 45 20 3A 53 49 5A 45 4D 49 4E 0D 20 49 46 |IZE :SIZEMIN. IF| 000003A0: 20 3A 53 49 5A 45 20 3C 20 3A 53 49 5A 45 4D 49 | :SIZE < :SIZEMI| 000003B0: 4E 20 53 54 4F 50 0D 20 52 45 50 45 41 54 20 34 |N STOP. REPEAT 4| 000003C0: 20 5B 4C 54 55 52 4E 20 3A 53 49 5A 45 5D 0D 20 | [LTURN :SIZE]. | 000003D0: 43 4F 4E 54 52 41 43 54 20 3A 53 49 5A 45 20 2D |CONTRACT :SIZE -| 000003E0: 20 31 30 20 3A 53 49 5A 45 4D 49 4E 0D 45 4E 44 | 10 :SIZEMIN.END| 000003F0: 0D 0D 54 4F 20 4C 54 55 52 4E 20 3A 53 49 5A 45 |..TO LTURN :SIZE| 00000400: 0D 20 4C 54 20 32 34 0D 20 46 44 20 3A 53 49 5A |. LT 24. FD :SIZ| 00000410: 45 0D 20 4C 54 20 32 34 0D 45 4E 44 0D 0D 4D 41 |E. LT 24.END..MA| 00000420: 4B 45 20 22 53 54 41 52 54 55 50 20 5B 44 45 4D |KE "STARTUP [DEM| 00000430: 4F 5D 0D |O]. |
. TO DEMO. READ "LG-SPRITES. READ "LG-VE HICLES. EACH [0 1 2 3 5 6 7] [HT]. TELL :SUBMARINE. FULLSCREEN. SUBMARINEDEMO.EN D..TO SUBMARINEDEMO. SPIRAL. IF RC? THEN SPLITSCREEN STOP ELSE SUBMARINEDEMO.END ..TO SPIRAL. BACKGROUND 6 PENCOLOR 7. PU HT SETH 0 HOME SMALLX SMALLY ST. EXPAND 2 100. REPEAT 30 [PENCOLOR RANDOM 16 FD RANDOM 100 RT RANDOM 360 RANDSIZE BACKG ROUND RANDOM 16]. SETXY 120 0. SMALLX SM ALLY SETH 0. STAMPCIRCLE 120. CONTRACT 1 00 2. HOME. REPEAT 20 [BACKGROUND RANDOM 16 PENCOLOR RANDOM 16]. PENCOLOR 7. CS REPEAT 20 [BACKGROUND RANDOM 16] BACKGRO UND 6.END..TO EXPAND :SIZE :SIZEMAX. IF :SIZE > :SIZEMAX STOP. REPEAT 4 [LTURN : SIZE]. EXPAND :SIZE + 10 :SIZEMAX.END..T O RANDSIZE. LOCAL "PICK. MAKE "PICK ITEM 1 + RANDOM 4 [SMALLX BIGX SMALLY BIGY]. RUN ( LIST :PICK ).END..TO STAMPCIRCLE :SIZE. PD REPEAT 36 [LT 5 STAMPCHAR "* F D :SIZE * (3.14159 / 18) LT 5 PENCOLOR R ANDOM 16] PU.END..TO CONTRACT :SIZE :SIZ EMIN. IF :SIZE < :SIZEMIN STOP. REPEAT 4 [LTURN :SIZE]. CONTRACT :SIZE - 10 :SIZ EMIN.END..TO LTURN :SIZE. LT 24. FD :SIZ E. LT 24.END..MAKE "STARTUP [DEMO].
> CLICK IMAGE PREVIEW FOR FULL MODAL