SUBMARINE.LOGO
FILE INFORMATION
FILENAME(S): SUBMARINE.LOGO
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-11-02 16:30:34
APPEARS ON: 1 disk(s)
FILE HASH
dcc8075333026d122c92669e9920a30af49a13c3cc149f3efb4715764cdaee6c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| NG USERS 11A | SUBMARINE.LOGO | PRG | Treasure Chest - OzzyC64 | 14 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 4C 54 55 52 4E 20 3A 53 49 5A 45 |. TO LTURN :SIZE| 00000010: 0D 20 4C 54 20 32 34 0D 20 46 44 20 3A 53 49 5A |. LT 24. FD :SIZ| 00000020: 45 0D 20 4C 54 20 32 34 0D 45 4E 44 0D 0D 54 4F |E. LT 24.END..TO| 00000030: 20 43 4F 4E 54 52 41 43 54 20 3A 53 49 5A 45 20 | CONTRACT :SIZE | 00000040: 3A 53 49 5A 45 4D 49 4E 0D 20 49 46 20 3A 53 49 |:SIZEMIN. IF :SI| 00000050: 5A 45 20 3C 20 3A 53 49 5A 45 4D 49 4E 20 53 54 |ZE < :SIZEMIN ST| 00000060: 4F 50 0D 20 52 45 50 45 41 54 20 34 20 5B 4C 54 |OP. REPEAT 4 [LT| 00000070: 55 52 4E 20 3A 53 49 5A 45 5D 0D 20 43 4F 4E 54 |URN :SIZE]. CONT| 00000080: 52 41 43 54 20 3A 53 49 5A 45 20 2D 20 31 30 20 |RACT :SIZE - 10 | 00000090: 3A 53 49 5A 45 4D 49 4E 0D 45 4E 44 0D 0D 54 4F |:SIZEMIN.END..TO| 000000A0: 20 53 54 41 4D 50 43 49 52 43 4C 45 20 3A 53 49 | STAMPCIRCLE :SI| 000000B0: 5A 45 0D 20 50 44 20 52 45 50 45 41 54 20 33 36 |ZE. PD REPEAT 36| 000000C0: 20 5B 4C 54 20 35 20 53 54 41 4D 50 43 48 41 52 | [LT 5 STAMPCHAR| 000000D0: 20 22 2A 20 46 44 20 3A 53 49 5A 45 20 2A 20 28 | "* FD :SIZE * (| 000000E0: 33 2E 31 34 31 35 39 20 2F 20 31 38 29 20 4C 54 |3.14159 / 18) LT| 000000F0: 20 35 20 50 45 4E 43 4F 4C 4F 52 20 52 41 4E 44 | 5 PENCOLOR RAND| 00000100: 4F 4D 20 31 36 5D 20 50 55 0D 45 4E 44 0D 0D 54 |OM 16] PU.END..T| 00000110: 4F 20 52 41 4E 44 53 49 5A 45 0D 20 4C 4F 43 41 |O RANDSIZE. LOCA| 00000120: 4C 20 22 50 49 43 4B 0D 20 4D 41 4B 45 20 22 50 |L "PICK. MAKE "P| 00000130: 49 43 4B 20 49 54 45 4D 20 31 20 2B 20 52 41 4E |ICK ITEM 1 + RAN| 00000140: 44 4F 4D 20 34 20 5B 53 4D 41 4C 4C 58 20 42 49 |DOM 4 [SMALLX BI| 00000150: 47 58 20 53 4D 41 4C 4C 59 20 42 49 47 59 5D 0D |GX SMALLY BIGY].| 00000160: 20 52 55 4E 20 28 20 4C 49 53 54 20 3A 50 49 43 | RUN ( LIST :PIC| 00000170: 4B 20 29 0D 45 4E 44 0D 0D 54 4F 20 45 58 50 41 |K ).END..TO EXPA| 00000180: 4E 44 20 3A 53 49 5A 45 20 3A 53 49 5A 45 4D 41 |ND :SIZE :SIZEMA| 00000190: 58 0D 20 49 46 20 3A 53 49 5A 45 20 3E 20 3A 53 |X. IF :SIZE > :S| 000001A0: 49 5A 45 4D 41 58 20 53 54 4F 50 0D 20 52 45 50 |IZEMAX STOP. REP| 000001B0: 45 41 54 20 34 20 5B 4C 54 55 52 4E 20 3A 53 49 |EAT 4 [LTURN :SI| 000001C0: 5A 45 5D 0D 20 45 58 50 41 4E 44 20 3A 53 49 5A |ZE]. EXPAND :SIZ| 000001D0: 45 20 2B 20 31 30 20 3A 53 49 5A 45 4D 41 58 0D |E + 10 :SIZEMAX.| 000001E0: 45 4E 44 0D 0D 54 4F 20 53 50 49 52 41 4C 0D 20 |END..TO SPIRAL. | 000001F0: 42 41 43 4B 47 52 4F 55 4E 44 20 36 20 50 45 4E |BACKGROUND 6 PEN| 00000200: 43 4F 4C 4F 52 20 37 0D 20 50 55 20 48 54 20 53 |COLOR 7. PU HT S| 00000210: 45 54 48 20 30 20 48 4F 4D 45 20 53 4D 41 4C 4C |ETH 0 HOME SMALL| 00000220: 58 20 53 4D 41 4C 4C 59 20 53 54 0D 20 45 58 50 |X SMALLY ST. EXP| 00000230: 41 4E 44 20 32 20 31 30 30 0D 20 52 45 50 45 41 |AND 2 100. REPEA| 00000240: 54 20 33 30 20 5B 50 45 4E 43 4F 4C 4F 52 20 52 |T 30 [PENCOLOR R| 00000250: 41 4E 44 4F 4D 20 31 36 20 46 44 20 52 41 4E 44 |ANDOM 16 FD RAND| 00000260: 4F 4D 20 31 30 30 20 52 54 20 52 41 4E 44 4F 4D |OM 100 RT RANDOM| 00000270: 20 33 36 30 20 52 41 4E 44 53 49 5A 45 20 42 41 | 360 RANDSIZE BA| 00000280: 43 4B 47 52 4F 55 4E 44 20 52 41 4E 44 4F 4D 20 |CKGROUND RANDOM | 00000290: 31 36 5D 0D 20 53 45 54 58 59 20 31 32 30 20 30 |16]. SETXY 120 0| 000002A0: 0D 20 53 4D 41 4C 4C 58 20 53 4D 41 4C 4C 59 20 |. SMALLX SMALLY | 000002B0: 53 45 54 48 20 30 0D 20 53 54 41 4D 50 43 49 52 |SETH 0. STAMPCIR| 000002C0: 43 4C 45 20 31 32 30 0D 20 43 4F 4E 54 52 41 43 |CLE 120. CONTRAC| 000002D0: 54 20 31 30 30 20 32 0D 20 48 4F 4D 45 0D 20 52 |T 100 2. HOME. R| 000002E0: 45 50 45 41 54 20 32 30 20 5B 42 41 43 4B 47 52 |EPEAT 20 [BACKGR| 000002F0: 4F 55 4E 44 20 52 41 4E 44 4F 4D 20 31 36 20 50 |OUND RANDOM 16 P| 00000300: 45 4E 43 4F 4C 4F 52 20 52 41 4E 44 4F 4D 20 31 |ENCOLOR RANDOM 1| 00000310: 36 5D 0D 20 50 45 4E 43 4F 4C 4F 52 20 37 0D 20 |6]. PENCOLOR 7. | 00000320: 43 53 20 52 45 50 45 41 54 20 32 30 20 5B 42 41 |CS REPEAT 20 [BA| 00000330: 43 4B 47 52 4F 55 4E 44 20 52 41 4E 44 4F 4D 20 |CKGROUND RANDOM | 00000340: 31 36 5D 20 42 41 43 4B 47 52 4F 55 4E 44 20 36 |16] BACKGROUND 6| 00000350: 0D 45 4E 44 0D 0D 54 4F 20 53 55 42 4D 41 52 49 |.END..TO SUBMARI| 00000360: 4E 45 44 45 4D 4F 0D 20 53 50 49 52 41 4C 0D 20 |NEDEMO. SPIRAL. | 00000370: 49 46 20 52 43 3F 20 54 48 45 4E 20 53 50 4C 49 |IF RC? THEN SPLI| 00000380: 54 53 43 52 45 45 4E 20 53 54 4F 50 20 45 4C 53 |TSCREEN STOP ELS| 00000390: 45 20 53 55 42 4D 41 52 49 4E 45 44 45 4D 4F 0D |E SUBMARINEDEMO.| 000003A0: 45 4E 44 0D 0D 54 4F 20 44 45 4D 4F 0D 20 52 45 |END..TO DEMO. RE| 000003B0: 41 44 20 22 53 50 52 49 54 45 53 0D 20 52 45 41 |AD "SPRITES. REA| 000003C0: 44 20 22 56 45 48 49 43 4C 45 53 0D 20 45 41 43 |D "VEHICLES. EAC| 000003D0: 48 20 5B 30 20 31 20 32 20 33 20 35 20 36 20 37 |H [0 1 2 3 5 6 7| 000003E0: 5D 20 5B 48 54 5D 0D 20 54 45 4C 4C 20 3A 53 55 |] [HT]. TELL :SU| 000003F0: 42 4D 41 52 49 4E 45 0D 20 46 55 4C 4C 53 43 52 |BMARINE. FULLSCR| 00000400: 45 45 4E 0D 20 53 55 42 4D 41 52 49 4E 45 44 45 |EEN. SUBMARINEDE| 00000410: 4D 4F 0D 45 4E 44 0D 0D 4D 41 4B 45 20 22 53 54 |MO.END..MAKE "ST| 00000420: 41 52 54 55 50 20 5B 44 45 4D 4F 5D 0D 59 FF 00 |ARTUP [DEMO].Y..|
. TO LTURN :SIZE. LT 24. FD :SIZE. LT 24 .END..TO CONTRACT :SIZE :SIZEMIN. IF :SI ZE < :SIZEMIN STOP. REPEAT 4 [LTURN :SIZ E]. CONTRACT :SIZE - 10 :SIZEMIN.END..TO STAMPCIRCLE :SIZE. PD REPEAT 36 [LT 5 S TAMPCHAR "* FD :SIZE * (3.14159 / 18) LT 5 PENCOLOR RANDOM 16] PU.END..TO RANDSI ZE. LOCAL "PICK. MAKE "PICK ITEM 1 + RAN DOM 4 [SMALLX BIGX SMALLY BIGY]. RUN ( L IST :PICK ).END..TO EXPAND :SIZE :SIZEMA X. IF :SIZE > :SIZEMAX STOP. REPEAT 4 [L TURN :SIZE]. EXPAND :SIZE + 10 :SIZEMAX. END..TO SPIRAL. BACKGROUND 6 PENCOLOR 7. PU HT SETH 0 HOME SMALLX SMALLY ST. EXP AND 2 100. REPEAT 30 [PENCOLOR RANDOM 16 FD RANDOM 100 RT RANDOM 360 RANDSIZE BA CKGROUND RANDOM 16]. SETXY 120 0. SMALLX SMALLY SETH 0. STAMPCIRCLE 120. CONTRAC T 100 2. HOME. REPEAT 20 [BACKGROUND RAN DOM 16 PENCOLOR RANDOM 16]. PENCOLOR 7. CS REPEAT 20 [BACKGROUND RANDOM 16] BACK GROUND 6.END..TO SUBMARINEDEMO. SPIRAL. IF RC? THEN SPLITSCREEN STOP ELSE SUBMAR INEDEMO.END..TO DEMO. READ "SPRITES. REA D "VEHICLES. EACH [0 1 2 3 5 6 7] [HT]. TELL :SUBMARINE. FULLSCREEN. SUBMARINEDE MO.END..MAKE "STARTUP [DEMO].Y..
> CLICK IMAGE PREVIEW FOR FULL MODAL